Fix modulemanager not being able to download modules (again!).

This commit is contained in:
Peter Powell 2014-10-29 12:44:50 +00:00
parent d11323cf34
commit fbe1743e5e

View File

@ -348,11 +348,16 @@ for my $mod (sort keys %todo) {
} }
$mod_versions{$mod} = $ver; $mod_versions{$mod} = $ver;
my $stat = getstore($url, "src/modules/$mod.cpp"); my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
if ($stat == 200) { 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"; print " - done\n";
} else { } else {
print " - HTTP $stat\n"; printf "\nHTTP %s: %s\n", $response->code, $response->message;
} }
} }