Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^2: Problem with proxy and LWP

by ladyscifi (Novice)
on Aug 04, 2011 at 16:44 UTC ( [id://918586]=note: print w/replies, xml ) Need Help??


in reply to Re: Problem with proxy and LWP
in thread Problem with proxy and LWP

Unfortunately, I won't be able to change the customer's firewall. Here's my latest attempt:

use strict; use warnings; use LWP::UserAgent; use LWP::Authen::Ntlm; use HTTP::Request::Common; print "creating agent\n"; my $ua = LWP::UserAgent->new(keep_alive=>1); $ua->timeout(10); print "setting credentials\n"; $ua->credentials('http://192.168.1.6:8080', '', 'IR\\nicolew', 'asdf') +; my $req = GET 'http://www.yahoo.com'; print "Getting site...\n"; my $res = $ua->request($req); print "returning info\n"; if ($res->is_success) { print $res->decoded_content; } else { print $res->status_line, "\n"; } exit 0;
and the output is:

creating agent
setting credentials
Getting site...
returning info
500 Can't connect to www.yahoo.com:80 (connect: Unknown error)

Replies are listed 'Best First'.
Re^3: Problem with proxy and LWP
by ladyscifi (Novice) on Aug 04, 2011 at 16:48 UTC
    I forgot to add that this same code works fine when I run it from my home network (no firewall, no proxy). I don't know which element is causing my issues. I suspect it's not the proxy just because the error is a 500 and not a 407.

      I left out a line. That wasn't even going through the proxy. Sheesh!

      use strict; use warnings; use LWP::UserAgent; use LWP::Authen::Ntlm; use HTTP::Request::Common; print "creating agent\n"; my $ua = LWP::UserAgent->new(keep_alive=>1); $ua->timeout(10); print "setting credentials\n"; $ua->proxy('http','http://192.168.1.6:8080'); $ua->credentials('http://192.168.1.6:8080', '', 'IR\\nicolew', 'asdf') +; my $req = GET 'http://www.yahoo.com'; print "Getting site...\n"; my $res = $ua->request($req); print "returning info\n"; if ($res->is_success) { print $res->decoded_content; } else { print $res->status_line, "\n"; } exit 0;

      Before you complain about the credentials line, I want to let you know that I tried the username as 'IR\\nicolew', 'IR\nicolew', 'ir\\nicolew', and 'ir\nicolew'. Same result each time - 407. I don't know what's changed that the error is no longer 502 except they updated our firewall this past weekend and it must have made a difference.

      Also, I'm wondering if I'm using the credentials method incorrectly. It seems to be for sites that require a password - not to authenticate against the proxy. If that's the case, how should I be authenticating against the proxy?

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://918586]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2024-04-24 11:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found