shithub: riscv

ref: 57f8b3d1acf273a88568c49d0b83b6863485b9e0
dir: /sys/lib/lp/stat/generic/

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

if (~ $THIS_HOST $DEST_HOST) {
	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
}