summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-06 09:38:03 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-06 09:38:03 +0000
commit68056bcdfaa733cabef68e1cac5104842a2a7e75 (patch)
tree1574693c14b4985e2cb81049b52a0a1564cbce73 /perl-install
parentf938169defca430389beefecf789b9c00eda854a (diff)
downloaddrakx-backup-do-not-use-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar
drakx-backup-do-not-use-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar.gz
drakx-backup-do-not-use-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar.bz2
drakx-backup-do-not-use-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar.xz
drakx-backup-do-not-use-68056bcdfaa733cabef68e1cac5104842a2a7e75.zip
Make the network supplementary media probe able to find an hdlists file
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm13
-rw-r--r--perl-install/pkgs.pm4
2 files changed, 13 insertions, 4 deletions
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;
}