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
fdat=!word 1 of $fdat

!if $modifok=yes and $job2=erase
 job2=
 erase=ask
 !exit
!endif