From 0f8a019a045eedcbe204c510bd1ab28d1ee9f771 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 1 Jul 2004 07:18:30 +0000 Subject: Ability to set a proxy for only one media in the software media manager --- grpmi/curl_download/curl_download.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'grpmi') 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(); } -- cgit v1.2.1