DataMuseum.dk

top - download

    Length: 2929 (0xb71)
    Types: TextFile
    Notes: @(#)Form.add 13.2 (RC International) 91/11/05
    Names: »Form.add«

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦bbf173f5c⟧ »0004« 
        └─⟦this⟧ »./usr/sadm/sysadm/add-ons/face/applmgmt/FACE/programs/add/Form.add« 

TextFile

#	@(#)Form.add	13.2 (RC International) 91/11/05

#ident	"@(#)face:src/oam/programs/Form.add	1.7"

form="Add Global Programs"
done=`indicator -w;
	$VMSYS/bin/creaserve "$F1" "$F2" "$F3" "$F4" "$F5" "VMSYS"`close

close=`unset -l TERML -l IMSG -l TDIR -l IVAL -l NF3 -l TITLE -l ITEM`

help=open TEXT $INTFBASE/Text.itemhelp $LININFO

`set -l TERML="${TERMINFO:-/usr/lib/terminfo}";`

name=Terminal Type:
show=false
nrow=1
ncol=1
rows=1
columns=14
frow=1
fcol=24
lininfo=`message -f "Enter the correct Terminal Type needed for the command invoked."`F1
value=const "${TERM}"
valid=`echo ${F1} | fmlcut -c1 | set -l TDIR;
if [ -z "${F1}" ];
then
	set -l IMSG="You must enter a value for this field.";
	echo false;
elif [ -f "${TERML}/${TDIR}/${F1}" -a -s "${TERML}/${TDIR}/${F1}" ];
then
	echo true;
else
	set -l IMSG="${F1} is not a valid terminal on your system.";
	echo false;
fi`
invalidmsg="${IMSG}"

name=Programs Menu Entry:
nrow=1
ncol=1
rows=1
columns=45
frow=1
fcol=24
lininfo=`message -f "Enter the name that should appear in the Programs Menu."`F2
valid=`indicator -w;
if [ -z "${F2}" ];
then
	set -l IMSG="You must enter a value for this field.";
	echo false;
elif echo "${F2}"|fmlgrep '^.*;.*$' > /dev/null;
then
	set -l IMSG="Semi-colons are not allowed in this field.";
	echo false;
elif [ -f $VMSYS/lib/services ];
then
	if fmlgrep "name=\"${F2}\"" $VMSYS/lib/services > /dev/null 2> /dev/null;
	then
		set -l IMSG="${F2} already exists.";
		echo false;
	else
		echo true;
	fi;
else
	echo true;
fi`
invalidmsg="${IMSG}"

name=Pathname of Command:
nrow=2
ncol=1
rows=1
columns=45
frow=2
fcol=24
lininfo=`message -f "Enter the command to execute."`F3
valid=`indicator -w;
echo "${F3}"|fmlcut -f1 -d" "|set -l NF3;
if [ -z "${F3}" ];
then
	set -l IVAL=false -l IMSG="A value must be entered for this field.";
elif regex -v "${NF3}" '^/[a-zA-Z_/0-9]+$' > /dev/null;
then
	set -l IVAL=true;
elif regex -v "${NF3}" '^[a-zA-Z_/0-9]+$' > /dev/null;
then
	set -l IVAL=false -l IMSG="${NF3} is not an absolute path.";
else
	set -l IVAL=false -l IMSG="${NF3} contains an illegal character.";
fi;
if [ "${IVAL}" = "true" ];
then
	if shell type "${NF3}" | fmlgrep "not found" > /dev/null;
	then
		set -l IVAL=false -l IMSG="${NF3} is not a valid command.";
	fi;
fi`${IVAL}
invalidmsg=${IMSG}
scroll=true

name=Working Directory:
nrow=3
ncol=1
rows=1
columns=45
frow=3
fcol=24
value='$HOME'
lininfo=`message -f "Enter the directory you want to change to when the command is invoked."`F4
valid=`if [ "$F4" = '$HOME' ];
then
	echo true;
elif [ -d $F4 ];
then
	echo true;
else
	echo false;
fi`
invalidmsg="The Path entered must be a valid directory."
scroll=true

name=Prompt for Arguments:
nrow=4
ncol=1
rows=1
columns=3
frow=4
fcol=24
lininfo=`message -f "Should the user be prompted for arguments when the command is invoked?"`F5
value=const no
rmenu={ yes no }
menuonly=true
invalidmsg="The only valid responses are yes and no."