2 262ecfed 2005-08-31 devnull if (! ~ $DEBUG '') { flag x + }
3 262ecfed 2005-08-31 devnull if (test -e /net/tcp/clone) {
4 262ecfed 2005-08-31 devnull dialstring=`{ndb/query sys $1 dom}
5 262ecfed 2005-08-31 devnull network=tcp
6 262ecfed 2005-08-31 devnull if (~ $#dialstring 0 || ! ~ $dialstring '') {
7 262ecfed 2005-08-31 devnull dialstring=$1
9 262ecfed 2005-08-31 devnull if(lpsend $network^!^$dialstring^!printer) exit ''
10 262ecfed 2005-08-31 devnull rv='tcp failed'
12 262ecfed 2005-08-31 devnull if not rv='no tcp'
15 262ecfed 2005-08-31 devnull if (! ~ $dialstring '')
16 262ecfed 2005-08-31 devnull exit 'lpsend: no dialstring'
18 262ecfed 2005-08-31 devnull exit 'lpsend: '^$rv