grpmi/curl_download/curl_download.pm

package curl_download;

use strict;
use urpm::download;

our $VERSION = '1.2';

sub readproxy (;$) {
    my $proxy = get_proxy($_[0]);
    ($proxy->{http_proxy} || $proxy->{ftp_proxy} || '',
        defined $proxy->{user} ? "$proxy->{user}:$proxy->{pwd}" : '');
}

sub writeproxy {
    my ($proxy, $proxy_user, $o_media_name) = @_;
    my ($user, $pwd) = split /:/, $proxy_user;
    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);
    set_proxy_config(ftp_proxy => $proxy, $o_media_name);
    dump_proxy_config();
}

1;
1	package curl_download;
2
3	use strict;
4	use urpm::download;
5
6	our $VERSION = '1.2';
7
8	sub readproxy (;$) {
9	my $proxy = get_proxy($_[0]);
10	($proxy->{http_proxy} \|\| $proxy->{ftp_proxy} \|\| '',
11	defined $proxy->{user} ? "$proxy->{user}:$proxy->{pwd}" : '');
12	}
13
14	sub writeproxy {
15	my ($proxy, $proxy_user, $o_media_name) = @_;
16	my ($user, $pwd) = split /:/, $proxy_user;
17	set_proxy_config(user => $user, $o_media_name);
18	set_proxy_config(pwd => $pwd, $o_media_name);
19	set_proxy_config(http_proxy => $proxy, $o_media_name);
20	set_proxy_config(ftp_proxy => $proxy, $o_media_name);
21	dump_proxy_config();
22	}
23
24	1;