Subversion Repositories wimsdev

Rev

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

Rev 20 Rev 7644
Line 2... Line 2...
2 
dir=!word 1 of $wims_read_parm
 2 
dir=!word 1 of $wims_read_parm
3 
!if $dir=$empty
 3 
!if $dir=$empty
4 
 !exit
 4 
 !exit
5 
!endif
 5 
!endif
6 
 
 6 
 
- 
 
 7 
du=!sh cat $dir/.du 2>/dev/null
- 
 
 8 
!if $du=$empty
7 
du=!sh du -ks $dir
 9 
 du=!sh du -ks $dir
- 
 
 10 
!endif
- 
 
 11 
 
8 
du=!word 1 of $du
 12 
du=!word 1 of $du
9 
du=$[floor(($du+1023)/1024)]
 13 
du=$[floor(($du+1023)/1024)]
10 
 
 -