| 2 |
- |
1 |
#!/bin/rc
|
|
|
2 |
# lp - enqueues the file to be printed and starts the daemon, when necessary.
|
|
|
3 |
# Make changes to /sys/src/cmd/lp/lp.rc;
|
|
|
4 |
# changes made directly to /rc/bin/lp will be lost.
|
|
|
5 |
|
|
|
6 |
rfork en # so that environment and name space are not polluted
|
|
|
7 |
#
|
|
|
8 |
# put 'fn sigexit { rm /tmp/lpcrap; exit interrupted }' into processes that create /tmp/lpcrap.
|
|
|
9 |
|
|
|
10 |
ifs='
|
|
|
11 |
' # set ifs in case it is munged in user's environment
|
|
|
12 |
|
|
|
13 |
LPLIB=/sys/lib/lp # lp scripts directories and configuration file are here
|
|
|
14 |
LPBIN=/$cputype/bin/aux # lp specific binaries are here
|
|
|
15 |
LPSPOOL=$LPLIB/queue # lp queues
|
|
|
16 |
LPLOGDIR=$LPLIB/log # lp logs
|
|
|
17 |
|
|
|
18 |
$LPLIB/bin/lpscratch
|
|
|
19 |
x=$status
|
|
|
20 |
if(! ~ $x '') exit $x
|
|
|
21 |
|
|
|
22 |
# build /bin from the ground up
|
|
|
23 |
bind /$cputype/bin /bin # general compiled binaries
|
|
|
24 |
bind -a /rc/bin /bin # general rc scripts
|
|
|
25 |
# This needs to be fixed for the real thing
|
|
|
26 |
bind -a $LPLIB/bin /bin # lp specific rc scripts
|
|
|
27 |
bind -a $LPBIN /bin # lp specific compiled binaries
|
|
|
28 |
path=(/bin)
|
|
|
29 |
|
|
|
30 |
if (! test -w /tmp) bind -bc $LPLIB/tmp /tmp
|
|
|
31 |
|
|
|
32 |
USAGE='usage: lp [-d printer] [-p process] [options] [files]
|
|
|
33 |
lp [-d printer] -q
|
|
|
34 |
lp [-d printer] -k jobnos
|
|
|
35 |
|
|
|
36 |
options include:
|
|
|
37 |
-D turn on debugging output
|
|
|
38 |
-H no header
|
|
|
39 |
-L landscape mode
|
|
|
40 |
-M<mach> print on machine <mach>
|
|
|
41 |
-Q put task only into the queue
|
|
|
42 |
-R restart printer daemon
|
|
|
43 |
-c<n> make <n> copies
|
|
|
44 |
-f<font.size> specify font and size
|
|
|
45 |
-i<src> take media from <src> input bin
|
|
|
46 |
-l<n> print <n> lines per logical page
|
|
|
47 |
-m<n> magnify <n> times
|
|
|
48 |
-n<n> print <n> logical pages per physical page
|
|
|
49 |
-o<i-j,k> print only pages i-j and k
|
|
|
50 |
-r reverse pages
|
|
|
51 |
-u<userid> print as <userid>
|
|
|
52 |
-x<n> x page offset in inches
|
|
|
53 |
-y<n> y page offset in inches
|
|
|
54 |
'
|
|
|
55 |
|
|
|
56 |
# umask 000 # this doesn't work in plan 9
|
|
|
57 |
if (~ $#sysname 0)
|
|
|
58 |
THIS_HOST=plan9
|
|
|
59 |
if not {
|
|
|
60 |
THIS_HOST=`{ndb/query sys $sysname dom}
|
|
|
61 |
if(~ $#THIS_HOST 0)
|
|
|
62 |
THIS_HOST=$sysname
|
|
|
63 |
}
|
|
|
64 |
|
|
|
65 |
LPMACHID=$THIS_HOST
|
|
|
66 |
THIS_USERID=$user
|
|
|
67 |
LPUSERID=$THIS_USERID
|
|
|
68 |
LPLOC=''
|
|
|
69 |
|
|
|
70 |
# Set default printer to be output device
|
|
|
71 |
if (~ $#LPDEST 0 && test -f $LPLIB/defdevice) LPDEST=`{cat $LPLIB/defdevice}
|
|
|
72 |
|
|
|
73 |
# option parameters
|
|
|
74 |
COPIES=1
|
|
|
75 |
FONT=''
|
|
|
76 |
IBIN=''
|
|
|
77 |
KILLFLAG=0
|
|
|
78 |
LAND=''
|
|
|
79 |
LINES=''
|
|
|
80 |
LPQ=0
|
|
|
81 |
MAG=''
|
|
|
82 |
NOHEAD=''
|
|
|
83 |
NPAG=''
|
|
|
84 |
OLIST=''
|
|
|
85 |
POINT=''
|
|
|
86 |
RESET=''
|
|
|
87 |
REVERSE=''
|
|
|
88 |
QONLY=''
|
|
|
89 |
TRAY=''
|
|
|
90 |
XOFF=''
|
|
|
91 |
YOFF=''
|
|
|
92 |
|
|
|
93 |
# Process options
|
|
|
94 |
flagfmt='D,H,L,Q,R,r,q,M mach,c copies,d printer,f font.size,i src,k jobnos,l lines,m magnify,n lpages,o pages,p proc,u userid,x offset,y offset'
|
|
|
95 |
argv0=lp
|
|
|
96 |
|
|
|
97 |
if(! ifs=() eval `{aux/getflags $*}) {
|
|
|
98 |
echo $USAGE
|
|
|
99 |
exit usage
|
|
|
100 |
}
|
|
|
101 |
if(~ $flagd '?'){
|
|
|
102 |
awk 'BEGIN {print "device location host class"}
|
|
|
103 |
/^[^#]/ { printf "%-12s %-9s %-22s %s\n", $1, $2, $3, $6 }' $LPLIB/devices
|
|
|
104 |
exit
|
|
|
105 |
}
|
|
|
106 |
if(~ $flagp '?'){
|
|
|
107 |
ls $LPLIB/process
|
|
|
108 |
exit
|
|
|
109 |
}
|
|
|
110 |
|
|
|
111 |
if (! ~ $#flagD 0) { DEBUG=1; flag x + }; if not { DEBUG=''; flag x - }
|
|
|
112 |
if (! ~ $#flagH 0) NOHEAD=1
|
|
|
113 |
if (! ~ $#flagL 0) LAND=1
|
|
|
114 |
if (! ~ $#flagM 0 && ~ $LPUSERID daemon) LPMACHID=$flagM
|
|
|
115 |
if (! ~ $#flagQ 0) QONLY=1
|
|
|
116 |
if (! ~ $#flagR 0) RESET=1
|
|
|
117 |
if (! ~ $#flagc 0) COPIES=$flagc
|
|
|
118 |
if(! ~ $#flagd 0) LPDEST=$flagd
|
|
|
119 |
if (! ~ $#flagf 0) eval `{echo $flagf | sed -e 's/([^.]*)\.([0-9.]*)/FONT=\1;POINT=\2;/'}
|
|
|
120 |
if (! ~ $#flagi 0) IBIN=$flagi
|
|
|
121 |
if (! ~ $#flagk 0) KILLFLAG=1
|
|
|
122 |
if (! ~ $#flagl 0) LINES=$flagl
|
|
|
123 |
if (! ~ $#flagm 0) MAG=$flagm
|
|
|
124 |
if (! ~ $#flagn 0) NPAG=$flagn
|
|
|
125 |
if (! ~ $#flago 0) OLIST=-o^$flago
|
|
|
126 |
if (! ~ $#flagp 0) LPPROC=$flagp
|
|
|
127 |
if (! ~ $#flagq 0) LPQ=1
|
|
|
128 |
if (! ~ $#flagr 0) REVERSE=1
|
|
|
129 |
if (! ~ $#flagu 0) LPUSERID=$flagu
|
|
|
130 |
if (! ~ $#flagx 0) XOFF=$flagx
|
|
|
131 |
if (! ~ $#flagy 0) YOFF=$flagy
|
|
|
132 |
|
|
|
133 |
if (~ $#LPDEST 0) {
|
|
|
134 |
echo 'Set environment variable LPDEST or use the
|
|
|
135 |
''-d printer'' option to set the destination.' >[1=2]
|
|
|
136 |
exit 'LPDEST not set'
|
|
|
137 |
}
|
|
|
138 |
if (~ $LPDEST */*) { # handles MHCC destinations like mh/lino
|
|
|
139 |
LPLOC=`{echo $LPDEST|sed 's/^(.*)\/(.*)/\1/'}
|
|
|
140 |
LPDEST=`{echo $LPDEST|sed 's/^(.*)\/(.*)/\2/'}
|
|
|
141 |
}
|
|
|
142 |
|
|
|
143 |
# look up device, get info
|
|
|
144 |
LPDLINE=`{grep '^'$LPDEST'[ ]' $LPLIB/devices}
|
|
|
145 |
if (! ~ $status '') {
|
|
|
146 |
echo 'device '$LPDEST' is not in '$LPLIB'/devices' >[1=2]
|
|
|
147 |
exit 'LPDEST is bad'
|
|
|
148 |
}
|
|
|
149 |
LOC=$LPDLINE(2)
|
|
|
150 |
DEST_HOST=$LPDLINE(3)
|
|
|
151 |
OUTDEV=$LPDLINE(4)
|
|
|
152 |
SPEED=$LPDLINE(5)
|
|
|
153 |
LPCLASS=$LPDLINE(6)
|
|
|
154 |
if (~ $#LPPROC 0) LPPROC=$LPDLINE(7)
|
|
|
155 |
SPOOLER=$LPDLINE(8)
|
|
|
156 |
STAT=$LPDLINE(9)
|
|
|
157 |
KILL=$LPDLINE(10)
|
|
|
158 |
DAEMON=$LPDLINE(11)
|
|
|
159 |
SCHED=$LPDLINE(12)
|
|
|
160 |
|
|
|
161 |
if (~ $LPCLASS *nohead*)
|
|
|
162 |
NOHEAD=1
|
|
|
163 |
if (~ $LPCLASS *duplex*)
|
|
|
164 |
DUPLEX=1
|
|
|
165 |
|
|
|
166 |
if (~ $#SCHED 0) SCHED=FIFO # everyone uses FIFO
|
|
|
167 |
if (~ $KILLFLAG 1)
|
|
|
168 |
switch ($KILL) {
|
|
|
169 |
case -; echo kill option not available on $LPDEST >[1=2]
|
|
|
170 |
exit 'kill n/a'
|
|
|
171 |
case *; bind -b $LPLIB/kill /bin
|
|
|
172 |
exec $KILL $*
|
|
|
173 |
exit 'kill command '"$KILL"' not found'
|
|
|
174 |
}
|
|
|
175 |
if (~ $LPQ 1)
|
|
|
176 |
switch ($STAT) {
|
|
|
177 |
case -; echo queue status option not available on $LPDEST >[1=2]
|
|
|
178 |
exit 'stat option not available'
|
|
|
179 |
case *; bind -b $LPLIB/stat /bin
|
|
|
180 |
exec $STAT $* < /dev/null
|
|
|
181 |
exit 'stat command '"$STAT"' not found'
|
|
|
182 |
}
|
|
|
183 |
DATE=`{date}
|
|
|
184 |
LPLOG=$LPLOGDIR/$LPDEST
|
|
|
185 |
if (! test -e $LPLOG) {
|
|
|
186 |
>$LPLOG
|
|
|
187 |
chmod +rwa $LPLOG >[2]/dev/null
|
|
|
188 |
}
|
|
|
189 |
|
|
|
190 |
if (~ $RESET '') {
|
|
|
191 |
switch ($SPOOLER) {
|
|
|
192 |
case -; echo spooler does not exist for $LPDEST >[1=2]
|
|
|
193 |
exit 'no spooler'
|
|
|
194 |
case *; bind -b $LPLIB/spooler /bin
|
|
|
195 |
if (~ $#* 0) $SPOOLER
|
|
|
196 |
if not $SPOOLER $*
|
|
|
197 |
}
|
|
|
198 |
}
|
|
|
199 |
if not {
|
|
|
200 |
echo restarting daemon for printer $LPDEST >[1=2]
|
|
|
201 |
UNLOCK $LPSPOOL/$LPDEST
|
|
|
202 |
sleep 5
|
|
|
203 |
}
|
|
|
204 |
|
|
|
205 |
# run daemon
|
|
|
206 |
if (~ $QONLY '') {
|
|
|
207 |
if (! ~ $DAEMON -) {
|
|
|
208 |
bind -b $LPLIB/daemon /bin
|
|
|
209 |
$DAEMON $* >>$LPLOG >[2=1] &
|
|
|
210 |
}
|
|
|
211 |
}
|
|
|
212 |
exit ''
|