summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-06 16:02:05 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-06 16:02:05 +0000
commit46e4a32ead925c6195f9482a59552e76c0fc238b (patch)
tree4b590a58021e2d8b925db1bc6dcfb08d78f41492
parenta67c9f6e430eb7aa742659fbb117d5c32115a50e (diff)
downloaddrakx-46e4a32ead925c6195f9482a59552e76c0fc238b.tar
drakx-46e4a32ead925c6195f9482a59552e76c0fc238b.tar.gz
drakx-46e4a32ead925c6195f9482a59552e76c0fc238b.tar.bz2
drakx-46e4a32ead925c6195f9482a59552e76c0fc238b.tar.xz
drakx-46e4a32ead925c6195f9482a59552e76c0fc238b.zip
(mirrors_raw) add product type to URL when fetching mirror list
(Romain d'Alverny's request)
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/mirror.pm2
3 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 653602c28..fd4fad1d9 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- add product type to URL when fetching mirror list
+
Version 11.5 - 6 August 2008
- fix more strange focus bugs
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 1223dfb60..a1759f064 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- add product type to URL when fetching mirror list
+
Version 11.3 - 4 August 2008
- fix spacing around buttons
diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm
index d725429f2..a37955669 100644
--- a/perl-install/mirror.pm
+++ b/perl-install/mirror.pm
@@ -59,7 +59,7 @@ sub mirrors_raw {
#- contact the following URL to retrieve the list of mirrors.
#- http://wiki.mandriva.com/en/Product_id
my $type = lc($product_id->{type}); $type =~ s/\s//g;
- my $list = "http://api.mandriva.com/mirrors/$type.$product_id->{version}.$product_id->{arch}.list";
+ my $list = "http://api.mandriva.com/mirrors/$type.$product_id->{version}.$product_id->{arch}.list?product=$product_id->{product}";
log::explanations("trying mirror list from $list");
my @lines;
if ($::isInstall) {