From 68056bcdfaa733cabef68e1cac5104842a2a7e75 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 6 Sep 2004 09:38:03 +0000
Subject: Make the network supplementary media probe able to find an hdlists
 file

---
 perl-install/install_any.pm | 13 +++++++++++--
 perl-install/pkgs.pm        |  4 ++--
 2 files changed, 13 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ae52df299..057fe4115 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -441,8 +441,8 @@ sub selectSupplMedia {
 		useMedium($medium_name);
 
 		#- probe for an hdlists file and then look for all hdlists listed herein
-		eval { pkgs::psUsingHdlists($o, $suppl_method, "/mnt/cdrom/media/media_info/hdlists", $o->{packages}, '1s') };
-		log::l("psUsingHdlists failed: $@");
+		eval { pkgs::psUsingHdlists($o, $suppl_method, "/mnt/cdrom/", $o->{packages}, $medium_name) };
+		log::l("psUsingHdlists failed: $@") if $@;
 
 		#- copy latest compssUsers.pl and rpmsrate somewhere locally
 		getAndSaveFile("/mnt/cdrom/media/media_info/compssUsers.pl", "/tmp/compssUsers.pl");
@@ -468,6 +468,15 @@ sub selectSupplMedia {
 	    my $url = $o->ask_from_entry('', N("URL of the mirror?")) or return '';
 	    useMedium($medium_name);
 	    require "$suppl_method.pm";
+	    #- first, try to find an hdlists file
+	    eval { pkgs::psUsingHdlists($o, $suppl_method, "$url/", $o->{packages}, $medium_name) };
+	    if ($@) {
+		log::l("psUsingHdlists failed: $@");
+	    } else {
+		useMedium($prev_asked_medium); #- back to main medium
+		return $suppl_method;
+	    }
+	    #- then probe for an hdlist.cz
 	    my $f = eval {
 		if ($suppl_method eq 'http') {
 		    http::getFile("$url/media_info/hdlist.cz");
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 87f29b11f..c0105b055 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -380,7 +380,7 @@ sub psUpdateHdlistsDeps {
 sub psUsingHdlists {
     my ($o, $method, $o_hdlistsfile, $o_packages, $o_initialmedium) = @_;
     my $prefix = $o->{prefix};
-    my $listf = install_any::getFile($o_hdlistsfile || 'media/media_info/hdlists')
+    my $listf = install_any::getFile($o_hdlistsfile . 'media/media_info/hdlists')
 	or die "no hdlists found";
     my ($suppl_CDs, $deselectionAllowed) = (0, 0);
     if (!$o_packages) {
@@ -406,7 +406,7 @@ sub psUsingHdlists {
 	m/^\s*(noauto:)?(hdlist\S*\.cz2?)\s+(\S+)\s*(.*)$/ or die qq(invalid hdlist description "$_" in hdlists file);
 	push @hdlists, [ $2, $medium_name, $3, $4, !$1, 
 	    #- hdlist path, suppl CDs are mounted on /mnt/cdrom :
-	    $cdsuppl ? "/mnt/cdrom/media/media_info/$2" : undef,
+	    $o_hdlistsfile ? "$o_hdlistsfile/media/media_info/$2" : undef,
 	];
 	$cdsuppl ? ($medium_name = ($medium_name + 1) . 's') : ++$medium_name;
     }
-- 
cgit v1.2.1