Make all LWP user agents use env_proxy.

This commit is contained in:
Drake 2006-10-26 20:07:43 +00:00
parent 153b13207f
commit bebf3f159c
5 changed files with 6 additions and 0 deletions

View file

@ -215,6 +215,7 @@ sub setByHTTP {
my $url = shift;
my $ttl = shift;
my $userAgent = new LWP::UserAgent;
$userAgent->env_proxy;
$userAgent->agent("WebGUI/".$WebGUI::VERSION);
$userAgent->timeout(30);
my $header = new HTTP::Headers;