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