Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: WWW::Mechanize and proxy with username/password

by tcf22 (Priest)
on Jun 26, 2003 at 18:12 UTC ( #269344=note: print w/replies, xml ) Need Help??

in reply to WWW::Mechanize and proxy with username/password

I don't believe it is possible to authenticate to a proxy with just LWP::UserAgent. However in the WWW:Mechanize docs it says

If it's possible with LWP::UserAgent, then yes. WWW::Mechanize is a subclass of LWP::UserAgent, so all the wondrous magic of that class is inherited. .

So you should be able to use the same method(using HTTP::Request) to authenticate.

Update:May also want to try using the LWP::Authen modules.
  • Comment on Re: WWW::Mechanize and proxy with username/password

Replies are listed 'Best First'.
Re: Re: WWW::Mechanize and proxy with username/password
by perlhack (Acolyte) on Jun 26, 2003 at 18:33 UTC
    I need to authenticate with a username and password with my proxy. I think your code does not have this part which is my problem.

    Yes I saw the comment in WWW::Mechanize about the subclass of LWP::UserAgent but if LWP::UserAgent doesn't really support the username/password part of the proxy directly then I dont know if it will work with WWW::Mechanize.

    I was able to take my code and replace LWP::UserAgent with WWW::Mechanize to do a get or fetch of a web page and that worked ok. But the other "Mechanize" capabilities of WWW::Mechanize dont seem to remember or inherit or know how to pass my username and password with its requests to the web via the proxy server.

    There must be a way but I cant seem to figure it out and haven't been able to find an example WWW::Mechanize script that has proxy with username/password code shown. I guess that is why I am seeking some wisdom.


      At work, I have set $ENV{HTTP_PROXY} to http://login:password@proxyserver, and it magically works :

      use strict; use WWW::Mechanize; my $agent = WWW::Mechanize->new(); $agent->env_proxy(); $agent->get(''); print $agent->content;
      perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ; # The $d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider ($c = $d->accept())->get_request(); $c->send_response( new #in the HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' # web

Log In?

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

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2023-11-28 13:04 GMT
Find Nodes?
    Voting Booth?

    No recent polls found