1 #!/usr/local/plan9/bin/rc
2 if (! ~ $DEBUG '') flag x +
3 
4 cd $LPSPOOL
5 if (~ $#* 0) KILLARGS=`{sed 1q};
6 if not	KILLARGS=$*;
7 	
8 if (test -d $LPDEST) {
9 	for (i in $KILLARGS) {
10 		for (j in `{lpsub sched $SCHED $LPDEST}) {
11 			if (test -r $LPDEST/$j^id) {
12 				STATLINE=`{cat $LPDEST/$j^id}
13 				if (~ $STATLINE(1)^$STATLINE(3) $i)
14 					if (rm $LPDEST/$j $LPDEST/$j^id >/dev/null >[1=2])
15 						echo $i removed from $LPDEST queue on $THIS_HOST
16 			}
17 		}
18 	}
19 }
20 if (! ~ $THIS_HOST $DEST_HOST) {
21 	@{echo -d$LPDEST -k;echo $KILLARGS;sleep 7} | lpsend.rc $DEST_HOST
22 }; if not {
23 	if (! ~ $KILLCMD '') {
24 		for (i in $KILLARGS) {
25 			$KILLCMD $i;
26 		}
27 	}
28 }
29 exit ''