Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#!/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 `{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 
}
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 ''