19 lines
361 B
Text
19 lines
361 B
Text
|
#!/bin/rc
|
||
|
|
if (! ~ $DEBUG '') { flag x + }
|
||
|
|
if (test -e /net/tcp/clone) {
|
||
|
|
dialstring=`{ndb/query sys $1 dom}
|
||
|
|
network=tcp
|
||
|
|
if (~ $#dialstring 0 || ! ~ $dialstring '') {
|
||
|
|
dialstring=$1
|
||
|
|
}
|
||
|
|
if(lpsend $network^!^$dialstring^!printer) exit ''
|
||
|
|
rv='tcp failed'
|
||
|
|
}
|
||
|
|
if not rv='no tcp'
|
||
|
|
|
||
|
|
|
||
|
|
if (! ~ $dialstring '')
|
||
|
|
exit 'lpsend: no dialstring'
|
||
|
|
if not
|
||
|
|
exit 'lpsend: '^$rv
|