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