Renamed src/ to lib/ because it's more Perly.

lib/Lib/Auto.pm

@@ -0,0 +1,41 @@
+# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Copyright (C) 2010-2011 Xelhua Development Team (doc/CREDITS)
+# This program is free software; rights to this code are stated in doc/LICENSE.
+package Lib::Auto;
+use strict;
+use warnings;
+use API::Log qw(println);
+our $VERSION = 3.000000;
+
+# Update checker.
+sub checkver
+{
+    if (!$Auto::NUC and Auto::RSTAGE ne 'd') {
+        println '* Connecting to update server...';
+        my $uss = IO::Socket::INET->new(
+            'Proto'    => 'tcp',
+            'PeerAddr' => 'dist.xelhua.org',
+            'PeerPort' => 80,
+            'Timeout'  => 30
+        ) or err(1, 'Cannot connect to update server! Aborting update check.');
+        send $uss, "GET http://dist.xelhua.org/auto/version.txt\n", 0;
+        my $dll = q{};
+        while (my $data = readline $uss) {
+            $data =~ s/(\n|\r)//g;
+            my ($v, $c) = split m/[=]/, $data;
+
+            if ($v eq 'url') {
+                $dll = $c;
+            }
+            elsif ($v eq 'version') {
+                if (Auto::VER.q{.}.Auto::SVER.q{.}.Auto::REV.Auto::RSTAGE ne $c) {
+                    println('!!! NOTICE !!! Your copy of Auto is outdated. Current version: '.Auto::VER.q{.}.Auto::SVER.q{.}.Auto::REV.Auto::RSTAGE.' - Latest version: '.$c);
+                    println('!!! NOTICE !!! You can get the latest Auto by downloading '.$dll);
+                }
+                else {
+                    println('* Auto is up-to-date.');
+                }
+            }
+        }
+    }
+}

lib/Lib/Install.pm

@@ -0,0 +1,101 @@
+# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Copyright (C) 2010-2011 Xelhua Development Team (doc/CREDITS)
+# This program is free software; rights to this code are stated in doc/LICENSE.
+package Lib::Install;
+use strict;
+use warnings;
+use Exporter;
+use English qw(-no_match_vars);
+use FindBin qw($Bin);
+our $Bin = $Bin;
+
+our $VERSION = 1.00;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(println modfind build checkver);
+
+sub println
+{
+    my ($out) = @_;
+
+    if (defined $out) {
+        print $out.$/;
+    }
+    else {
+        print $/;
+    }
+
+    return 1;
+}
+
+sub modfind
+{
+    my ($mod) = @_;
+
+    print "Checking for $mod..... ";
+    eval('require '.$mod.'; 1;') and println "OK" or println "Not Found" and exit;
+
+    return 1;
+}
+
+sub build
+{
+    my ($features) = @_;
+
+    open(my $FTIME, q{>}, "$Bin/build/time") or println "Failed to install." and exit;
+    print $FTIME time."\n" or println "Failed to install." and exit;
+    close $FTIME or println "Failed to install." and exit;
+
+    open(my $FOS, q{>}, "$Bin/build/os") or println "Failed to install." and exit;
+    print $FOS $OSNAME."\n" or println "Failed to install." and exit;
+    close $FOS or println "Failed to install." and exit;
+
+    open(my $FFEAT, q{>}, "$Bin/build/feat") or println "Failed to install." and exit;
+    print $FFEAT $features."\n" or println "Failed to install." and exit;
+    close $FFEAT or println "Failed to install." and exit;
+
+    open(my $FPERL, q{>}, "$Bin/build/perl") or println "Failed to install." and exit;
+    print $FPERL "$]\n" or println "Failed to install." and exit;
+    close $FPERL or println "Failed to install." and exit;
+
+    open(my $FVER, q{>}, "$Bin/build/ver") or println "Failed to install." and exit;
+    print $FVER "3.0.0d\n" or println "Failed to install." and exit;
+    close $FVER or println "Failed to install." and exit;
+
+    return 1;
+}
+
+sub checkver
+{
+    my ($ver) = @_;
+
+    println "* Connecting to update server...";
+    my $uss = IO::Socket::INET->new(
+        'Proto'    => 'tcp',
+        'PeerAddr' => 'dist.xelhua.org',
+        'PeerPort' => 80,
+        'Timeout'  => 30
+    ) or println "Cannot connect to update server! Aborting update check.";
+    send($uss, "GET http://dist.xelhua.org/auto/version.txt\n", 0);
+    my $dll = '';
+    while (my $data = readline($uss)) {
+        $data =~ s/(\n|\r)//g;
+        my ($v, $c) = split('=', $data);
+
+        if ($v eq "url") {
+            $dll = $c;
+        }
+        elsif ($v eq "version") {
+            if ($ver ne $c) {
+                println("!!! NOTICE !!! Your copy of Auto is outdated. Current version: ".$ver." - Latest version: ".$c);
+                println("!!! NOTICE !!! You can get the latest Auto by downloading ".$dll);
+                println("!!! NOTICE !!! Won't install without force.");
+                exit;
+            }
+            else {
+                println("* Auto is up-to-date.");
+            }
+        }
+    }
+
+    return 1;
+}