From 5a09350052ada4a3cf121c6f942170bb8f0922a7 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Tue, 19 Oct 2004 12:39:04 +0000
Subject: Installation with a ftp supplementary media (for mini-isos) : inline
 the mirror list (since fetching it causes weird network problems). Fix the
 handling of relative urls in ftp media when fetching hdlists file.

---
 perl-install/install_steps_interactive.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index a7268817d..8f4ed5102 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -402,8 +402,10 @@ sub askSupplMirror {
     my $u = $o->{updates} ||= {};
     require crypto;
     my @mirrors = do {
-	my $_w = $o->wait_message('', N("Contacting Mandrakelinux web site to get the list of available mirrors..."));
-	crypto::mirrors($o->{distro_type});
+	$o->{distro_type} ||= 'community';
+	#- get the list of mirrors locally, to avoid weird bugs with making an
+	#- http request before ftp at this point of the install
+	crypto::mirrors($o->{distro_type}, 1);
     };
     push @mirrors, '-';
     $o->ask_from_(
@@ -422,7 +424,7 @@ sub askSupplMirror {
 	return $o->ask_from_entry('', $message) || '';
     }
     my $url = "ftp://$u->{mirror}$crypto::mirrors{$u->{mirror}}[1]";
-    $url =~ s!\bmedia/?$!!;
+    $url =~ s!/(?:media/)?main/?\z!!;
     log::l("mirror chosen [$url]");
     return $url;
 }
-- 
cgit v1.2.1