⟦a5d5faa2b⟧

TextFile

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

form=Move Print Requests to a New Printer

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

`indicator -w; set -l name_p="/tmp/lp.rp$VPID";
	set -l name_px="/tmp/lp.rpx$VPID";
	set -l name_r="/tmp/lp.rr$VPID";
	set -l name_rx="/tmp/lp.rrx$VPID";
	set -l error="/tmp/lp.error$VPID";
	lpstat -o | fmlcut -d'-' -f1 | sort -u > $name_px;
	lpdata -p > $name_p;
	echo "all" >> $name_px;
	echo "" >> $name_px;
        lpstat -o | fmlcut -d' ' -f1 > $name_r;
        lpstat -o | fmlcut -d' ' -f1 > $name_rx;
	if [ -n "$name_rx" ];
	then
		echo "all" >> $name_rx;
		echo "" >> $name_rx;
		echo "init=true";
	else
		echo "init=false";
		message -b "There are no print requests available";
	fi;`

done=`  rm -f $error;

	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;

	if [ ( -n $F1 -a $F1 != 'all' ) -a ( -z $F2 -o "$F2" = 'all' ) ];
 	then
		message -w "Moving print requests to $F3 for specified printers, please wait...";
		echo "$F1" | tr -s ',' ' ' | set -l plist;
		shell "
		for p in $plist
		do
			/usr/lib/lpmove \$p $F3 2>>$error >/dev/null;
		done
		";
	fi;

	if [ -n $F2 -a $F2 != "all" ];
	then 
		message -w "Moving print requests to $F3 for specified ids., please wait...";
		echo "$F2" | tr -s ',' ' ' | set -l plist;
		shell "
		for p in $plist
		do
			/usr/lib/lpmove \$p $F3 2>>$error >/dev/null;
		done
		";
	fi;

     	if [  -z $F1 -a $F2 = 'all' ];
	then
		message -w "Moving print requests to $F3 for all ids., please wait...";
		readfile $name_r | tr '\012' ' ' | set -l plist;
		shell "
		for p in $plist
		do
			/usr/lib/lpmove \$p $F3 2>>$error >/dev/null;
		done
		";
	fi;

	if [ $F1 = 'all' -a  ( $F2 = 'all' -o -z $F2 ) ) ];
	then
		message -w "Moving print requests to $F3 for all printers, please wait...";
		readfile $name_r | tr '\012' ' ' | set -l plist;
		shell "
		for p in $plist
		do
			/usr/lib/lpmove \$p $F3 2>>$error >/dev/null;
		done
		";
	fi;

	if [ -s $error ];
	then 
		echo "OPEN TEXT /usr/sadm/sysadm/add-ons/lp/printers/requests/Text.error $error ";
	fi;

	if /usr/bin/lpstat -r | grep not > /dev/null;
	then
		message "Starting the printer scheduler, please wait ...";
		rm -f /usr/spool/lp/SCHEDLOCK;
		/usr/lib/lpsched;
		message "Line printer scheduler started.";
	else
		message "The printer scheduler is already running.";
	fi;
`close

close=`rm -f $name_p $name_px $name_r $name_rx $error;
	unset -l do_all -l name_p -l name_px -l name_r -l name_rx;
	unset -l name_valid -l bad_one -e error`

#F1
name=Current Printers:
lininfo="move:F1"
nrow=1
ncol=1
frow=1
fcol=23
rows=1
columns=52
fieldmsg="Enter the printers with requests to be moved" 
rmenu=OPEN MENU $OBJ_DIR/Menu.pr.q.ch
choicemsg="MARK current printers then press ENTER"

valid=`indicator -w;
	unset -l bad_one;
	if [ -z "$F1" ];
	then
		set -l name_valid=true;
		true;
	else
		set -l name_valid=true;
	fi;
	echo "$F1" | tr " ," "[\012*]" | regex -e '^(.*)$0$'
	'`fmlgrep "^$m0\$" $name_px || set -l bad_one="$m0" -l name_valid=false`' > /dev/null`$name_valid
invalidmsg="$bad_one invalid printer - press [CHOICES] for selection"

#F2
name=Request ID number(s):
lininfo="move:F2"
nrow=2
ncol=1
frow=2
fcol=23
rows=1
columns=52
value=all
scroll=true
rmenu=OPEN MENU $OBJ_DIR/Menu.rq.ch
choicemsg="MARK requests then press ENTER"
fieldmsg="Enter the request-ids to move."

valid=`indicator -w;
	unset -l bad_one;
	if [ -z "$F2" -a -n "$F1" ];
	then
		set -l no_value=false -l name_valid=true;
		true;
	fi;
	if [ -z $F2 -a -z $F1 ];
	then 
		set -l no_value=true -l name_valid=false;
	fi;
	if [ -n $F2 -a -z $F1 ];
	then 
		set -l no_value=false -l name_valid=true;
	fi;
	echo "$F2" | tr " ," "[\012*]" | regex -e '^(.*)$0$'
	'`fmlgrep "^$m0\$" $name_rx || set -l bad_one="$m0" -l name_valid=false`' > /dev/null`$name_valid
invalidmsg=`if [ "$no_value" = "true" ];
	then
	    echo "You must enter a request-id or an original printer";
	else
	    echo "$bad_one Invalid print request - press [CHOICES] for selection";
	fi;`

#F3
name=New Printer:
lininfo="move:F3"
nrow=3
ncol=1
frow=3
fcol=18
rows=1
columns=14
menuonly=true
rmenu={ `lpdata -p; lpdata -c` }
choicemsg="Select new printer then press ENTER"
fieldmsg="Enter the new printer then press [SAVE] to move requests"
valid=`indicator -w;
	unset -l bad_one;
	if [ -z "$F3" ];
	then
		set -l no_value=true -l name_valid=false;
	else
		set -l no_value=false -l name_valid=true;
	fi;
	echo "$F3" | tr " ," "[\012*]" | regex -e '^(.*)$0$'
	'`fmlgrep "^$m0\$" $name_p || set -l bad_one="$m0" -l name_valid=false`' > /dev/null`$name_valid
invalidmsg=`if [ "$no_value" = "true" ];
	then
		echo "Must have destination printer to move print requests";
	else
		echo "$bad_one invalid printer - press [CHOICES] for selection";
	fi`
DataMuseum.dk

RC9000

⟦a5d5faa2b⟧ TextFile

Derivation

TextFile
