| sunslinger@gmail.com 2006-07-11, 3:57 am |
| Hello everyone,
Hope that someone could lend a hand with this problem.
I'm trying to access an intranet web page in order to fill in some
forms but the obstacle at the moment is the company's proxy and
authentication for the proxy. In my code, i tried accessing google with
the same failed result. And btw, I do not know how to get the realm
field under $mech->credentials. If someone could enlighten me, it would
be very much appreciated!!
Here's my code:
use WWW::Mechanize;
use LWP::UserAgent;
use MIME::Base64;
use strict;
my $url = 'http://www.google.com';
my $proxy = 'http://someproxy.com:80/';
my $alias = 'Windows IE 6';
my $username = 'user';
my $password = 'passwd';
my $mech = WWW::Mechanize->new( autocheck => 1, agent => $alias);
$mech->proxy('http', 'ftp', $proxy);
$ENV{'http_proxy'} = $proxy;
my @args = (
Authorization => "Basic" . MIME::Base64::encode( $username . ":" .
$password )
);
$mech->credentials( $proxy, "MOCPROXY04", $username, $password );
$mech->get( $url );
$mech->get( $url, @args );
my $response = $mech->response();
for my $key ( $response->header_field_names() ) {
print $key, ":", $response->header( $key ), "\n";
}
Here's the compilation result:
Error GETing http://www.google.com: Proxy Authentication Required ( The
ISA Server requires authorization to fulfill the request. Access to the
Web Proxy service is denied. ) at mech.pl line 22
|