summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm')
-rw-r--r--urpm/md5sum.pm16
-rw-r--r--urpm/media.pm32
2 files changed, 35 insertions, 13 deletions
diff --git a/urpm/md5sum.pm b/urpm/md5sum.pm
index b5d4a7f1..855bfdd1 100644
--- a/urpm/md5sum.pm
+++ b/urpm/md5sum.pm
@@ -8,19 +8,25 @@ sub parse {
my ($md5sum_file) = @_;
my %h = map {
- my ($md5sum, $file) = m|(\S+)\s+(?:\./)?(\S+)|;
+ my ($md5sum, $file) = m|^([0-9-a-f]+)\s+(?:\./)?(\S+)$|i or return;
$file => $md5sum;
- } cat_($md5sum_file);
+ } cat_($md5sum_file) or return;
\%h;
}
+sub check_file {
+ my ($md5sum_file) = @_;
+
+ file_size($md5sum_file) > 32 && parse($md5sum_file);
+}
+
sub from_MD5SUM__or_warn {
my ($urpm, $md5sum_file, $basename) = @_;
$urpm->{debug}(N("examining %s file", $md5sum_file)) if $urpm->{debug};
- my $retrieved_md5sum = parse($md5sum_file)->{$basename}
- or $urpm->{log}(N("warning: md5sum for %s unavailable in MD5SUM file", $basename));
- return $retrieved_md5sum;
+ my $md5sums = parse($md5sum_file) or $urpm->{log}(N("invalid MD5SUM file")), return;
+ $md5sums->{$basename} or $urpm->{log}(N("warning: md5sum for %s unavailable in MD5SUM file", $basename));
+ $md5sums->{$basename};
}
sub compute {
diff --git a/urpm/media.pm b/urpm/media.pm
index 2769c33d..12d7f0cc 100644
--- a/urpm/media.pm
+++ b/urpm/media.pm
@@ -706,11 +706,8 @@ sub add_medium {
# forcing the standard media_info_dir if undefined
$medium->{media_info_dir} ||= 'media_info';
- require urpm::mirrors;
- urpm::mirrors::try($urpm, $medium, sub {
- # this is a little ugly since MD5SUM will be downloaded again later, but it's small enough...
- _download_MD5SUM($urpm, $medium);
- }) or return;
+ # this is a little ugly since MD5SUM will be downloaded again later, but it's small enough...
+ _download_MD5SUM_and_check($urpm, $medium) or return;
}
if ($with_synthesis) {
@@ -1362,7 +1359,26 @@ sub _download_MD5SUM {
unlink $cachedir_MD5SUM;
urpm::download::sync($urpm, $medium,
[ reduce_pathname(_synthesis_dir($medium) . '/MD5SUM') ],
- quiet => 1) && file_size($cachedir_MD5SUM) > 32;
+ quiet => 1) or return;
+ $cachedir_MD5SUM;
+}
+
+sub _download_MD5SUM_and_check {
+ my ($urpm, $medium) = @_;
+
+ my ($err, $cachedir_MD5SUM);
+ require urpm::mirrors;
+ try__maybe_mirrorlist($urpm, $medium, sub {
+ $cachedir_MD5SUM = _download_MD5SUM($urpm, $medium) or $err = $@;
+ $cachedir_MD5SUM && urpm::md5sum::check_file($cachedir_MD5SUM);
+ }) and return $cachedir_MD5SUM;
+
+ if ($cachedir_MD5SUM) {
+ $urpm->{error}(N("invalid MD5SUM file (downloaded from %s)", _synthesis_dir($medium)));
+ } else {
+ $urpm->{error}(N("...retrieving failed: %s", $err));
+ }
+ undef;
}
#- options: callback, force, nomd5sum, probe_with, quiet
@@ -1378,8 +1394,8 @@ sub _update_medium__parse_if_unmodified__remote {
#- to be checked for being valid, nothing can be deduced if no MD5SUM
#- file is present.
- if (!$options->{nomd5sum} && _download_MD5SUM($urpm, $medium)) {
- my $new_MD5SUM = "$urpm->{cachedir}/partial/MD5SUM";
+ if (!$options->{nomd5sum}) {
+ my $new_MD5SUM = _download_MD5SUM_and_check($urpm, $medium) or return;
if ($options->{force} < 2 && _is_statedir_MD5SUM_uptodate($urpm, $medium, $new_MD5SUM)) {
_medium_is_up_to_date($urpm, $medium);
return 'unmodified';