| #!/usr/local/plan9/bin/rc |
| if (! ~ $DEBUG '') flag x + |
| |
| cd $LPSPOOL |
| if (~ $#* 0) KILLARGS=`{sed 1q}; |
| if not KILLARGS=$*; |
| |
| if (test -d $LPDEST) { |
| for (i in $KILLARGS) { |
| for (j in `{lpsub sched $SCHED $LPDEST}) { |
| if (test -r $LPDEST/$j^id) { |
| STATLINE=`{cat $LPDEST/$j^id} |
| if (~ $STATLINE(1)^$STATLINE(3) $i) |
| if (rm $LPDEST/$j $LPDEST/$j^id >/dev/null >[1=2]) |
| echo $i removed from $LPDEST queue on $THIS_HOST |
| } |
| } |
| } |
| } |
| if (! ~ $THIS_HOST $DEST_HOST) { |
| @{echo -d$LPDEST -k;echo $KILLARGS;sleep 7} | lpsend.rc $DEST_HOST |
| }; if not { |
| if (! ~ $KILLCMD '') { |
| for (i in $KILLARGS) { |
| $KILLCMD $i; |
| } |
| } |
| } |
| exit '' |
