Hello everyone,
> Here's the script I use (found on this list)
>
> #!/usr/bin/perl
> use IO;
> use Socket;
> use strict;
>
> my $ipaddr = '130.104.3.15:9100';
> my $sock=IO::Socket::INET->new(PeerAddr =>$ipaddr, Proto => 'tcp', Type =>
> SOCK_
> STREAM) or die "socket : $!";
> my $eol="\x0a";
> my $esc="\x1B";
> my $pagecount="$esc\%-12345X\@PJL JOB$eol" . "\@PJL INFO PAGECOUNT $eol" .
> "$esc
> \%-12345x";
> my $stuff;
> $sock->send("$pagecount");
> $sock->recv($stuff, 1024);
> print "Received : $stuff\n";
> close $sock;
How do this script do for local printer?
How do it write on bash?
Thanks.
-----------------------------------------------------------------------------
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.
-----------------------------------------------------------------------------
