Ok, that worked! Thanks a lot!
On 3/22/06, DePriest, Jason R. <[EMAIL PROTECTED]> wrote:
> David,
>
> You need to change your environment variables for the operating system.
>
> If you wanted to do it from within the script you could do something like
> this:
> $ENV{HTTP_PROXY} = 'http://username:[EMAIL PROTECTED]:8080/'';
>
> On 3/9/06, David TV <> wrote:
> > Something keeps on failing... Here's the code:
> >
> > use strict;
> > use Data::Dumper;
> > use WWW::Mechanize;
> > use File::Basename;
> >
> > my $http_proxy = 'http://55.6.1.145:8080/';
> > my $http_proxy_pass = 'my_passwd';
> > my $http_proxy_user = 'username';
> >
> > my $m = WWW::Mechanize -> new or die "...ugly...";
> >
> > $m -> get ("http://www.despair.com/indem.html";) or die "...ugly...";
> >
> > my @top_links = @{$m -> links};
> >
> > print Data::Dumper -> Dump ( [\$m], [qw(\$m)] );
> >
> > This dumps the html page returned from the proxy saying that it needs
> > authentication (despite I populated both http username and password):
> > ot says (in a short way): "Unable to complete request:Access denied
> > due to authentication failure."
> >
> > - David
> >
>
--
Un saludo,
#########################
David TV
E-Mail: [EMAIL PROTECTED]
#########################
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
