DataMuseum.dk

top - download

    Length: 2124 (0x84c)
    Types: TextFile
    Notes: @(#)Form.remove 13.2 (RC International) 91/08/23
    Names: »Form.remove«

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦bbf173f5c⟧ »0004« 
        └─⟦this⟧ »./usr/sadm/sysadm/add-ons/lp/printers/printers/Form.remove« 

TextFile

#	@(#)Form.remove	13.2 (RC International) 91/08/23

form="Remove Printer(s)"
help=OPEN TEXT $INTFBASE/Text.itemhelp $LININFO 

`indicator -w; set -l name_2="/tmp/lp.n2$VPID";
set -l error="/tmp/lp.error$VPID";
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 no printers available";
fi`

close=`rm -f $name_2 $error;
	unset -l do_all -l name_2 -l name_valid -l bad_one -l error`

done=`indicator -w;
	message -w "Checking if the scheduler is running, please wait ...";
	if /usr/bin/lpstat -r | grep not > /dev/null;
	then
		message "Printer scheduler is not running.";
	else
		message "Stopping the printer scheduler, please wait ...";
		shell "/usr/lib/lpshut";
	fi;

	message -w "Removing printer(s), please wait ...";
	echo "$F1" | tr ',' ' ' | set -l list;
	shell "
		for p in $list
		do
			/usr/lib/lpadmin -x\$p 2>>$error >/dev/null;
		done
		" ;

	if [ -s $error ];
	then
		echo "OPEN TEXT $OAMBASE/add-ons/lp/printers/printers/add/Text.error $error ";
	else
		message -w "Printer $F1 removed. Starting the scheduler, please wait ...";
		shell "rm -f /usr/spool/lp/SCHEDLOCK";
		shell "/usr/lib/lpsched";
		message "Printer(s) $F1 removed.";
	fi;
`close

#F1
name=Printer name(s):
lininfo="remove:F1"
nrow=1
ncol=1
frow=1
fcol=18
rows=1
columns=40
fieldmsg='Enter printer(s) to be removed then press [SAVE]'
scroll=true
rmenu=`set -e OBJ_DIR="$OAMBASE/add-ons/lp/printers/printers"`OPEN MENU $OBJ_DIR/Menu.pr.ch
choicemsg="MARK choices then press ENTER"
valid=`indicator -w;
	unset -l bad_one;
	shell "/usr/sadm/sysadm/bin/lpdata -p > $name_2";
	echo "all" >> $name_2;
	if [ -z "$F1" ];
	then
		set -l no_value=true -l name_valid=false;
	else
		set -l no_value=false -l name_valid=true;
	fi;
	echo "$F1" | tr " ," "[\012*]" | regex -e '^(.*)$0$'
	'`fmlgrep "^$m0$" $name_2 || set -l bad_one="$m0" -l name_valid=false`' > /dev/null`$name_valid
invalidmsg=`if [ "$no_value" = "true" ];
	then
		echo "You must enter a value for this field.";
	else
		echo "$bad_one is an invalid printer - press [CHOICES] for selection";
	fi`