aboutsummaryrefslogtreecommitdiff
path: root/lib/Arctica/Browser
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Arctica/Browser')
-rw-r--r--lib/Arctica/Browser/Proxy.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Arctica/Browser/Proxy.pm b/lib/Arctica/Browser/Proxy.pm
index a2809b4..b59678d 100644
--- a/lib/Arctica/Browser/Proxy.pm
+++ b/lib/Arctica/Browser/Proxy.pm
@@ -77,8 +77,9 @@ sub new {
};
bless($self, $class_name);
- $self->_set_proxy(8888);
-
+ if ($ENV{'TEKI_PROXY_PORT'} =~ /^(\d{3,})$/) {
+ $self->_set_proxy($1);
+ }
return $self;
}
@@ -93,11 +94,11 @@ sub _set_proxy {
$auth_string = "$username:$password\@";
}
my $proxy_string = "http://$auth_string$hostname:$port";
+
$ENV{'HTTP_PROXY'} = $proxy_string;
$ENV{'http_proxy'} = $proxy_string;
$ENV{'HTTPS_PROXY'} = $proxy_string;
$ENV{'https_proxy'} = $proxy_string;
-
}
1;