PERL http/lwp error behind firewall

[mohankumarg]

Hi All,

My standalone PERL script that need to connect to web using HTTP & LWP, throws the error "500 Can't connect to

http://www.google.com:80

(Bad hostname '

http://www.google.com')".

The program works fine when I access intranet web pages.

require HTTP::Request;
require LWP::UserAgent;
require HTTP::Headers;

$h = HTTP::Headers->new;
$h->proxy_authorization_basic("user1", "pass123");
$request = HTTP::Request->new('GET', '

http://www.google.com',

$h);
# $request = HTTP::Request->new('GET', '

http://localhost:8084/servlets-examples/servlet/HelloWorldExample');

print "Created connection: $request", "\n";

$ua = LWP::UserAgent->new;
$response = $ua->request($request);
print "Sent request: ", $response->is_success, "\n";

if ($response->is_success) {
$content = $response->content;
}
else {
$content = 'Error occured';
print STDERR $response->status_line, "\n";
}

When I browse any internet websites through browser, the firewall displays the authentication popup. I can access the websites only after entering the valid network id and password in popup.

Any solution to this problem?

 

[KevinADC]

look through lwpcook and see if there is anything that can help you:

http://search.cpan.org/~gaas/libwww-perl-5.805/lwpcook.pod

------------------------------------------
- Kevin, perl coder unexceptional!

 

[MillerH]

When I browse any internet websites through browser, the firewall displays the authentication popup. I can access the websites only after entering the valid network id and password in popup

One thing that you might not know about is that you can include the user/pass in the actual url string.

[ignore]

http://user:pass@www.yourhost.com/

[/ignore]

However, your problem connecting to google probably centers around the fact that you're not specifying a user agent.

- Miller