diff options
author | Thierry Vignaud <tv@mandriva.org> | 2008-08-06 16:02:05 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2008-08-06 16:02:05 +0000 |
commit | 46e4a32ead925c6195f9482a59552e76c0fc238b (patch) | |
tree | 4b590a58021e2d8b925db1bc6dcfb08d78f41492 | |
parent | a67c9f6e430eb7aa742659fbb117d5c32115a50e (diff) | |
download | drakx-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/NEWS | 2 | ||||
-rw-r--r-- | perl-install/install/NEWS | 2 | ||||
-rw-r--r-- | perl-install/mirror.pm | 2 |
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) { |