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

@ -3,6 +3,7 @@
- Added configurable sales tax. (Tiffany Patterson / Elite Marketing)
- change: made Text::Aspell optional, nullifying spellchecker if not present
- Fixed a bug where logging in/out would cause a blank page display.
- change: made all LWP user agents use env_proxy
7.1.2
- Fixed a bug that caused workflows to fail if collaboration systems and

View file

@ -296,6 +296,7 @@ sub _get_rss_data {
$rss = Storable::thaw($rss_serial);
} else {
my $ua = LWP::UserAgent->new(timeout => 5);
$ua->env_proxy;
my $response = $ua->get($url);
if (!$response->is_success()) {
$session->errorHandler->warn("Error retrieving url '$url': " .

View file

@ -90,6 +90,7 @@ sub _getLocationData {
unless ($locData->{cityState}) {
my $oldagent;
my $ua = LWP::UserAgent->new;
$ua->env_proxy;
$ua->timeout(10);
$oldagent = $ua->agent();
$ua->agent($self->session->env->get("HTTP_USER_AGENT")); # Act as a proxy.

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;

View file

@ -65,6 +65,7 @@ sub cancelRecurringPayment {
# Set up a user agent that uses cookies and allows POST redirects
$userAgent = LWP::UserAgent->new;
$userAgent->env_proxy;
$userAgent->agent("Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.7.5) Gecko/20041107 Firefox/1.0");
push @{ $userAgent->requests_redirectable }, 'POST';
$userAgent->cookie_jar({});
@ -541,6 +542,7 @@ my $xmlTransactionScript = 'https://secure.paymentclearing.com/cgi-bin/rc/xmltra
# Set up LWP to post the XML to iTransact.
my $userAgent = LWP::UserAgent->new;
$userAgent->env_proxy;
$userAgent->agent("WebGUI ");
my $request = HTTP::Request->new(POST => $xmlTransactionScript);