On 10/18/02 5:31 PM, "Charles Albrecht" <[EMAIL PROTECTED]> wrote:
> If you're looking for an LPR connection, Net::LPR has recently been released.
> I haven't checked it with MacPerl, but at first glance, it looks like it
> should be more than capable of handling this with some minimal Mac OS
> wrappers.
Out of curiosity I decided to give Net::LPR a whirl, and it sort of works
under MacPerl. Problems are:
- A getpwuid call needs replacing (I'm using $ENV{USER})
- There's a hang in the "send_jobs" method using getc() to read a status
byte from the printer, I presume because getc() is blocking waiting for the
byte which never arrives. The IO::Handle is not set to autoflush and
send_jobs flushes before the read (the flush is done to send the command to
the spooler), so I'm not sure where the byte has gone. Flush clears the
input buffer as well, is that killing the incoming byte? It works fine under
darwin perl, so this could be GUSI-specific...
Anyone have a suggestion? I've not used the IO::Handle stuff for sockets
before. If this kink can be worked out I've got a sample droplet I can send
Jeff that should help get him started.
Alex
--
Alex Harper [EMAIL PROTECTED]
"Eternity is a terrible thought. I mean, where's it going to end?"
- Tom Stoppard
