blob: 938c40a0f1f1954a7d239963304b44b7ee220855 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
#!/usr/local/plan9/bin/rc
rfork s
if (! ~ $DEBUG '') flag x +
LPDELAY=60
if (! ~ $#* 2 && ! ~ $#* 3) {
echo 'usage generic local_cmd _remote_cmd [ success_cmd ]' >[1=2]
exit 'argument count'
}
LOCAL_CMD=$1
REMOTE_CMD=$2
SUCCESS_CMD=$3
# we don't want to make a LOCK file unless we are at the destination
# let the spooler take care of moving it there
# this is necessary for clients and servers that share the
# same lp queue directory
if (! ~ $THIS_HOST $DEST_HOST || ! LOCK $LPSPOOL/$LPDEST/LOCK $THIS_HOST $pid) exit ''
cd $LPSPOOL
MAXTRY=2
PRINTLOG=$LPLOGDIR/$LPDEST^.st
fn schedule{
FILE=`{lpsub sched $SCHED $LPDEST}
}
while (schedule; ! ~ $#FILE 0) {
SCHEDLINE=`{cat $LPDEST/$FILE(1)^id}
LSLINE=`{ls -l $LPDEST/$FILE(1)}
echo `{date} start $SCHEDLINE
if (! test -s $LPDEST/.seqno) {
echo 0 > $LPDEST/.seqno
}
if not {
LPSEQNO = `{cat $LPDEST/.seqno | awk '{seqno = $1 + 1; if (seqno > 999) seqno = 0; print seqno}'}
echo $LPSEQNO > $LPDEST/.seqno
}
STARTIME=`{date}
if (! test -s $LPDEST/$FILE(1)) {
echo `{date} file $LPDEST/$FILE(1) disappeared or is empty
ls -l $LPDEST
echo $SCHEDLINE(2)$SCHEDLINE(4)' '$SCHEDLINE(3) $SCHEDLINE(5)' ! '$LSLINE(6) $STARTIME(4) >> $LPLOG
rm -f $LPDEST/$FILE $LPDEST/$FILE^id
}
if not {
if (~ $THIS_HOST $DEST_HOST) {
if (test -f $LPLIB/perm/$LPDEST && grep -s $SCHEDLINE(2) $LPLIB/perm/$LPDEST) {
echo `{date} permission denied
echo you are not allowed to use printer $LPDEST | mail $SCHEDLINE(2)
rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
}
if not {
echo `{date} sending to printer
> $PRINTLOG
STARTIME=`{date}
@{eval $LOCAL_CMD}
rv=$status
ENDTIME=`{date}
status=$rv
if () {
echo $SCHEDLINE(1)^$SCHEDLINE(3)' '$SCHEDLINE(2)' '$SCHEDLINE(4)' + '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)
eval $SUCCESS_CMD
rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
}
if not {
echo $SCHEDLINE(1)^$SCHEDLINE(3)' '$SCHEDLINE(2)' '$SCHEDLINE(4)' - '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)' status='$rv
THISTRY=`{echo $SCHEDLINE(4) + 1|hoc}
echo $SCHEDLINE(1) $SCHEDLINE(2) $SCHEDLINE(3) $THISTRY >$LPDEST/$FILE(1)^id
if (test $THISTRY -ge $MAXTRY) {
if (test -d $LPLIB/prob/$LPDEST) {
cp $LPDEST/$FILE(1) $LPLIB/prob/$LPDEST
cp $LPDEST/$FILE(1)^id $LPLIB/prob/$LPDEST
cp $PRINTLOG $LPLIB/prob/$LPDEST/$FILE(1)^log
}
upasname=daemon
mail $SCHEDLINE(2) <<endmail1
rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
}
if not {
touch $LPDEST/$FILE(1)
sleep $LPDELAY
}
}
}
}
if not {
# we don't want to be here
# trap '' 13 # temp hack: ignore SIGPIPE
echo `{date} queuing - should not get here
STARTIME=`{date}
eval $REMOTE_CMD
rv=$status
ENDTIME=`{date}
if (~ $rv '') {
echo $SCHEDLINE(1)^$SCHEDLINE(3)' '$SCHEDLINE(2)' '$SCHEDLINE(4)' + '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)
rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
}
if not {
echo $SCHEDLINE(1)^$SCHEDLINE(3)' '$SCHEDLINE(2)' '$SCHEDLINE(4)' - '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)
echo status $rv from '$REMOTE_CMD'
THISTRY=`{echo $SCHEDLINE(4) + 1|hoc}
echo $SCHEDLINE(1) $SCHEDLINE(2) $SCHEDLINE(3) $THISTRY >$LPDEST/$FILE(1)^id
if (~ $THISTRY $MAXTRY) {
upasname=daemon
mail $SCHEDLINE(2) <<endmail2
}
if not {
touch $LPDEST/$FILE(1)
sleep $LPDELAY
# this is here to deal with running out of
# Datakit channels or other stupid problems
# backoff connection attempts but not too long
LPDELAY=`{echo $LPDELAY '*' 2|hoc}
if (test $LPDELAY -gt 960)
LPDELAY=60
}
}
}
}
}
Your job has failed to print on $LPDEST after $MAXTRY attempt(s).
If the directory $LPLIB/prob/$LPDEST exists on $DEST_HOST,
the file has been put there along with the printer log file.
Your friendly printer daemon
endmail1
Your job has failed to print on $LPDEST after $MAXTRY attempt(s).
There is a problem in sending the job to $DEST_HOST,
but I'll keep trying. Have a nice day.
Your enthusiastic printer daemon
endmail2
UNLOCK $LPSPOOL/$LPDEST
rm $LPSPOOL/$LPDEST >[2]/dev/null
|