Subversion Repositories wimsdev

Rev

Rev 14537 | Rev 14747 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14537 Rev 14572
Line 30... Line 30...
30 
!endif
 30 
!endif
31 
 
 31 
 
32 
!readproc adm/class/quotafree.proc proc
 32 
!readproc adm/class/quotafree.proc proc
33 
oldsize=0
 33 
oldsize=0
34 
!if $(data_0[5])!=$empty
 34 
!if $(data_0[5])!=$empty
35 
    du=!sh du -ks $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$(data_0[5])
 35 
  du=!sh du -ks $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$(data_0[5])
36 
    du=!word 1 of $du
 36 
  du=!word 1 of $du
37 
    oldsize=$[($du)/1024]
 37 
  oldsize=$[($du)/1024]
38 
    delold=rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$(data_0[5]);
 38 
  delold=rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$(data_0[5]);
39 
!endif
 39 
!endif
40 
!if $wims_deposit!=$empty and $wims_deposit!=noname.file and / notin $wims_deposit and .. notin $wims_deposit
 40 
!if $wims_deposit!=$empty and $wims_deposit!=noname.file and / notin $wims_deposit and .. notin $wims_deposit
41 
  du=!sh du -ks $wims_home/$wims_sesdir/user-deposit
 41 
  du=!sh du -ks $wims_home/$wims_sesdir/user-deposit
42 
  du=!word 1 of $du
 42 
  du=!word 1 of $du
43 
  newsize=$[($du)/1024]
 43 
  newsize=$[($du)/1024]