[Boulder.pm] LWP::UserAgent question

[Walter Pienciak]

On Wed, Jul 20, 2005 at 08:56:02PM +0000, Jason Van Slyke wrote:
> 
>    Hi all,
> 
>    We have a Perl program that runs on a RH Linux 2.1 Advanced Server
>    machine that resides behind a firewall. About 99.9% of what it does is
>    within that firewall...except for two of my applications (lucky me
>    ;'). The appl that uses FTP works fine, but a test script to set the
>    http proxy URL is as follows:
> 
>    #!/usr/bin/perl -w
>    use diagnostics;
>    use strict ;
>    use LWP::UserAgent;
>    # intialize proxy setting - this is not working, 29Apr05, jvs
>    my $ua = LWP::UserAgent->new
>        or die "Can't initialize LWP::UserAgent->new: \$!=$!\n";
>    $ua->proxy(http => 'http://ttt.ww.xxx.yyy:8080/')
>        or die "(object method call) Can't set http to proxy server:
>    \$!=$!\n";
> 
>    Whether run by me or by *root* the result is:
> 
>    Uncaught exception from user code:
>            (object method call) Can't set http to proxy server: $!=
>    Sometimes, but not in all cases as the example shows, $!=Illegal seek
> 
>    I have been on 4 conference calls with the a server engineer and a
>    firewall engineer and they are telling me that the proxy server never
>    hears from my server during our tests.
> 
>    Please tell me that I'm not the only Perl hacker to get caught in this
>    web of mystery. Any ideas are welcome.
> 
>    thx, Jason
> 
>    PS: Anybody had enough time to read some (or all I guess) of Perl Best
>    Practices? What did you think of it? My copy showed up Monday and I've
>    only read about 10 pages; sounds interesting though.

Jason,

I haven't had to wrestle with this, but I do wonder if

  use LWP::Debug qw(+)

would give you anything interesting.

Walter