From 25b5a1b9c893b4c46cd89a3e4d445a994aff05ca Mon Sep 17 00:00:00 2001
From: Christophe Fergeau <cfergeau@mandriva.com>
Date: Tue, 1 Sep 2009 08:41:42 +0000
Subject: use https to download the mirrorlist from api.mandriva.com

---
 perl-install/mirror.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/mirror.pm')

diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm
index a37955669..563464874 100644
--- a/perl-install/mirror.pm
+++ b/perl-install/mirror.pm
@@ -59,12 +59,12 @@ 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?product=$product_id->{product}";
+    my $list = "https://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) {
         require install::http;
-        my $f = install::http::getFile($list) or die "mirror list not found";
+        my $f = install::http::getFile($list, "strict-certificate-check" => 1) or die "mirror list not found";
         local $SIG{ALRM} = sub { die "timeout" };
         alarm 60;
         log::l("using mirror list $list");
-- 
cgit v1.2.1