:DiskSize

; check the disk size per user

; the information is on disk.log

$coma=chr(44)

if open(1,"disk.log")=0

$x=readline(1)

; The first line tells the age of the information

$DSizeDate=substr($x,24,2)+"/"+substr($x,21,2)+"/"+substr($x,27,4)

$DSizeTime=substr($x,35,8)

do

$x=readline(1)

$coma1=instr($x,$coma)

$x=substr($x, $coma1+1, len($x)-$coma1)

$coma2=instr($x,$coma)

$xu=substr($x, 1, $coma2-1)

until $xu=@userid or @error=-1 ; End of loop

if $xu=@userid ; Line found

$x=substr($x, $coma2+1, len($x)-$coma2)

$coma3=instr($x,$coma)

$DSize=val(substr($x,1,$coma3-1))

else

$DSize=0

endif

$RC=close(1)

endif

return