xref: /plan9/sys/lib/lp/stat/tektronix (revision 7dd7cddf99dd7472612f1413b4da293630e6b1bc)
1#!/bin/rc
2if (! ~ $DEBUG '') flag x +
3
4if (~ $THIS_HOST $DEST_HOST) {
5	echo printers queue:
6	/$cputype/bin/aux/lpdsend -dPS -q $OUTDEV
7	if (test -f $LPLIB/log/$LPDEST^.st) {
8		echo status:
9		tail -3 $LPLIB/log/$LPDEST^.st
10	}
11	cd $LPSPOOL
12	if (test -d $LPDEST) {
13		once=''
14		for (i in `{bind -b $LPLIB/sched /bin;$SCHED $LPDEST}) {
15			if (~ $once '') {
16				echo
17				echo queue on $THIS_HOST:
18				echo 'job		user	try	size'
19				once=1
20			}
21			STATLINE=`{cat $LPDEST/$i^id}
22			LSLINE=`{ls -l $LPDEST/$i}
23			echo $STATLINE(1)^$STATLINE(3)'	'$STATLINE(2)'	'$STATLINE(4)'	'$LSLINE(6)
24		}
25	}
26}
27if not {
28	{ echo -d$LPDEST -q; sleep 5 } | lpsend.rc $DEST_HOST
29}
30