LWP::Simple request through a proxy

[freak]

will this code make an LWP::Simple requst throgh LWP::UserAgent proxy ? :

require LWP::UserAgent;
use LWP::Simple;
my $ua = LWP::UserAgent->new;
$ua->timeout(5);
$ua->cookie_jar({ file => "$ENV{'HOME'}/lwp_cookies.dat" });
$x = "google.com";
$ua->proxy('http', "http://$x");
$content = get("http://flash.udaff.com/");
die "Couldn't get it!" unless defined $content;
print "Done\n";

Edit by Corion: I had to put <code> ... </code> tags around the parts of the post to make these look like Perl code. The advantage of doing so is that the post looks much better, both in the preview and in the final post.

[Abigail-II]

Your code isn't doing an LWP::Simple request. It's doing its request through LWP::UserAgent (LWP::Simple will use LWP::UserAgent itself as well). Do one to three things:
• Forget about LWP::Simple. You seem to cope with LWP::UserAgent fine.
• Use LWP::Simple, and have it export $ua. Set up the proxy through $au, as in your code (But the method above is just as easy).
• Either use LWP::UserAgent or LWP::Simple as described above, and setup the proxy using environment variables and a call to $au -> env_proxy.
Futher note that the second argument of the proxy method must be the proxy you are using - not the site you want to reach via a proxy.

Abigail

[Anonymous Monk]

Step two above is exactly what I wanted but I wasn't quite sure exactly what was required but I am now so for others for future reference:

   # use proxy (comment out if not)
   my %proxy = ( host => 'http://proxy:8080' );

   use LWP::Simple qw(mirror RC_OK RC_NOT_MODIFIED $ua);

   $ua->proxy(http => "$proxy{host}") if (defined $proxy{host});

You can see I'm just interested in using mirror.

[dave_the_m]

Well, the code looks plausible, except that the value in $x should be the URL of the proxy server, while the argument to get() should be the URL of the site you want to get from.