aboutsummaryrefslogtreecommitdiffstats
path: root/grpmi/curl_download/curl_download.pm
diff options
context:
space:
mode:
Diffstat (limited to 'grpmi/curl_download/curl_download.pm')
-rw-r--r--grpmi/curl_download/curl_download.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/grpmi/curl_download/curl_download.pm b/grpmi/curl_download/curl_download.pm
index e8583d03..ee887514 100644
--- a/grpmi/curl_download/curl_download.pm
+++ b/grpmi/curl_download/curl_download.pm
@@ -13,17 +13,17 @@ our $VERSION = '1.1';
bootstrap curl_download $VERSION;
sub readproxy (;$) {
- my $proxy = get_proxy(@_);
+ my $proxy = get_proxy($_[0]);
($proxy->{http_proxy} || $proxy->{ftp_proxy} || '',
defined $proxy->{user} ? "$proxy->{user}:$proxy->{pwd}" : '');
}
sub writeproxy {
- my ($proxy, $proxy_user) = @_;
+ my ($proxy, $proxy_user, $o_media_name) = @_;
my ($user, $pwd) = split /:/, $proxy_user;
- set_proxy_config(user => $user);
- set_proxy_config(pwd => $pwd);
- set_proxy_config(http_proxy => $proxy);
+ set_proxy_config(user => $user, $o_media_name);
+ set_proxy_config(pwd => $pwd, $o_media_name);
+ set_proxy_config(http_proxy => $proxy, $o_media_name);
dump_proxy_config();
}