DataMuseum.dk

top - download

    Length: 1953 (0x7a1)
    Types: TextFile
    Notes: @(#)Form.define 13.2 (RC International) 91/11/05
    Names: »Form.define«

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

TextFile

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

#ident	"@(#)face:src/oam/users/Form.define	1.4"

form="Add a FACE Environment for a UNIX System User"
done=open TEXT $OBJ_DIR/Text.define "$F1" "$F4" "$F2" "$F3" `getfrm`

close=`unset -l UID -l IMSG`

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

name="User's Login ID:"
nrow=1
ncol=1
rows=1
columns=8
frow=1
fcol=42
lininfo=`message -f "Enter the login ID of the user you wish to add."`form:F1
rmenu=const { `indicator -w; fmlcut -f1 -d: /etc/passwd | sort` }
valid=`indicator -w;
fmlgrep "^${F1}:" /etc/passwd | fmlcut -f3 -d":" | set -l UID;
if [ -z "${F1}" ];
then
	set -l IMSG="You must enter a value for this field.";
	echo false;
elif [ -z "${UID}" ];
then
	set -l IMSG="The login specified must exist in the /etc/passwd file first.";
	echo false;
elif [ "${UID}" -lt "100" ];
then
	set -l IMSG="The login specified has a uid less than 100, I will not modify this login.";
	echo false;
elif $VMSYS/bin/chkperm -v -u "${F1}" 2>/dev/null;
then
	set -l IMSG="${F1} is already a FACE user, use modify instead.";
	echo false;
else
	echo true;
fi`
invalidmsg="${IMSG}"

name="Invoke FACE at Login:"
nrow=2
ncol=1
rows=1
columns=3
frow=2
fcol=42
value=yes
lininfo=`message -f "Should FACE be invoked automatically when this user logs onto this system?"`form:F2
rmenu=const { yes no }
menuonly=true
invalidmsg="Only yes or no are valid answers."

name="Provide UNIX System Access:"
nrow=3
ncol=1
rows=1
columns=3
frow=3
fcol=42
value=no
lininfo=`message -f "Should this user have access to the UNIX System shell?"`form:F3
rmenu=const { yes no }
menuonly=true
invalidmsg="Only yes or no are valid answers."

name="Show System Administration in FACE menu:"
nrow=4
ncol=1
rows=1
columns=3
frow=4
fcol=42
value=no
lininfo=`message -f "Should this user have a System Administration entry in the top FACE menu?"`form:F4
rmenu=const { yes no }
menuonly=true
invalidmsg="Only yes or no are valid answers."