Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1 
 
2 
!if $job2=deposit and $wims_deposit!=$empty \
14043 bpr 3 
	  and / notin $wims_deposit and .. notin $wims_deposit
14302 guerimand 4 
  !read adm/class/quotafree.proc proc
5 
  du=!sh du -ks $wims_home/$wims_sesdir/user-deposit
6 
  du=!word 1 of $du
7 
  du=$[($du)/1024]
8 
  !ifval $quota_free-$du<0
14043 bpr 9 
    error=quota_file
14302 guerimand 10 
  !else
11 
    !sh mkdir -p $wims_home/log/classes/$wims_class/cdt/files;\
12 
        mv $wims_home/$wims_sesdir/user-deposit $wims_home/log/classes/$wims_class/cdt/files/$wims_deposit
14043 bpr 13 
  !endif
23 reyssat 14 
!endif
15 
 
14825 guerimand 16 
!if erase isin $job2 and .. notin $namefile and / notin $namefile and $namefile!=$empty
17 
  test=!fileexists $wims_home/log/classes/$wims_class/cdt/files/$namefile
18 
  !if $test=yes
19 
    !sh rm -f $wims_home/log/classes/$wims_class/cdt/files/$namefile
20 
  !endif
21 
  !reset namefile
23 reyssat 22 
!endif
23 
 
14829 obado 24 
 
23 reyssat 25 
flist=!filelist $wims_home/log/classes/$wims_class/cdt/files
26 
flist=!words2items $flist
27 
f1=!item 1 of $flist
14302 guerimand 28 
!read adm/class/quotafree.proc proc