diff options
author | Olivier Blin <blino@mageia.org> | 2011-03-21 22:57:27 +0000 |
---|---|---|
committer | Olivier Blin <blino@mageia.org> | 2011-03-21 22:57:27 +0000 |
commit | f55d3fa1e12b9a834b3462d03e17c5adf201b046 (patch) | |
tree | bd2da25785c91953ca5e979e80ed46af57c66290 /perl-install | |
parent | fe6656bb13b8a76ff05001a1ea15782159456a16 (diff) | |
download | drakx-backup-do-not-use-f55d3fa1e12b9a834b3462d03e17c5adf201b046.tar drakx-backup-do-not-use-f55d3fa1e12b9a834b3462d03e17c5adf201b046.tar.gz drakx-backup-do-not-use-f55d3fa1e12b9a834b3462d03e17c5adf201b046.tar.bz2 drakx-backup-do-not-use-f55d3fa1e12b9a834b3462d03e17c5adf201b046.tar.xz drakx-backup-do-not-use-f55d3fa1e12b9a834b3462d03e17c5adf201b046.zip |
do not hardcode mirrors API path, use variables from product.id
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/mirror.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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) { |