kieranbarnes Independent PHP, WordPress & CubeCart Programmer

Insert Coin

Bored at work? This script connects to a JetDirect equipped HP printer and uses HP's control language to set the ready message on the LCD display. Takes an IP address and message on the command line. My favorite message is "INSERT COIN".

Keep in mind the limitations of the display when composing your clever verbiage.

#!/usr/bin/perl
# $Id: hpsetdisp.pl 11 2006-03-22 01:21:03Z yaakov $

# hpsetdisp.pl

use strict;
use warnings;

unless (@ARGV) { print "usage: $0 \"\"\n" ; exit }
if ($ARGV[3]) { print "Did you forget the quotes around your clever
message?\n" ; exit }

my $peeraddr = $ARGV[0];
my $rdymsg = $ARGV[1];
chomp $peeraddr;

use IO::Socket;
my $socket = IO::Socket::INET->new(
PeerAddr => $peeraddr,
PeerPort => "9100",
Proto => "tcp",
Type => SOCK_STREAM
) or die "Could not create socket: $!";

my $data = <
\e%-12345X\@PJL JOB
\@PJL RDYMSG DISPLAY="$rdymsg"
\@PJL EOJ
\e%-12345X
EOJ
;

print $socket $data;