DataMuseum.dk

top - download

    Length: 1091 (0x443)
    Types: TextFile
    Notes: @(#)Form.single 13.1 (RC International) 91/10/09
    Names: »Form.single«

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

TextFile

#	@(#)Form.single	13.1 (RC International) 91/10/09

form="Going into single user mode"

framemsg=`readfile $INTFBASE/form.msg`

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

done=`	if [ "$F1" != "now" ];
	then
		set -l FF1="+$F1";
	else
		set -l FF1="$F1";
	fi;
	chgstate " " $FF1 \"$F2\"`exit

# F1
name=Number of minutes before going single user starts:
lininfo=Form.single:single
nrow=1
ncol=3
frow=1
fcol=55
rows=1
columns=4
value=const 3
valid=`regex -v $F1 '^[1-9]{1,4}$' $F1 "now"`
invalidmsg=const "Select an integer between 1 and 9999 or \"now\""
fieldmsg=const "Select an integer between 1 and 9999 or \"now\""

# F2
name=message:
lininfo=Form.single:message
nrow=2
ncol=3
frow=2
fcol=12
rows=1
columns=57
value=const "Going into single user mode initiated from sysadm"
fieldmsg=const "Enter a warning message to be sent to all users logged in"

# Dummy field
name=""
nrow=4
ncol=2
frow=4
fcol=3
rows=2
columns=68
value=const "WARNING: Once started, this procedure CANNOT BE STOPPED!\n         Strike SAVE to proceed and exit sysadm."
inactive

name=RESET
button=8
action=RESET