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

form='Remove printers from the Class' $ARG1

help=OPEN TEXT $INTFBASE/Text.itemhelp $LININFO

framemsg='Enter printers then press [SAVE] to remove from class'

init=`indicator -w; set -l name_2="/tmp/lp.cl$VPID";
set -l error="/tmp/lp.error$VPID";
lpstat -c$ARG1 > $name_2;
if [ -s "$name_2" ];
then
	echo "true";
else
	echo "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 list -l error`

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

	message -w "Removing printers from class $ARG1";
	if [ $F1 = "all" ];
	then
		shell "/usr/lib/lpadmin -x$ARG1 2>>$error >/dev/null";;
	else
		echo "$F1" | tr "," " " | set -l list;
		shell "
		for p in $list
		do
			/usr/lib/lpadmin -p\$p -r$ARG1 2>>$error >/dev/null;
		done
		";
	fi;


	if [ -s $error ];
	then 
		echo "OPEN TEXT /usr/sadm/sysadm/add-ons/lp/printers/classes/Text.error $error ";
	else
		message -w "Printers removed. Starting the scheduler, please wait ...";
		rm -f /usr/spool/lp/SCHEDLOCK;
		shell "/usr/lib/lpsched";
	fi;

	message"";
`close

#F1
name='Printers:'
lininfo="modify:remove"
nrow=1
ncol=1
frow=1
fcol=10
rows=1
columns=30
fieldmsg='Enter printers then press [SAVE] to remove from class'
rmenu=OPEN MENU $OBJ_DIR/Menu.pr.cl.ch "$ARG1"
choicemsg="MARK printers then press [ENTER]"

valid=`indicator -w;
	unset -l bad_one;
	lpstat -c$ARG1 | fmlgrep -v \: | awk '{print $1}' > $name_2;
	if [ -z "$F1" ];
	then
		set -l no_value=true -l name_valid=false;
	else
		echo "all" >> $name_2;
		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 not a printer in this class - press [CHOICES] to make selection";
	fi`