DataMuseum.dk

top - download

    Length: 1319 (0x527)
    Types: TextFile
    Notes: @(#)Form.power 13.6 (RC International) 91/10/09
    Names: »Form.power«

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

TextFile

#	@(#)Form.power	13.6 (RC International) 91/10/09

#ident	"@(#)oamintf:machinemgmt/Form.power	1.6"

################################################################################
#	Module Name: Form.power
################################################################################
form="Shut Down the Machine"

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 -p $FF1 \"$F2\"`exit

# F1
name=Number of minutes before global shutdown starts:
lininfo=Form.power:power
nrow=1
ncol=3
frow=1
fcol=52
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.power:message
nrow=2
ncol=3
frow=2
fcol=12
rows=1
columns=57
value=const "Global power down 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 with shutdown and exit sysadm."
inactive

name=RESET
button=8
action=RESET