Subversion Repositories planix.SVN

#!/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 ''