| 123456789101112131415161718 |
- #!/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
|
