DataMuseum.dk

top - download

    Length: 902 (0x386)
    Types: TextFile
    Notes: @(#)Form.filesize 13.1 (RC International) 91/07/25
    Names: »Form.filesize«

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦bbf173f5c⟧ »0004« 
        └─⟦this⟧ »./usr/sadm/sysadm/menu/files/filesize/Form.filesize« 

TextFile

#	@(#)Form.filesize	13.1 (RC International) 91/07/25

#ident	"@(#)oamintf:files/filesize/Form.filesize	1.4"
form="List Largest File(s) in a Given Directory"
help=OPEN TEXT $INTFBASE/Text.itemhelp $LININFO

`readfile $INTFBASE/form.msg | message`

done=`indicator -w;
	message -p "";
	$OAMBASE/bin/getfilesize "$F1" "$F2";
	regex -e -v $RET 
	'^0$' 'OPEN TEXT $OBJ_DIR/Text.sizeok "$F1" "$F2"'
	'^.*$' 'OPEN TEXT $OBJ_DIR/Text.sizenok "$F1" "$F2"'`

name="Directory to be searched: "
lininfo=F1
nrow=1
ncol=1
frow=2
fcol=1
rows=1
scroll=true
columns=50
valid=`regex -v "$F1" '^[/].*' && [ -d "$F1" ]`
invalidmsg=const 'Directory name must begin with "/" and must be a valid directory name.'

name="Number of large files to be reported:"
lininfo=F2
nrow=3
ncol=1
frow=3
fcol=40
rows=1
columns=3
value=10
valid=`[ $F2 -ge 1 -a $F2 -le 999 ]`
invalidmsg=const 'Answer must be an integer between 1 and 999'