Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: LWP::UserAgent and private proxy servers

by tachyon (Chancellor)
on Dec 02, 2004 at 08:40 UTC ( #411687=note: print w/ replies, xml ) Need Help??


in reply to LWP::UserAgent and private proxy servers

It may be as simple as doing this:

$ua->proxy(["http"], "http://username:password@proxy.com");

Or you may find that this code (which does 401 authentication for you) does what you want.

my $ua = LWP::Custom->new(); $ua->proxy(["http"], "http://proxy.com"); $ua->set_basic_credentials( $user, $pass ); package LWP::Custom; use base 'LWP::UserAgent'; # add a set_basic_credentials method, using a closure to remember { my ( $username, $password ); sub set_basic_credentials{ ( $username, $password ) = @_[1..2] } sub get_basic_credentials{ $username, $password }; }

cheers

tachyon


Comment on Re: LWP::UserAgent and private proxy servers
Select or Download Code
Replies are listed 'Best First'.
Re^2: LWP::UserAgent and private proxy servers
by theloanarranger (Acolyte) on Dec 03, 2004 at 03:41 UTC
    Tachyon,

    Thank you so much for your help. The first idea didn't work because LWP::UserAgent couldn't handle the username and password within the url, but the second idea worked wonderfully and you showed me how to extend classes.
    Thanks again,

    Matt Schick
Re^2: LWP::UserAgent and private proxy servers
by Anonymous Monk on Dec 02, 2004 at 10:27 UTC
    is that documented?
      It sure is. Read the proxy attributes section of the documentation.

      davidj

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (12)
As of 2015-09-04 18:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred temperature scale is:










    Results (145 votes), past polls