| #!/usr/local/plan9/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 `{lpsub sched $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 $DEST_HOST |
| } |
