shithub: riscv

ref: 676298b16ba58991d1a859e0f519a967d619ccef
dir: /sys/lib/lp/stat/tektronix/

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

if (~ $THIS_HOST $DEST_HOST) {
	echo printers queue:
	/$cputype/bin/aux/lpdsend -dPS -q $OUTDEV
	if (test -f $LPLIB/log/$LPDEST^.st) {
		echo 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)
		}
	}
}
if not {
	{ echo -d$LPDEST -q; sleep 5 } | lpsend.rc $DEST_HOST
}