xref: /plan9/sys/lib/lp/kill/generic (revision 7dd7cddf99dd7472612f1413b4da293630e6b1bc)
1#!/bin/rc
2if (! ~ $DEBUG '') flag x +
3
4cd $LPSPOOL
5if (~ $#* 0) KILLARGS=`{sed 1q};
6if not	KILLARGS=$*;
7
8if (test -d $LPDEST) {
9	for (i in $KILLARGS) {
10		for (j in `{bind -b $LPLIB/sched /bin;$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}
20if (! ~ $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}
29exit ''
30