o replace /var/lib/urpmi/MD5SUM with /var/lib/urpmi/MD5SUM.<medium_name>

    (this will allow checking xml media_info is up-to-date even if we don't
    update it at the same time as synthesis is updated)

and further cleanup urpm::media code
(esp. modify {force} behaviour, may need some adjustments)

2 files changed, 68 insertions, 141 deletions

diff --git a/urpm/md5sum.pm b/urpm/md5sum.pm
index 05176086..73870dba 100644
--- a/urpm/md5sum.pm
+++ b/urpm/md5sum.pm
@@ -4,48 +4,25 @@ use urpm;
 use urpm::util;
 use urpm::msg;
 
+sub parse {
+    my ($md5sum_file) = @_;
 
-#- parse an MD5SUM file from a mirror
-sub from_MD5SUM {
-    my ($md5sum_file, $f) = @_;  
-    my $basename = basename($f);
-
-    my ($retrieved_md5sum) = map {
+    my %h = map {
 	my ($md5sum, $file) = m|(\S+)\s+(?:\./)?(\S+)|;
-	$file && $file eq $basename ? $md5sum : @{[]};
+	$file => $md5sum;
     } cat_($md5sum_file);
 
-    $retrieved_md5sum;
+    \%h;
 }
 
 sub from_MD5SUM__or_warn {
     my ($urpm, $md5sum_file, $basename) = @_;
     $urpm->{log}(N("examining %s file", $md5sum_file));
-    my $retrieved_md5sum = from_MD5SUM($md5sum_file, $basename) 
+    my $retrieved_md5sum = parse($md5sum_file)->{$basename} 
       or $urpm->{log}(N("warning: md5sum for %s unavailable in MD5SUM file", $basename));
     return $retrieved_md5sum;
 }
 
-sub on_local_medium {
-    my ($urpm, $medium, $force) = @_;
-    if ($force) {
-	#- force downloading the file again, else why a force option has been defined ?
-	delete $medium->{md5sum};
-    } else {
-	$medium->{md5sum} ||= compute_on_local_medium($urpm, $medium);
-    }
-    $medium->{md5sum};
-}
-
-sub compute_on_local_medium {
-    my ($urpm, $medium) = @_;
-
-    require urpm::media; #- help perl_checker
-    my $f = urpm::media::statedir_synthesis($urpm, $medium);
-    $urpm->{log}(N("computing md5sum of existing source synthesis [%s]", $f));
-    -e $f && compute($f);
-}
-
 sub compute {
     my ($file) = @_;
     eval { require Digest::MD5 };
diff --git a/urpm/media.pm b/urpm/media.pm
index 1248ca9c..829962c3 100644
--- a/urpm/media.pm
+++ b/urpm/media.pm
@@ -139,13 +139,6 @@ sub read_config {
     }
 
     eval { require urpm::ldap; urpm::ldap::load_ldap_media($urpm) };
-
-    #- read MD5 sums (not in urpmi.cfg but in a separate file)
-    foreach (@{$urpm->{media}}) {
-	if (my $md5sum = urpm::md5sum::from_MD5SUM("$urpm->{statedir}/MD5SUM", statedir_synthesis($urpm, $_))) {
-	    $_->{md5sum} = $md5sum;
-	}
-    }
 }
 
 #- if invalid, set {ignore}
@@ -256,6 +249,10 @@ sub statedir_names {
     my ($urpm, $medium) = @_;
     $medium->{name} && "$urpm->{statedir}/names.$medium->{name}";
 }
+sub statedir_MD5SUM {
+    my ($urpm, $medium) = @_;
+    $medium->{name} && "$urpm->{statedir}/MD5SUM.$medium->{name}";
+}
 sub cachedir_with_synthesis {
     my ($urpm, $medium) = @_;
     _url_with_synthesis($medium) && "$urpm->{cachedir}/partial/" . _url_with_synthesis_basename($medium);
@@ -312,21 +309,6 @@ sub probe_removable_device {
 }
 
 
-sub write_MD5SUM {
-    my ($urpm) = @_;
-
-    #- write MD5SUM file
-    my $fh = urpm::sys::open_safe($urpm, '>', "$urpm->{statedir}/MD5SUM") or return 0;
-    foreach my $medium (grep { $_->{md5sum} } @{$urpm->{media}}) {
-	my $s = basename(statedir_synthesis($urpm, $medium));
-	print $fh "$medium->{md5sum}  $s\n";
-    }
-
-    $urpm->{log}(N("wrote %s", "$urpm->{statedir}/MD5SUM"));
-
-    delete $urpm->{md5sum_modified};
-}
-
 #- Writes the urpmi.cfg file.
 sub write_urpmi_cfg {
     my ($urpm) = @_;
@@ -355,7 +337,6 @@ sub write_config {
     my ($urpm) = @_;
 
     write_urpmi_cfg($urpm);
-    write_MD5SUM($urpm);
 }
 
 sub _tempignore {
@@ -865,7 +846,6 @@ sub _parse_synthesis__virtual {
 
     delete $medium->{modified};
     $medium->{really_modified} = 1;
-    $urpm->{md5sum_modified} = 1;
 
     _parse_synthesis_or_ignore($urpm, $medium);
 }
@@ -890,20 +870,6 @@ sub generate_medium_names {
 }
 
 
-sub _read_existing_synthesis_if_same_md5sum {
-    my ($urpm, $medium, $retrieved_md5sum) = @_;
-
-    #- if an existing synthesis file has the same md5sum, we assume the
-    #- files are the same.
-    #- if local md5sum is the same as distant md5sum, this means there is no need to
-    #- download synthesis file again.
-    $retrieved_md5sum && $medium->{md5sum} eq $retrieved_md5sum or return;
-
-    _read_existing_synthesis($urpm, $medium);
-
-    1;
-}
-
 sub _read_existing_synthesis {
     my ($urpm, $medium) = @_;
 
@@ -1053,30 +1019,15 @@ sub get_synthesis__remote {
     }
 }
 
-sub get_synthesis_and_check_md5sum__local {
-    my ($urpm, $medium, $retrieved_md5sum, $callback) = @_;
-
-    get_synthesis__local($urpm, $medium, $callback) or return;
-
-    #- keep checking md5sum of file just copied ! (especially on nfs or removable device).
-    if ($retrieved_md5sum) {
-	$urpm->{log}(N("computing md5sum of copied source synthesis"));
-	urpm::md5sum::compute(cachedir_with_synthesis($urpm, $medium)) eq $retrieved_md5sum or
-	  $urpm->{error}(N("copy of [%s] failed (md5sum mismatch)", _url_with_synthesis($medium))), return;
-    }
-
-    1;
-}
-sub get_synthesis_and_check_md5sum__remote {
-    my ($urpm, $medium, $retrieved_md5sum, $callback, $quiet) = @_;
-
-    get_synthesis__remote($urpm, $medium, $callback, $quiet) or return;
+#- check copied/downloaded file has right signature.
+sub check_synthesis_md5sum {
+    my ($urpm, $medium) = @_;
 
-    #- check downloaded file has right signature.
-    if ($retrieved_md5sum) {
+    my $wanted_md5sum = urpm::md5sum::from_MD5SUM__or_warn($urpm, "$urpm->{cachedir}/partial/MD5SUM", 'synthesis.hdlist.cz');
+    if ($wanted_md5sum) {
 	$urpm->{log}(N("computing md5sum of retrieved source synthesis"));
-	urpm::md5sum::compute(cachedir_with_synthesis($urpm, $medium)) eq $retrieved_md5sum or
-	    $urpm->{error}(N("...retrieving failed: md5sum mismatch")), return;
+	urpm::md5sum::compute(cachedir_with_synthesis($urpm, $medium)) eq $wanted_md5sum or
+	    $urpm->{error}(N("copy of [%s] failed (md5sum mismatch)", _url_with_synthesis($medium))), return;
     }
     1;
 }
@@ -1096,6 +1047,16 @@ sub _call_genhdlist2 {
     1;
 }
 
+sub _is_statedir_MD5SUM_uptodate {
+    my ($urpm, $medium, $new_MD5SUM) = @_;
+
+    my $current_MD5SUM = statedir_MD5SUM($urpm, $medium);
+
+    $urpm->{log}(N("comparing %s and %s", $new_MD5SUM, $current_MD5SUM));
+
+    cat_($new_MD5SUM) eq cat_($current_MD5SUM);
+}
+
 #- options: callback, force, nomd5sum, nopubkey, probe_with
 sub _update_medium__parse_if_unmodified__local {
     my ($urpm, $medium, $options) = @_;
@@ -1139,45 +1100,38 @@ this could happen if you mounted manually the directory when creating the medium
 	_call_genhdlist2($urpm, $medium) or return '';
 	1;
     } elsif (_synthesis_dir($medium)) {
-	    my ($retrieved_md5sum);
-
-	    if (!$options->{nomd5sum} && file_size(_synthesis_dir($medium) . '/MD5SUM') > 32) {
-		$retrieved_md5sum = urpm::md5sum::from_MD5SUM__or_warn($urpm, _synthesis_dir($medium) . '/MD5SUM', 
-								       _url_with_synthesis_basename($medium));
-		if (urpm::md5sum::on_local_medium($urpm, $medium, $options->{force})) {
-		    _read_existing_synthesis_if_same_md5sum($urpm, $medium, $retrieved_md5sum)
-		      and return 'unmodified';
-		}
-	    }
+	my $new_MD5SUM = _synthesis_dir($medium) . '/MD5SUM';
+	unlink "$urpm->{cachedir}/partial/MD5SUM";
 
-	    if (get_synthesis_and_check_md5sum__local($urpm, $medium, $retrieved_md5sum, $options->{callback})) {
+	if (!$options->{nomd5sum} && file_size($new_MD5SUM) > 32) {	
+	    if (!$options->{force} && _is_statedir_MD5SUM_uptodate($urpm, $medium, $new_MD5SUM)) {
+		_read_existing_synthesis($urpm, $medium)
+		  and return 'unmodified';
+	    }
 
-		    $medium->{md5sum} = $retrieved_md5sum if $retrieved_md5sum;
+	    $urpm->{log}(N("copying MD5SUM file of \"%s\"...", $medium->{name}));
+	    copy_and_own($new_MD5SUM, "$urpm->{cachedir}/partial/MD5SUM");
+	}
 
-		    if (!$options->{force}) {
-			_read_existing_synthesis($urpm, $medium)
-			  and return 'unmodified';
-		    }
-		    1;
-	    } else {
-		    #- if copying synthesis has failed, try to build it directly.
-		    if ($urpm->{options}{'build-hdlist-on-error'}) {
-			#- no available synthesis, try to build it from rpms
-			_call_genhdlist2($urpm, $medium) or return '';
-			1;
-		    } else {
-			$urpm->{error}(N("unable to access synthesis file of \"%s\", medium ignored", $medium->{name}));
-			$medium->{ignore} = 1;
-			'';
-		    }
-	    }
+	my $ok = get_synthesis__local($urpm, $medium, $options->{callback});
+	$ok &&= !$options->{force} || check_synthesis_md5sum($urpm, $medium);
+	
+	if ($ok) {
+	    1;
+	} elsif ($urpm->{options}{'build-hdlist-on-error'}) {
+	    #- if copying synthesis has failed, try to build it directly.
+	    _call_genhdlist2($urpm, $medium) or return '';
+	    1;
+	} else {
+	    _ignore_medium_on_parse_error($urpm, $medium);
+	    '';
+	}
     }
 }
 
 #- options: callback, force, nomd5sum, nopubkey, probe_with, quiet
 sub _update_medium__parse_if_unmodified__remote {
     my ($urpm, $medium, $options) = @_;
-    my ($retrieved_md5sum);
 
     #- examine if a distant MD5SUM file is available.
     #- this will only be done if $with_synthesis is not empty in order to use
@@ -1188,15 +1142,14 @@ sub _update_medium__parse_if_unmodified__remote {
 	#- to be checked for being valid, nothing can be deduced if no MD5SUM
 	#- file is present.
 
-	unlink "$urpm->{cachedir}/partial/MD5SUM";
+	my $new_MD5SUM = "$urpm->{cachedir}/partial/MD5SUM";
+	unlink $new_MD5SUM;
 	if (!$options->{nomd5sum} && 
 	      urpm::download::sync($urpm, $medium, 
 				   [ reduce_pathname(_synthesis_dir($medium) . '/MD5SUM') ],
-				   quiet => 1) && file_size("$urpm->{cachedir}/partial/MD5SUM") > 32) {
-	    if (urpm::md5sum::on_local_medium($urpm, $medium, $options->{force} >= 2)) {
-		$retrieved_md5sum = urpm::md5sum::from_MD5SUM__or_warn($urpm, "$urpm->{cachedir}/partial/MD5SUM", 
-								       _url_with_synthesis_basename($medium));
-		_read_existing_synthesis_if_same_md5sum($urpm, $medium, $retrieved_md5sum)
+				   quiet => 1) && file_size($new_MD5SUM) > 32) {
+	    if ($options->{force} < 2 && _is_statedir_MD5SUM_uptodate($urpm, $medium, $new_MD5SUM)) {
+		_read_existing_synthesis($urpm, $medium)
 		  and return 'unmodified';
 	    }
 	}
@@ -1244,18 +1197,13 @@ sub _update_medium__parse_if_unmodified__remote {
 		) or $error->(N("...copying failed")), return;
 	    }
 	}
-	if (get_synthesis_and_check_md5sum__remote($urpm, $medium, $retrieved_md5sum, $options->{callback}, $options->{quiet})) {
-	    $options->{callback} and $options->{callback}('done', $medium->{name});
+	my $ok = get_synthesis__remote($urpm, $medium, $options->{callback}, $options->{quiet});
+	$ok &&= !$options->{force} || check_synthesis_md5sum($urpm, $medium);
 
-	    $medium->{md5sum} = $retrieved_md5sum if $retrieved_md5sum;
+	$options->{callback} and $options->{callback}('done', $medium->{name});
 
-	    if (!$options->{force}) {
-		_read_existing_synthesis($urpm, $medium)
-		  and return 'unmodified';
-	    }
-	} else {
-	    $error->(N("unable to access synthesis file of \"%s\", medium ignored", $medium->{name}));
-	    $medium->{ignore} = 1;
+	if (!$ok) {
+	    _ignore_medium_on_parse_error($urpm, $medium);
 	    return;
 	}
     }
@@ -1349,7 +1297,6 @@ sub _update_medium_first_pass {
 	    } else {
 		$urpm->{error}(N("unable to parse synthesis file of \"%s\"", $medium->{name}));
 		$options{callback} and $options{callback}('failed', $medium->{name});
-		delete $medium->{md5sum};
 
 		#- we have to read back the current synthesis file unmodified.
 		_parse_synthesis_or_ignore($urpm, $medium);
@@ -1362,15 +1309,21 @@ sub _update_medium_first_pass {
 	    }
 
 
+	    #- use new files
+
 	    unlink statedir_synthesis($urpm, $medium);
-	    #- use newly created file.
 	    urpm::util::move(cachedir_with_synthesis($urpm, $medium),
 			     statedir_synthesis($urpm, $medium));
 
+	    unlink statedir_MD5SUM($urpm, $medium);
+	    if (!$medium->{with_synthesis}) { # no MD5SUM when using with_synthesis, urpmi.update will update everytime!
+		urpm::util::move("$urpm->{cachedir}/partial/MD5SUM",
+				 statedir_MD5SUM($urpm, $medium)) if -e "$urpm->{cachedir}/partial/MD5SUM";
+	    }
+
 	#- make sure to rebuild base files and clear medium modified state.
 	$medium->{modified} = 0;
 	$medium->{really_modified} = 1;
-	$urpm->{md5sum_modified} = 1;	
     }
 
     1;
@@ -1461,9 +1414,6 @@ sub update_media {
 	#- write config files in any case
 	write_config($urpm);
 	urpm::download::dump_proxy_config();
-    } elsif ($urpm->{md5sum_modified}) {
-	#- NB: in case of $urpm->{modified}, write_MD5SUM is called in write_config above
-	write_MD5SUM($urpm);
     }
 
     $updates_result{error} == 0;