Re: LWP::UserAgent and private proxy servers

[tachyon]

in reply to LWP::UserAgent and private proxy servers

It may be as simple as doing this:

$ua->proxy(["http"], "http://username:[e-mail]");

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 };
}

[Anonymous Monk]

is that documented?

[davidj]

It sure is. Read the proxy attributes section of the documentation.

davidj

[theloanarranger]

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