1

Description

This small script is NOT my work, its borrowed from here (http://miscellany.kovaya.com/2007/10/insert-coin.html) so i can’t take all the credit I am just sharing the fun :wink:

This small perl script allows you to change the ready message on a networked HP Laserjet printer, please see the link above for more detail but it uses a standard HP command to do this party trick. Also it only takes a power cycle to return the ready message back to standard.

Enjoy

P.s your using this at your own risk, if it breaks don’t come crying to me, I won’t care!

Source Code

#!/usr/bin/perl

  # $Id: hpsetdisp.pl 2 2008-07-10 00:05:58Z yaakov $

  # hpsetdisp.pl  
  # 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.
  # 
  # THIS PROGRAM IS PROVIDED WITH NO WARRANTY OF ANY KIND EXPRESSED OR IMPLIED
  # THE AUTHOR CANNOT BE RESPONSIBLE FOR THE EFFECTS OF THIS PROGRAM
  # IF YOU ARE UNCERTAIN ABOUT THE ADVISABILITY OF USING IT, DO NOT!
  #
  # Yaakov (http://kovaya.com/)

use strict;
use warnings;

unless (@ARGV) { print "usage: $0 <ip address> \"<RDYMSG>\"\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 = <<EOJ
\e%-12345X\@PJL JOB
\@PJL RDYMSG DISPLAY="$rdymsg"
\@PJL EOJ
\e%-12345X
EOJ
;

print $socket $data;

Screenshots

insert_coin.jpg

8 Spice ups
2

Brilliant! i can already see my users going back to there desks to try and find some change…

3

I feel to downgrade just for the jokes!

4

Glad April fools is coming, this may make an appearence

5

I used this on 4/2/12 and it worked perfectly! So much fun watching so much fail!

6

Epic.

7

Can be done with a simple telnet too… Did it a few months ago and made my printer say “Stay Spicy”

8

Make it stay spicy click here for setup > https://www.123hpcomlaserjet.com