From 072bfac2f160c78b9348818d12c2c9d63276fe09 Mon Sep 17 00:00:00 2001
From: Olivier Blin <blino@mageia.org>
Date: Mon, 21 Mar 2011 22:57:27 +0000
Subject: do not hardcode mirrors API path, use variables from product.id

---
 perl-install/mirror.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm
index 0e5052d57..34c5abe0a 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.mageia.org/en/Product_id
     my $type = lc($product_id->{type}); $type =~ s/\s//g;
-    my $list = "http://mirrors.mageia.org/api/mageia.cauldron.$product_id->{arch}.list";
+    my $list = "http://mirrors.mageia.org/api/$type.$product_id->{version}.$product_id->{arch}.list?product=$product_id->{product}";
     log::explanations("trying mirror list from $list");
     my @lines;
     if ($::isInstall) {
-- 
cgit v1.2.1