Subversion Repositories wimsdev

!if . isin $user or $tchat_configfilesize<=0
  job=edit
  !changeto $job.proc
!endif

!if $wims_deposit!=$empty and / notin $wims_deposit and .. notin $wims_deposit and noname.file!=$wims_deposit
  du=!sh du -ks $wims_home/sessions/$wims_session/user-deposit;
  du=!word 1 of $du
  filesize=$[$du/1024]
  !ifval $filesize>$tchat_configfilesize*0.25
     error=toobigfile
  !else
    newfilename=!text select 1234567890azertyuiopqsdfghjklmwxcvbnAZERTYUIOPMLKJHGFDSQWXCVBN. in $wims_deposit
    ext=!replace internal . by , in $newfilename
    ext=!item -1 of $ext
    nbchar=!charcnt $newfilename
    nbext=!charcnt $ext
    !if $nbchar<4 or . notin $newfilename or $nbext<2
      error=badfilename
    !else
      newfilename=$user.$ext
      !sh cd $wims_home/sessions/$wims_session;\
          mkdir -p getfile;\
          cd getfile;\
          mkdir -p tchat;\
          mv $wims_home/sessions/$wims_session/user-deposit $wims_home/sessions/$wims_session/getfile/tchat/$newfilename;
    !endif
  !endif
!endif
job=edit
!changeto $job.proc