diff options
Diffstat (limited to 'grpmi/curl_download')
-rw-r--r-- | grpmi/curl_download/curl_download.pm | 10 |
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(); } |