From 3dff32bd82777791e8e1213dd51b2c784e1cd2d5 Mon Sep 17 00:00:00 2001
From: Alexandre Morignot <erdnaxeli@cervoi.se>
Date: Sat, 13 Jun 2015 23:01:10 +0200
Subject: [PATCH] use proxy env configuration
---
lib/sites/mixcloud.pm | 5 ++++-
lib/sites/youtube.pm | 5 ++++-
lib/sites/zippy.pm | 5 +++--
3 files changed, 11 insertions(+), 4 deletions(-)
diff --git a/lib/sites/mixcloud.pm b/lib/sites/mixcloud.pm
index a34c305..5d4d21a 100644
--- a/lib/sites/mixcloud.pm
+++ b/lib/sites/mixcloud.pm
@@ -9,7 +9,10 @@ sub get {
$url =~ s/www/api/;
my %infos;
- my $ua = LWP::UserAgent->new(timeout => 30);
+ my $ua = LWP::UserAgent->new(
+ timeout => 30,
+ env_proxy => 1,
+ );
my $response = $ua->get($url);
die($response->status_line) unless ($response->is_success);
diff --git a/lib/sites/youtube.pm b/lib/sites/youtube.pm
index e0901f9..6104baa 100644
--- a/lib/sites/youtube.pm
+++ b/lib/sites/youtube.pm
@@ -18,7 +18,10 @@ BEGIN {
sub get {
my $id = shift;
- my $ua = LWP::UserAgent->new(timeout => 30);
+ my $ua = LWP::UserAgent->new(
+ timeout => 30,
+ env_proxy => 1,
+ );
my $response = $ua->get($endpoint
.'/videos?id='.$id
.'&key='.$conf->{'youtube_api_key'}
diff --git a/lib/sites/zippy.pm b/lib/sites/zippy.pm
index 5bb553f..fc77b40 100644
--- a/lib/sites/zippy.pm
+++ b/lib/sites/zippy.pm
@@ -13,8 +13,9 @@ sub get {
my ($url) = @_;
my $ua = LWP::UserAgent->new(
- agent => "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13 GTB7.1",
- timeout => 30
+ agent => "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13 GTB7.1",
+ timeout => 30,
+ env_proxy => 1,
);
my $response = $ua->get($url);
--
GitLab