Ryan Novosielski wrote:
> 
> At some point in my accounting scripts, I send a print job for users who
> are out of quota that has this message on it and instructions to resolve
> it. I send it lpr -Y to make sure that this job does not get held as well
> as the job they tried to send (it'd do no good if they never saw it).
> However, ifhp then does not update the LED.
> 
> How can I, in perl, send a message to the printer such that it will change
> its LED to read something like "USER novosirj OUT OF QUOTA" or something
> like this? I'm not really sure of the proper way to open the line of
> communcation in perl to do this, nor what PJL commands to send to it. Can
> anyone help me out, 'cuz someone probably already knows, rather than
> having me RTFM a lot?

Here's PJL code to set something into the display on an HP4000:

<esc>%-12345X@PJL
@PJL COMMENT Set the printer display (2 lines of 16 char)
@PJL JOB NAME = "Set display"
@PJL RDYMSG DISPLAY "1234567890123456abcdefghijklmnop"
@PJL EOJ NAME = "Set display"
<esc>%-12345X

<esc> means the escape character, octal 033 (hex 1B).  You might
try using something like the 'lpr_in_perl' script in the UTILS
subdirectory of the LPRng distro.

Yours,

-- Howard
 
--------------------------------------------------------------------
Dipl.-Phys. Howard Schultens                    Tel: +49 551 39-5914
Zentrum Physiologie                             FAX: +49 551 39-5923
Humboldtallee 23
37073 Goettingen   mailto:[EMAIL PROTECTED]
Germany               http://www.neuro-physiol.med.uni-goettingen.de
--------------------------------------------------------------------

-----------------------------------------------------------------------------
YOU MUST BE A LIST MEMBER IN ORDER TO POST TO THE LPRNG MAILING LIST
The address you post from MUST be your subscription address

If you need help, send email to [EMAIL PROTECTED] (or lprng-requests
or lprng-digest-requests) with the word 'help' in the body.  For the impatient,
to subscribe to a list with name LIST,  send mail to [EMAIL PROTECTED]
with:                           | example:
subscribe LIST <mailaddr>       |  subscribe lprng-digest [EMAIL PROTECTED]
unsubscribe LIST <mailaddr>     |  unsubscribe lprng [EMAIL PROTECTED]

If you have major problems,  send email to [EMAIL PROTECTED] with the word
LPRNGLIST in the SUBJECT line.
-----------------------------------------------------------------------------

Reply via email to