| #!/usr/local/plan9/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 |