Subversion Repositories wimsdev

!if $abandon!=$empty

  job=fs

  !changeto $job.proc

!endif

c=!char 1 of $file

!if $c=/

  file=!char 2 to -1 of $file

!endif

!if $job2=download

  job2=

  fname=!translate internal / to , in $file

  fname=!item -1 of $fname

  !sh cd $wims_home\

   mkdir -p $wims_sesdir/getfile\

   rm -f $wims_sesdir/getfile/$fname\

   ln -s $wims_home/$file $wims_sesdir/getfile

  download=yes

!endif

!read dir-modifiable

modifok=no

!for d in $modifiable

  !if ../$d/ isin ../$file

    modifok=yes

    break

  !endif

!next d

ftype=!exec ftype $wims_home/$file

ext=!translate internal . to , in $file

ext=!item -1 of $ext

ext=!tolower $ext

!if $ext iswordof gif png mng jpg jpeg

  ftype=image

  !if ../public_html/ isin ../$file

    pubimg=!replace internal ../public_html/ by $ in ../$file

  !endif

!endif

!if $modifok=yes and $job2=eraseconfirm

  job2=

  !sh cd $wims_home; rm -f $file

  job=fs

  !changeto $job.proc

!endif

!if $modifok=yes and $save!=$empty

  !sh cd $wims_home\

   [ -f $wims_sesdir/user-deposit ] && cp $wims_sesdir/user-deposit $file

  job=fs

  !changeto $job.proc

!endif

fstat=!sh stat -c "%s,%y,%A" $wims_home/$file

!distribute item $fstat into flen,fdat,facc

fsec=!word 2 of $fdat

fsec=!replace \..* by in $fsec

fdat=!word 1 of $fdat

!if $modifok=yes and $job2=erase

  job2=

  erase=ask

  !exit

!endif