DataMuseum.dk

top - download

    Length: 1617 (0x651)
    Types: TextFile
    Notes: @(#)Form.add.FTS 13.1 (RC International) 91/08/23
    Names: »Form.add.FTS«

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦bbf173f5c⟧ »0004« 
        └─⟦this⟧ »./usr/sadm/sysadm/add-ons/lp/printers/printers/add/Form.add.FTS« 

TextFile

#	@(#)Form.add.FTS	13.1 (RC International) 91/08/23

form=Add a New FTS Network Printer

help=`set -e OBJ_DIR="$OAMBASE/add-ons/lp/printers/printers/add"`OPEN TEXT $INTFBASE/Text.itemhelp $LININFO 

done=`run add.prt.FTS $F1 $F2 $F3 $VPID;`

#F1
name=Printer name:
lininfo="add:FTS:F1"
nrow=1
ncol=1
frow=1
fcol=22
rows=1
columns=16
fieldmsg="Max. 14 characters (letters, numbers and '_'). Not 'all', 'any' or 'none'."
valid=`
	indicator -w;
	regex -v "$F1" 
	'^[Aa][Ll][Ll]$'	'"all" is a reserved word'
	'^[Aa][Nn][Yy]$'	'"any" is a reserved word'
	'^[Nn][Oo][Nn][Ee]$'	'"none" is a reserved word'
	'^[_a-zA-Z0-9]{1,14}$'	'ok'
	'^.*$'			'name must be 1-14 letters, numbers, and "_"'
	| set -l lp_errtmp;

	if [ "$lp_errtmp" = 'ok' ];
	then
	    if lpdata -p | grep $F1 > /dev/null;
	    then
		set -l lp_errtmp="\"$F1\" already exists";
		echo false;
	    else
		echo true;
	    fi;
	else
		echo false;
	fi;
`
invalidmsg="Invalid printer:  $lp_errtmp."

#F2
name=Remote Host name:
lininfo="add:FTS:F2"
nrow=2
ncol=1
frow=2
fcol=22
rows=1
columns=16
rmenu=`set -e OBJ_DIR="$OAMBASE/add-ons/lp/printers/printers/add"`OPEN MENU $OBJ_DIR/Menu.hosts.ch.FTS
valid=` indicator -w;
	if /etc/getnames | grep ${F2}FTS > /dev/null;
	then
		echo true;
	else
		echo false;
	fi;`
invalidmsg="Invalid FTS host: $F2 does not exist."

#F3
name=Remote printer name:
lininfo="add:FTS:F3"
nrow=3
ncol=1
frow=3
fcol=22
rows=1
columns=16
value="lp"
fieldmsg="lp: Default FTS printer on the remote host. Press HELP for more information."
rmenu=`set -e OBJ_DIR="$OAMBASE/add-ons/lp/printers/printers/add"`OPEN TEXT $OBJ_DIR/Text.remprt.FTS