tgeneric - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       tgeneric (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 ''