#! /usr/bin/perl

# lpr.pl - Send files to a remote RFC1179 print server
#
# Written by Jon Allen (JJ) <jj@jonallen.info>
# This is free software - it may be distributed under the 
# same terms as Perl itself

use strict;
use warnings;
use Net::LPR;

# Configuration
my $server   = '192.168.1.1';
my $username = 'jj';
my $queue    = 'ML4600-RAW';
my $filename = 'C:\PrintFile';

#-------------------------------------------------------------------

undef $/;
open DATA,$filename or die "Cannot open input file: $!";
binmode DATA;
my $data = (<DATA>);
close DATA;

my $lp = new Net::LPR (	    
  StrictRFCPorts => 1,	    
  RemoteServer   => $server,	    
  RemotePort     => 515,
  PrintErrors    => 1, 
  RaiseErrors    => 0 );

$lp->connect() or die "Can't connect: ".$lp->error();
$lp->send_jobs($queue);
my $jobkey = $lp->new_job();
$lp->job_mode_postscript($jobkey);
$lp->job_set_user_id($jobkey,$username);
$lp->job_send_control_file($jobkey);
$lp->job_send_data($jobkey,$data,length $data);
$lp->disconnect;
  
print "File sent to printer $queue on $server\n";

#-------------------------------------------------------------------