Added module installer to ./install.

doc/CHANGELOG

@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ===============================================================================
+    * Added module installer to ./install.
     * Added a module buildsys.
     * Added a QDB module.
     * SIGHUP now triggers a rehash.

install

@@ -131,6 +131,11 @@ if (!-e "$Bin/build/ver") {
 }
 
 build($features);
+println 'Done.';
+
+println q{};
+installmods();
+println q{};
 
 # Success!
 println "Done. Auto successfully installed.";

lib/Lib/Install.pm

@@ -11,7 +11,7 @@ our $Bin = $Bin;
 
 our $VERSION = 1.00;
 our @ISA = qw(Exporter);
-our @EXPORT = qw(println modfind build checkver checkcore);
+our @EXPORT = qw(println modfind build checkver checkcore installmods);
 
 sub println
 {
@@ -111,3 +111,21 @@ sub checkcore
     modfind('POSIX');
     modfind('Time::Local');
 }
+
+sub installmods
+{
+    print 'Would you like to install any official modules? [y/n] ';
+    my $response = <STDIN>;
+    chomp $response;
+    if (lc $response eq 'y') {
+        println 'What modules would you like to install? (separate by commas)';
+        println 'Available modules: Badwords, Bitly, Calc, EightBall, FML, HelloChan, IsItUp, QDB, SASLAuth, Weather';
+        print '> ';
+        my $modules = <STDIN>; chomp $modules;
+        $modules =~ s/ //g;
+        my @modst = split ',', $modules;
+        foreach (@modst) {
+            system "$Bin/bin/buildmod $_";
+        }
+    }
+}