|
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: 773 (0x305)
Types: TextFile
Notes: @(#)Form.cancel_curr 13.1 (RC International) 91/08/23
Names: »Form.cancel_curr«
└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
└─⟦bbf173f5c⟧ »0004«
└─⟦this⟧ »./usr/sadm/sysadm/add-ons/lp/printers/requests/Form.cancel_curr«
# @(#)Form.cancel_curr 13.1 (RC International) 91/08/23
form=Cancel Current Print Request
help=OPEN TEXT $INTFBASE/Text.itemhelp $LININFO
init=` if lpstat -o | grep -s '$';
then
echo "true";
else
echo "false";
message -b "There are no print requests available";
fi`
done=`cancel $F1`close
close=`unset -l defprt`
#F1
name=Printer:
lininfo="cancel_curr:F1"
nrow=1
ncol=1
frow=1
fcol=14
rows=1
columns=30
#value="`lpdata -t`"
value="`lpdata -t | set -l defprt;
if lpdata -e | grep $defprt > /dev/null;
then
echo "$defprt";
else
echo "";
fi`"
rmenu={ `lpdata -e` }
menuonly=true
choicemsg="Select printer then press ENTER"
fieldmsg="Type the name of the printer on which you want to cancel the current request"
invalidmsg="$F1 is not a valid printer"