lpdspool (295B)
1 #!/usr/local/plan9/bin/rc 2 3 if (! ~ $DEBUG '') flag x + 4 5 if (~ $#* 0) *='' 6 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 }