Blob


1 #!/usr/local/plan9/bin/rc
3 if (! ~ $DEBUG '') flag x +
5 if (~ $#* 0) *=''
7 for (j in $*) {
8 if (~ $j '' || test -f $j) {
9 lpinput $j lpsub process $LPPROC |
10 lpdsend -d$OUTDEV -tf -H$LPMACHID -P$LPUSERID $DEST_HOST >[2]$LPLOGDIR/$LPDEST^.st
11 }
12 if not {
13 echo $j cannot be opened >[1=2]
14 }
15 }