Revision: 54431
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at December 23, 2011 09:11 by chrisaiv
Initial 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 "Your New 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;
Initial URL
Initial Description
I found this script online and thought to myself, "I must use this in the office!" All you need to do is create a name_of_file.pl file, and execute this command in your terminal. $ name_of_file.pl <insert> "Insert message"
Initial Title
Pearl: Modify text screen on HP 4100-4200 Laserjet Printers
Initial Tags
Initial Language
Perl