Make all LWP user agents use env_proxy.
This commit is contained in:
parent
153b13207f
commit
bebf3f159c
5 changed files with 6 additions and 0 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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': " .
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue