1 #!/usr/local/plan9/bin/rc
2 # fn sigexit { rm -f $LPSPOOL/$LPDEST/.$pid.* $LPSPOOL/$LPDEST/$pid.* $LPSPOOL/$LPDEST }
3 if (! ~ $DEBUG '') flag x +
4 
5 echo $THIS_HOST $DEST_HOST
6 if (~ $THIS_HOST $DEST_HOST) {
7 	if (! test -d $LPSPOOL/$LPDEST) {
8 		mkdir $LPSPOOL/$LPDEST
9 		chmod 777 $LPSPOOL/$LPDEST >[2]/dev/null
10 		chmod +t $LPSPOOL/$LPDEST >[2]/dev/null
11 	}
12 }
13 # Process and enqueue files to be printed
14 # take arguments as input files
15 i=0
16 if (~ $#* 0) *=''
17 for (j in $*) {
18 	i= `{echo $i + 1|hoc}
19 
20 # check access to the file so that you know that a failure in the
21 # processing is a drastic error which will cause an exit from lp.
22 
23 	if (~ $j '' || test -f $j) {
24 		if (~ $THIS_HOST $DEST_HOST) {
25 			echo $LPMACHID $LPUSERID $pid.$i 0 > $LPSPOOL/$LPDEST/.$pid.$i^id
26 			lpinput $j lpsub process $LPPROC >$LPSPOOL/$LPDEST/.$pid.$i
27 			if (~ $status '') {
28 				mv $LPSPOOL/$LPDEST/.$pid.$i $LPSPOOL/$LPDEST/$pid.$i
29 				mv $LPSPOOL/$LPDEST/.$pid.$i^id $LPSPOOL/$LPDEST/$pid.$i^id
30 			}
31 			if not {
32 				rval='preprocessing failed'
33 				rm -f $LPSPOOL/$LPDEST/.$pid.$i $LPSPOOL/queue/$LPDEST/.$pid.$i^id
34 				exit $rval
35 			}
36 		}
37 		if not {
38 			{
39 				echo -d^$LPDEST -pnoproc -M^$LPMACHID -u^$LPUSERID 
40 				lpinput $j lpsub process $LPPROC
41 			} | lpsend.rc $DEST_HOST
42 			rval=$status
43 		}
44 	}
45 	if not {
46 		echo $j cannot be opened >[1=2]
47 	}
48 }