summaryrefslogtreecommitdiffstats
path: root/urpm.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-07-16 14:08:22 +0000
committerFrancois Pons <fpons@mandriva.com>2002-07-16 14:08:22 +0000
commit2cdbfcaf36c3561381a440ca84f2579ce0092776 (patch)
tree784e1a0785b07933f55971ef98979eb7d0cac6ce /urpm.pm
parenta5e21163c70a7a63e1df62871af8a5facae20a0a (diff)
downloadurpmi-2cdbfcaf36c3561381a440ca84f2579ce0092776.tar
urpmi-2cdbfcaf36c3561381a440ca84f2579ce0092776.tar.gz
urpmi-2cdbfcaf36c3561381a440ca84f2579ce0092776.tar.bz2
urpmi-2cdbfcaf36c3561381a440ca84f2579ce0092776.tar.xz
urpmi-2cdbfcaf36c3561381a440ca84f2579ce0092776.zip
3.7-5mdk
Diffstat (limited to 'urpm.pm')
-rw-r--r--urpm.pm10
1 files changed, 4 insertions, 6 deletions
diff --git a/urpm.pm b/urpm.pm
index d12f28fb..81175235 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -132,11 +132,11 @@ sub new {
sub get_proxy {
my $proxy = {
http_proxy => undef ,
+ ftp_proxy => undef ,
user => undef,
pwd => undef
};
local (*F, $_);
- # open F, "$ENV{HOME}/.wgetrc" or return;
open F, "/etc/urpmi/proxy.cfg" or return undef;
while (<F>) {
chomp; s/#.*$//; s/^\s*//; s/\s*$//;
@@ -621,7 +621,7 @@ sub add_distrib_media {
eval {
$urpm->{log}(_("retrieving hdlists file..."));
# $urpm->{sync}({proxy => $urpm->{proxy}}, "$urpm->{cachedir}/partial", reduce_pathname("$url/Mandrake/base/hdlists"));
- $urpm->{sync}({dir => "$urpm->{cachedir}/partial", quiet => 1, proxy => $urpm->{proxy}}, reduce_pathname("$url/Mandrake/base/hdlists"));
+ $urpm->{sync}({dir => "$urpm->{cachedir}/partial", quiet => 0, proxy => $urpm->{proxy}}, reduce_pathname("$url/Mandrake/base/hdlists"));
$urpm->{log}(_("...retrieving done"));
};
$@ and $urpm->{log}(_("...retrieving failed: %s", $@));
@@ -966,8 +966,7 @@ sub update_media {
system("cp", "-a", "$urpm->{statedir}/$medium->{hdlist}", "$urpm->{cachedir}/partial/$basename");
}
eval {
-# $urpm->{sync}({proxy => $urpm->{proxy}}, "$urpm->{cachedir}/partial", reduce_pathname("$medium->{url}/$medium->{with_hdlist}"));
- $urpm->{sync}({ dir => "$urpm->{cachedir}/partial", quiet => 1, proxy => $urpm->{proxy}}, reduce_pathname("$medium->{url}/$medium->{with_hdlist}"));
+ $urpm->{sync}({ dir => "$urpm->{cachedir}/partial", quiet => 0, proxy => $urpm->{proxy}}, reduce_pathname("$medium->{url}/$medium->{with_hdlist}"));
};
if ($@) {
$urpm->{log}(_("...retrieving failed: %s", $@));
@@ -1743,8 +1742,7 @@ sub download_source_packages {
foreach (map { m|([^:]*://[^/:\@]*:)[^/:\@]*(\@.*)| ? "$1xxxx$2" : $_ } @distant_sources) {
$urpm->{log}(" $_") ;
}
-# $urpm->{sync}({proxy => $urpm->{proxy}}, "$urpm->{cachedir}/rpms", @distant_sources);
- $urpm->{sync}({dir => "$urpm->{cachedir}/rpms", quiet => 1, proxy => $urpm->{proxy}}, @distant_sources);
+ $urpm->{sync}({dir => "$urpm->{cachedir}/rpms", quiet => 0, proxy => $urpm->{proxy}}, @distant_sources);
$urpm->{log}(_("...retrieving done"));
};
$@ and $urpm->{log}(_("...retrieving failed: %s", $@));