inspircd: Don't list individual authors on startup.

[user/henk/code/inspircd.git] / modulemanager

diff --git a/modulemanager b/modulemanager
index ee281d7fac0bd1a3c6efe07977910ceeb3827897..e859f683be0e043f195937122e991fb54a69a897 100755 (executable)
--- a/modulemanager
+++ b/modulemanager
@@ -345,11 +345,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;
        }
 }