|
DataMuseum.dkPresents historical artifacts from the history of: RC9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: @ F T
Length: 835 (0x343)
Types: TextFile
Notes: @(#)Form.remove 13.1 (RC International) 91/07/25
Names: »Form.remove«
└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
└─⟦bbf173f5c⟧ »0004«
└─⟦this⟧ »./usr/sadm/sysadm/menu/usermgmt/remove/Form.remove«
# @(#)Form.remove 13.1 (RC International) 91/07/25
#ident "@(#)oamintf:usermgmt/Form.remove 1.2"
################################################################################
# Module Name: Form.remove
################################################################################
form="Remove Users or Groups"
framemsg=`readfile $INTFBASE/form.msg`
help=OPEN TEXT $INTFBASE/Text.itemhelp $LININFO
done=`if [ "$F1" = "user" ];
then
set -l CMD="OPEN FORM $OBJ_DIR/Form.rmusr1";
else
set -l CMD="OPEN FORM $OBJ_DIR/Form.rmgrp";
fi`$CMD
name=User or group:
lininfo=Form.remove:remove
nrow=1
ncol=3
frow=1
fcol=18
rows=1
columns=5
value=user
rmenu={ user group }
menuonly=TRUE
choicemsg=const "Select user or group."
invalidmsg=const "ERROR: Choices are user and group."
name=RESET
button=8
action=RESET