|
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: 1245 (0x4dd)
Types: TextFile
Notes: @(#)Form.default 13.2 (RC International) 91/08/23
Names: »Form.default«
└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
└─⟦bbf173f5c⟧ »0004«
└─⟦this⟧ »./usr/sadm/sysadm/add-ons/lp/printers/operations/Form.default«
# @(#)Form.default 13.2 (RC International) 91/08/23
form=Set Default Print Destination
framemsg="Enter the printer or class to use as your default and press SAVE."
help=open TEXT $INTFBASE/Text.itemhelp $LININFO
`lpdata -t|set -l old_default_lp;
set -l name_2="/tmp/lp.n2$VPID";
shell "/usr/sadm/sysadm/bin/lpdata -c > $name_2";
shell "/usr/sadm/sysadm/bin/lpdata -p >> $name_2";
if [ -s $name_2 ];
then
echo "init=true";
else
echo "init=false";
message -b "There are currently no printers or classes defined on your system.";
rm -f $name_2;
fi`
close=`rm -f $name_2;
unset -l $name_2`
done=`/usr/lib/lpadmin -d$F1 > /dev/null 2>/dev/null;
message "Default printer set to $F1"`close
name=Default Printer or Printer Class:
lininfo="default:F1"
nrow=1
ncol=1
frow=1
fcol=34
rows=1
columns=41
rmenu=OPEN MENU $OBJ_DIR/Menu.cdefault
value=$old_default_lp
valid=`indicator -w;
if [ -z "$F1" ];
then
echo false;
set -l emsg="You must enter a value for this field.";
else
shell "/usr/sadm/sysadm/bin/lpdata -c > $name_2";
shell "/usr/sadm/sysadm/bin/lpdata -p >> $name_2";
if fmlgrep "$F1" $name_2 > /dev/null;
then
echo true;
else
echo false;
set -l emsg="$F1 is not a valid class or printer.";
fi;
fi`
invalidmsg=$emsg