From fbe1743e5e24fdf26c91a9a8b77ca9ad082c5689 Mon Sep 17 00:00:00 2001 From: Peter Powell Date: Wed, 29 Oct 2014 12:44:50 +0000 Subject: [PATCH] Fix modulemanager not being able to download modules (again!). --- modulemanager | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/modulemanager b/modulemanager index 24f4467a4..af5bf113c 100755 --- a/modulemanager +++ b/modulemanager @@ -348,11 +348,16 @@ for my $mod (sort keys %todo) { } $mod_versions{$mod} = $ver; - my $stat = getstore($url, "src/modules/$mod.cpp"); - if ($stat == 200) { + my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); + my $response = $ua->get($url); + + if ($response->is_success) { + open(MF, ">src/modules/$mod.cpp") or die "\nFilesystem not writable: $!"; + print MF $response->decoded_content; + close(MF); print " - done\n"; } else { - print " - HTTP $stat\n"; + printf "\nHTTP %s: %s\n", $response->code, $response->message; } } -- 2.39.2