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