sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cleaned up installation script.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-05 18:37:33 -07:00
1 parent 160dfcd2b1
commit d612f415f9
2 files changed
+112 -59
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

install
+11 -59
View File
@@ -1,53 +1,19 @@
#!/usr/bin/env perl
# 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 Install;
use strict;
use warnings;
use English qw(-no_match_vars);
use FindBin qw($Bin);
our $Bin = $Bin;
BEGIN { unshift(@INC, "$Bin/src"); }
use Lib::Install;
# Installation script.
our $VERSION = 1.00;
sub println
{
my ($out) = @_;
if (!defined $out) {
return;
}
print $out.$/;
return 1;
}
sub ver
{
my @vs = split('\.', $]);
my %ver = ();
$ver{ver} = $vs[0];
$ver{sub} = substr($vs[1], 1, 2);
$ver{rev} = substr($vs[1], 3, 3);
return %ver;
}
sub modfind
{
my ($mod) = @_;
print "Checking for $mod..... ";
eval('require '.$mod.'; 1;') and println "OK" or println "Not Found" and exit;
return 1;
}
# Iterate through the arguments passed to us.
my $features = "base";
if (defined $ARGV[0]) {
@@ -55,6 +21,7 @@ if (defined $ARGV[0]) {
if ($_ eq "-h" or $_ eq "--help") {
println "*** ./install help ***";
println " --enable-sasl - Enable support for SASL.";
println " --enable-ipv6 - Enable support for IPv6.";
println "*** End of Help ***";
exit;
}
@@ -63,6 +30,9 @@ if (defined $ARGV[0]) {
}
elsif ($_ eq "--enable-ssl") {
$features .= " ssl";
}
elsif ($_ eq "--enable-ipv6") {
$features .= " ipv6";
}
else {
println "Warning: Unknown option '".$_."'";
@@ -101,9 +71,8 @@ else {
}
# Check Perl version.
my %VER = ver();
print "Checking Perl version..... $VER{ver}.$VER{sub}.$VER{rev} - ";
if ($VER{ver} >= 5 and $VER{sub} >= 10) {
print "Checking Perl version..... $] - ";
if ($] >= 5.010000) {
println "OK";
}
else {
@@ -116,6 +85,7 @@ println "\0";
println "--- CPAN Modules ---";
modfind("Mouse");
modfind("Class::Unload");
modfind("IO::Socket::INET6") if $features =~ /ipv6/;
modfind("IO::Socket::SSL") if $features =~ /ssl/;
modfind("MIME::Base64") if $features =~ /sasl/;
@@ -138,25 +108,7 @@ if (!-e "$Bin/build/ver") {
system("touch $Bin/build/ver");
}
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;
build($features);
# Success!
println "Done. Auto successfully installed.";
src/Lib/Install.pm
+101
View File
@@ -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;
}