shithub: riscv

ref: 0ba08200707e5d761cbe39d6b08174f8eb868125
dir: /sys/lib/lp/stat/hp/

#!/bin/rc
if (! ~ $DEBUG '') flag x +

if (~ $THIS_HOST $DEST_HOST) {
	if (test -f $LPLIB/log/$LPDEST^.st) {
		echo job transmission status:
		tail -3 $LPLIB/log/$LPDEST^.st
	}
	cd $LPSPOOL
	if (test -d $LPDEST) {
		once=''
		for (i in `{bind -b $LPLIB/sched /bin;$SCHED $LPDEST}) {
			if (~ $once '') {
				echo
				echo queue on $THIS_HOST:
				echo 'job		user	try	size'
				once=1
			}
			STATLINE=`{cat $LPDEST/$i^id}
			LSLINE=`{ls -l $LPDEST/$i}
			echo $STATLINE(1)^$STATLINE(3)'	'$STATLINE(2)'	'$STATLINE(4)'	'$LSLINE(6)
		}
	}
	echo
	echo 'checking the printers queue (type DELETE to abort):'
	/$cputype/bin/aux/lpdsend -dRAW -q $OUTDEV
}
if not {
	{ echo -d$LPDEST -q; sleep 5 } | lpsend.rc $DEST_HOST
}