<html><div style='background-color:'><DIV class=RTE>
<P>Walter,</P>
<P>Thanks for the tip, but unfortunately, it didn't return much useful information.</P>
<P>LWP::UserAgent::new: ()<BR>LWP::UserAgent::proxy: http <A href="http://ttt.ww.xxx.yyy:8080/">http://ttt.ww.xxx.yyy:8080/</A><BR>Uncaught exception from user code:<BR> (object method call) Can't set http to proxy server: $!=</P>
<P>Well, we now know for sure that the module thinks it knows what it's doing. But we still don't know what the OS thinks it's suppose to be doing or not doing. If the OS thought something bad was being tried you'd think it would log an exception, but the server engineer says he is looking at the logs and seeing nothing that pertains to this proxy setting thingy.</P>
<P>thx, Jason<BR><BR><BR></P><BR><BR><BR>From: Walter Pienciak <wpiencia@thunderdome.ieee.org><BR>Reply-To: Walter Pienciak <wpiencia@thunderdome.ieee.org>,boulder-pm@pm.org<BR>To: boulder-pm@pm.org<BR>Subject: Re: [Boulder.pm] LWP::UserAgent question<BR>Date: Wed, 20 Jul 2005 15:08:13 -0600<BR><BR>On Wed, Jul 20, 2005 at 08:56:02PM +0000, Jason Van Slyke wrote:<BR>><BR>> Hi all,<BR>><BR>> We have a Perl program that runs on a RH Linux 2.1 Advanced Server<BR>> machine that resides behind a firewall. About 99.9% of what it does is<BR>> within that firewall...except for two of my applications (lucky me<BR>> ;'). The appl that uses FTP works fine, but a test script to set the<BR>> http proxy URL is as
follows:<BR>><BR>> #!/usr/bin/perl -w<BR>> use diagnostics;<BR>> use strict ;<BR>> use LWP::UserAgent;<BR>> # intialize proxy setting - this is not working, 29Apr05, jvs<BR>> my $ua = LWP::UserAgent->new<BR>> or die "Can't initialize LWP::UserAgent->new: \$!=$!\n";<BR>> $ua->proxy(http => 'http://ttt.ww.xxx.yyy:8080/')<BR>> or die "(object method call) Can't set http to proxy server:<BR>> \$!=$!\n";<BR>><BR>> Whether run by me or by *root* the result is:<BR>><BR>> Uncaught exception from user
code:<BR>> (object method call) Can't set http to proxy server: $!=<BR>> Sometimes, but not in all cases as the example shows, $!=Illegal seek<BR>><BR>> I have been on 4 conference calls with the a server engineer and a<BR>> firewall engineer and they are telling me that the proxy server never<BR>> hears from my server during our tests.<BR>><BR>> Please tell me that I'm not the only Perl hacker to get caught in this<BR>> web of mystery. Any ideas are welcome.<BR>><BR>> thx, Jason<BR>><BR>> PS: Anybody had enough time to read some (or all I guess) of Perl
Best<BR>> Practices? What did you think of it? My copy showed up Monday and I've<BR>> only read about 10 pages; sounds interesting though.<BR><BR>Jason,<BR><BR>I haven't had to wrestle with this, but I do wonder if<BR><BR> use LWP::Debug qw(+)<BR><BR>would give you anything interesting.<BR><BR>Walter<BR>_______________________________________________<BR>Boulder-pm mailing list<BR>Boulder-pm@pm.org<BR>http://mail.pm.org/mailman/listinfo/boulder-pm<BR></DIV></div></html>