#!/usr/bin/perl
#  Direct-to-printer (old HP Jetdirect style printers) filter
#  to integrate with rhs-printfilters.  
#  Supplied by Joshua Buysse, University of Minnesota

# needs perl 5.004 for IO:Socket
require 5.004;

# Maximum number of times to retry connection
$max_retries = 3600; # at one second each, one hour.

# needed for the dirname() function
use File::Basename;
use IO::Socket;

$config_file = "script.cfg";

open(CONFIG, $config_file) || die "No config file found!";

while (<CONFIG>) {
  chomp;
  s/#.*//;     # no comments
  s/^\s+//;    # no leading white
  s/\s+$//;    # no trailing white

  # If there's nothing left, we're done.
  next unless length;

  # split the fields
  my ($key,$value) = split /\s*=\s*/, $_, 2;

  $config{$key} = $value;
}


# the config hash should contain port and printer_ip as keys

# if the port isn't set, use the default of 9100
$config{'port'} = 9100 unless $config{'port'};
$config{'printer_ip'} || die "Config file does not specify printer IP.";

# now, open a socket to the printer.

$retry_count = 0;

do {
  $socket = IO::Socket::INET->new(PeerAddr => $config{'printer_ip'},
  				  PeerPort => $config{'port'},
				  Proto    => "tcp",
				  Type     => SOCK_STREAM);
  if (! $socket) {
    sleep 1;
    $retry_count++;
  }
} until ($socket || ($retry_count > $max_retries));

$socket || die "Unable to open socket after $retry_count retries.";

for (;;) {
    my ($rin, $win, $ein);
    my ($rout, $wout, $eout);
    $rin = $win = $ein = '';
    vec($rin,fileno(STDIN),1) = 1;
    vec($rin,fileno($socket),1) = 1;
    $ein = $rin | $win;

    my ($nfound,$timeleft) =
    	select($rout=$rin, $wout=$win, $eout=$ein, $timeout);
    if (vec($rout,fileno(STDIN),1)) {
	sysread(STDIN, $buf, 1024) or last;
	print $socket $buf
	    or die "${config{'printer_ip'}}:${config{'port'}}: $!";
    }
    if (vec($rout,fileno($socket),1)) {
	sysread($socket, $buf, 1024) or last;
	print STDERR "$0: ${config{'printer_ip'}}:${config{'port'}}: $buf\n";
    }
}
	
close($socket);