kieranbarnes do you know where your towel is?

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;

Related posts:

1. WP-o-Matic fix for Wordpress 2.5
   WP-o-Matic makes autoblogging a easy by automatically creating posts from the RSS/Atom feeds you give...
2. What is the difference between ‘learnt’ and ‘learned’?
   Apparently, not much. These are alternative forms of the past tense and past participle of...
3. [Snippet] Forcing Replication Between Domain Controllers
   ...because some people still don't know! Open Active Directory Sites and Services. In the console...

What this article useful to you?

Let me know, buy me a beer!
Alternatively, if you're feeling impecunious, you may like to subscribe to my RSS feed, or see other articles in the Geeky category.