From 8b85691bd6dc066b3cc0406f5d6e01ae26cb99c9 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 30 Jul 2004 01:02:25 +0000
Subject: Probe for hdlist/synthesis in new media structure

---
 urpm.pm | 46 +++++++++++++++-------------------------------
 1 file changed, 15 insertions(+), 31 deletions(-)

(limited to 'urpm.pm')

diff --git a/urpm.pm b/urpm.pm
index 2533c78c..931c593b 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -816,32 +816,14 @@ sub remove_selected_media {
 sub _probe_with_try_list {
     my ($suffix, $probe_with) = @_;
     my @probe = (
-	"synthesis.hdlist$suffix.cz",
-	"../base/synthesis.hdlist$suffix.cz",
-	"../synthesis.hdlist$suffix.cz",
-    );
-    length($suffix) and unshift @probe, "synthesis.hdlist.cz";
-    length($suffix) or push @probe, (
-	"../base/synthesis.hdlist1.cz",
-	"../base/synthesis.hdlist2.cz",
-	"../synthesis.hdlist1.cz",
-	"../synthesis.hdlist2.cz",
-	"synthesis.hdlist1.cz",
-	"synthesis.hdlist2.cz",
+	"media_info/synthesis.hdlist.cz",
+	"../media_info/synthesis.hdlist_$suffix.cz",
+	"synthesis.hdlist.cz",
     );
     my @probe_hdlist = (
-	"hdlist$suffix.cz",
-	"../base/hdlist$suffix.cz",
-	"../hdlist$suffix.cz",
-    );
-    length($suffix) and push @probe_hdlist, "hdlist.cz";
-    length($suffix) or push @probe_hdlist, (
-	"../base/hdlist1.cz",
-	"../base/hdlist2.cz",
-	"../hdlist1.cz",
-	"../hdlist2.cz",
-	"hdlist1.cz",
-	"hdlist2.cz",
+	"media_info/hdlist.cz",
+	"../media_info/hdlist_$suffix.cz",
+	"hdlist.cz",
     );
     if ($probe_with =~ /synthesis/) {
 	push @probe, @probe_hdlist;
@@ -898,6 +880,12 @@ sub reconfig_urpmi {
     $reconfigured;
 }
 
+sub _guess_hdlist_suffix {
+    my ($dir) = @_;
+    my ($suffix) = $dir =~ m{\bmedia/(\w+)/*$};
+    $suffix;
+}
+
 #- Update the urpmi database w.r.t. the current configuration.
 #- Takes care of modifications, and tries some tricks to bypass
 #- the recomputation of base files.
@@ -1019,9 +1007,7 @@ this could happen if you mounted manually the directory when creating the medium
 	    #- try to probe for possible with_hdlist parameter, unless
 	    #- it is already defined (and valid).
 	    if ($options{probe_with} && (!$medium->{with_hdlist} || ! -e "$dir/$medium->{with_hdlist}")) {
-		my ($suffix) = $dir =~ m|RPMS([^/]*)/*$|;
-
-		foreach (_probe_with_try_list($suffix, $options{probe_with})) {
+		foreach (_probe_with_try_list(_guess_hdlist_suffix($dir), $options{probe_with})) {
 		    if (-e "$dir/$_" && -s _ > 32) {
 			$medium->{with_hdlist} = $_;
 			last;
@@ -1441,15 +1427,13 @@ this could happen if you mounted manually the directory when creating the medium
 	    $urpm->{log}(N("retrieving source hdlist (or synthesis) of \"%s\"...", $medium->{name}));
 	    $options{callback} && $options{callback}('retrieve', $medium->{name});
 	    if ($options{probe_with}) {
-		my ($suffix) = $dir =~ m|RPMS([^/]*)/*$|;
 		my @probe_list = (
 		    $medium->{with_hdlist}
 		    ? $medium->{with_hdlist}
-		    : _probe_with_try_list($suffix, $options{probe_with})
+		    : _probe_with_try_list(_guess_hdlist_suffix($dir), $options{probe_with})
 		);
 		foreach my $with_hdlist (@probe_list) {
 		    $basename = basename($with_hdlist) or next;
-
 		    $options{force} and unlink "$urpm->{cachedir}/partial/$basename";
 		    eval {
 			$urpm->{sync}(
@@ -3197,7 +3181,7 @@ urpm - Mandrakesoft perl tools to handle the urpmi database
     my $urpm = new urpm;
     $urpm->read_config();
     $urpm->add_medium('medium_ftp',
-                      'ftp://ftp.mirror/pub/linux/distributions/mandrake-devel/cooker/i586/Mandrake/RPMS',
+                      'ftp://ftp.mirror/pub/linux/distributions/mandrake-devel/cooker/i586/media/main',
                       'synthesis.hdlist.cz',
                       update => 0);
     $urpm->add_distrib_media('stable', 'removable://mnt/cdrom',
-- 
cgit v1.2.1