shithub: riscv

ref: d5fc608059dee5f65ddfdf3e230bb8d458ccf43f
dir: /sys/lib/lp/kill/generic/

#!/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 `{bind -b $LPLIB/sched /bin;$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 ''