harvey/sys/lib/lp/bin/lpsend.rc

#!/bin/rc
# lpsend.rc dialstring - run lpsend network!dialstring!printer
if (! ~ $DEBUG '')
	flag x +
if (! test -e /net/tcp/clone)
	exit 'no tcp'

dialstring=`{ndb/query sys $1 dom}
if (~ $#dialstring 0 || ~ $dialstring '')	# no dom for sys in ndb?
	dialstring=$1				# use arg unchanged

lpsend tcp!^$dialstring^!printer
exit $status