Date: Wed, 24 Sep 2008 12:33:29 +0200 From: "Andy Kosela" <akosela@andykosela.com> To: freebsd-questions@freebsd.org Subject: Netprint perl script from Handbook doesn't work Message-ID: <3cc535c80809240333s1036386fnaa597267f0cf12aa@mail.gmail.com>
next in thread | raw e-mail | index | archive | help
The netprint perl script provided in the Handbook (9.4.3.2) is not
working.. or am I missing something:
plotinus:~> cat new.txt | lp.sh
Can't contact 10.10.21.12: Address family not supported by protocol
family at /usr/local/libexec/netprint line 21.
plotinus:> cat /usr/local/libexec/netprint
#!/usr/bin/perl
#
# netprint - Text filter for printer attached to network
# Installed in /usr/local/libexec/netprint
#
$#ARGV eq 1 || die "Usage: $0 <printer-hostname> <port-number>";
$printer_host = $ARGV[0];
$printer_port = $ARGV[1];
require 'sys/socket.ph';
($ignore, $ignore, $protocol) = getprotobyname('tcp');
($ignore, $ignore, $ignore, $ignore, $address)
= gethostbyname($printer_host);
$sockaddr = pack('S n a4 x8', &AF_INET, $printer_port, $address);
socket(PRINTER, &PF_INET, &SOCK_STREAM, $protocol)
|| die "Can't create TCP/IP stream socket: $!";
connect(PRINTER, $sockaddr) || die "Can't contact $printer_host: $!";
while (<STDIN>) { print PRINTER; }
exit 0;
System is 7.0-RELEASE, I got to say it was working on 6.2-RELEASE
Best Regards,
Andy Kosela
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?3cc535c80809240333s1036386fnaa597267f0cf12aa>