plan9port

fork of plan9port with libvec, libstr and libsdb
Log | Files | Refs | README | LICENSE

generic (640B)

      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 ''