hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Copy messages from printer to stderr.

This commit is contained in:
hjp 2003-01-08 15:41:42 +00:00
parent a1164ac024
commit e643f0affd
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
jetdirectprint/jetdirectprint
View File

@ -56,8 +56,25 @@ do {
$socket || die "Unable to open socket after $retry_count retries.";
while (<STDIN>) {
print $socket $_;
for (;;) {
my ($rin, $win, $ein);
my ($rout, $wout, $eout);
$rin = $win = $ein = '';
vec($rin,fileno(STDIN),1) = 1;
vec($rin,fileno($socket),1) = 1;
$ein = $rin | $win;
my ($nfound,$timeleft) =
select($rout=$rin, $wout=$win, $eout=$ein, $timeout);
if (vec($rout,fileno(STDIN),1)) {
sysread(STDIN, $buf, 1024) or last;
print $socket $buf
or die "${config{'printer_ip'}}:${config{'port'}}: $!";
}
if (vec($rout,fileno($socket),1)) {
sysread($socket, $buf, 1024) or last;
print STDERR "$0: ${config{'printer_ip'}}:${config{'port'}}: $buf\n";
}
}
close($socket);