Moved the offline executables to "sbin". Updated testEnvironment.pl to test all of the conf files in etc.
This commit is contained in:
JT Smith
parent
4ba70f123e
commit
2671feae26
4 changed files with 487 additions and 0 deletions
361
sbin/testEnvironment.pl
Normal file
361
sbin/testEnvironment.pl
Normal file
|
|
@ -0,0 +1,361 @@
|
|||
#-------------------------------------------------------------------
|
||||
# WebGUI is Copyright 2001-2002 Plain Black Software.
|
||||
#-------------------------------------------------------------------
|
||||
# Please read the legal notices (docs/legal.txt) and the license
|
||||
# (docs/license.txt) that came with this distribution before using
|
||||
# this software.
|
||||
#-------------------------------------------------------------------
|
||||
# http://www.plainblack.com info@plainblack.com
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
# Yeah if you're looking at this code you're probably thinking to
|
||||
# yourself, "What a #$@*ing mess!" That's what we think too. But
|
||||
# if you know Perl well enough to know that this sux, then you
|
||||
# probably don't need to use this script cuz you know how to
|
||||
# install Perl modules and such.
|
||||
|
||||
our $webguiRoot;
|
||||
|
||||
BEGIN {
|
||||
$webguiRoot = $ARGV[0] || "/data/WebGUI";
|
||||
unshift (@INC, $webguiRoot."/lib");
|
||||
}
|
||||
|
||||
use strict;
|
||||
use CPAN;
|
||||
|
||||
print "\nWebGUI is checking your system environment:\n\n";
|
||||
|
||||
my ($os, $prereq, $dbi);
|
||||
$prereq = 1;
|
||||
|
||||
if ($^O =~ /Win/i) {
|
||||
$os = "Microsoftish";
|
||||
} else {
|
||||
$os = "Linuxish";
|
||||
}
|
||||
|
||||
print "Operating System.........................".$os."\n";
|
||||
print "WebGUI Root..............................".$webguiRoot."\n";
|
||||
|
||||
###################################
|
||||
# Checking Perl
|
||||
###################################
|
||||
|
||||
print "Perl Interpreter.........................";
|
||||
if ($] >= 5.006) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
print "Please upgrade to 5.6 or later!\n";
|
||||
print "Test environment exiting, cannot continue without Perl 5.6.\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
print "LWP module...............................";
|
||||
if (eval { require LWP }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
if ($< == 0 && $os eq "Linuxish") {
|
||||
print "Installing...\n";
|
||||
CPAN::Shell->install("LWP");
|
||||
} else {
|
||||
print "Please install.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
}
|
||||
|
||||
print "HTTP::Request module.....................";
|
||||
if (eval { require HTTP::Request }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
print "Please install LWP.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
|
||||
print "HTTP::Headers module.....................";
|
||||
if (eval { require HTTP::Headers }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
print "Please install LWP.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
|
||||
print "Digest::MD5 module.......................";
|
||||
if (eval { require Digest::MD5 }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
if ($< == 0 && $os eq "Linuxish") {
|
||||
print "Installing...\n";
|
||||
CPAN::Shell->install("Digest::MD5");
|
||||
} else {
|
||||
print "Please install.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
}
|
||||
|
||||
my $dbi;
|
||||
|
||||
print "DBI module...............................";
|
||||
if (eval { require DBI }) {
|
||||
print "OK\n";
|
||||
$dbi = 1;
|
||||
} else {
|
||||
if ($< == 0 && $os eq "Linuxish") {
|
||||
print "Installing...\n";
|
||||
CPAN::Shell->install("DBI");
|
||||
eval {require DBI};
|
||||
$dbi = 1;
|
||||
} else {
|
||||
print "Please install.\n";
|
||||
$prereq = 0;
|
||||
$dbi = 0;
|
||||
}
|
||||
}
|
||||
|
||||
print "Avalable database drivers................";
|
||||
if ($dbi) {
|
||||
print join(", ",DBI->available_drivers);
|
||||
} else {
|
||||
print "None";
|
||||
$prereq = 0;
|
||||
}
|
||||
print "\n";
|
||||
|
||||
print "HTML::Parser module......................";
|
||||
if (eval { require HTML::Parser }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
if ($< == 0 && $os eq "Linuxish") {
|
||||
print "Installing...\n";
|
||||
CPAN::Shell->install("HTML::Parser");
|
||||
} else {
|
||||
print "Please install.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
}
|
||||
|
||||
print "Tie::IxHash module.......................";
|
||||
if (eval { require Tie::IxHash }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
if ($< == 0 && $os eq "Linuxish") {
|
||||
print "Installing...\n";
|
||||
CPAN::Shell->install("Tie::IxHash");
|
||||
} else {
|
||||
print "Please install.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
}
|
||||
|
||||
print "Tie::CPHash module.......................";
|
||||
if (eval { require Tie::CPHash }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
if ($< == 0 && $os eq "Linuxish") {
|
||||
print "Installing...\n";
|
||||
CPAN::Shell->install("Tie::CPHash");
|
||||
} else {
|
||||
print "Please install.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
}
|
||||
|
||||
print "Net::SMTP module.........................";
|
||||
if (eval { require Net::SMTP }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
if ($< == 0 && $os eq "Linuxish") {
|
||||
print "Installing...\n";
|
||||
CPAN::Shell->install("Net::SMTP");
|
||||
} else {
|
||||
print "Please install.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
}
|
||||
|
||||
print "Net::LDAP module.........................";
|
||||
if (eval { require Net::LDAP }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
if ($< == 0 && $os eq "Linuxish") {
|
||||
print "Installing...\n";
|
||||
CPAN::Shell->install("Net::LDAP");
|
||||
} else {
|
||||
print "Please install.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
}
|
||||
|
||||
print "Date::Calc module........................";
|
||||
if (eval { require Date::Calc }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
if ($< == 0 && $os eq "Linuxish") {
|
||||
print "Installing...\n";
|
||||
CPAN::Shell->install("Date::Calc");
|
||||
} else {
|
||||
print "Please install.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
}
|
||||
|
||||
print "HTML::CalendarMonthSimple module.........";
|
||||
if (eval { require HTML::CalendarMonthSimple }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
if ($< == 0 && $os eq "Linuxish") {
|
||||
print "Installing...\n";
|
||||
CPAN::Shell->install("HTML::CalendarMonthSimple");
|
||||
} else {
|
||||
print "Please install.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
}
|
||||
|
||||
print "Image::Magick module.....................";
|
||||
if (eval { require Image::Magick }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
print "Please install or thumbnailing will be disabled.\n";
|
||||
}
|
||||
|
||||
print "Apache::DBI module.......................";
|
||||
if (eval { require Apache::DBI }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
print "Please install if you want to use the mod_perl preloader.\n";
|
||||
}
|
||||
|
||||
# this is here to insure they installed correctly.
|
||||
|
||||
if ($prereq) {
|
||||
print "WebGUI modules...........................";
|
||||
if (eval { require WebGUI } && eval { require WebGUI::SQL }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
print "Not Found. Perhaps you're running this script in the wrong place.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
|
||||
print "Data::Config module......................";
|
||||
if (eval { require Data::Config }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
print "Not Found. Perhaps you're running this script in the wrong place.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
|
||||
print "HTML::TagFilter module...................";
|
||||
if (eval { require HTML::TagFilter }) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
print "Not Found. Perhaps you're running this script in the wrong place.\n";
|
||||
$prereq = 0;
|
||||
}
|
||||
} else {
|
||||
print "Cannot continue without prerequisites.\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
unless ($prereq) {
|
||||
print "Cannot continue without WebGUI files.\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
my (@files, $file, $dir, $error);
|
||||
if ($os eq "Windowsish") {
|
||||
$dir = $webguiRoot."\\etc\\";
|
||||
} else {
|
||||
$dir = $webguiRoot."/etc/";
|
||||
}
|
||||
opendir (DIR,$dir) or $error = "Can't open etc (".$dir.") directory!";
|
||||
if ($error ne "") {
|
||||
print $error."\nCannot continue.\n";
|
||||
exit;
|
||||
} else {
|
||||
@files = readdir(DIR);
|
||||
foreach $file (@files) {
|
||||
if ($file =~ /(.*?)\.conf$/ && $file ne "some_other_site.conf") {
|
||||
|
||||
###################################
|
||||
# Checking Config File
|
||||
###################################
|
||||
|
||||
print "Found config file........................".$file."\n";
|
||||
print "Verifying file...........................";
|
||||
my ($config);
|
||||
$config = new Data::Config $dir.$file;
|
||||
unless (defined $config) {
|
||||
print "Couldn't open it.";
|
||||
$prereq = 0;
|
||||
} elsif ($config->param('dsn') =~ /\s$/) {
|
||||
print "DSN cannot end with a space.";
|
||||
$prereq = 0;
|
||||
} elsif ($config->param('dsn') !~ /\DBI\:\w+\:\w+/) {
|
||||
print "DSN is improperly formatted.";
|
||||
$prereq = 0;
|
||||
} elsif ($config->param('dbuser') =~ /\s$/) {
|
||||
print "dbuser cannot end with a space.";
|
||||
$prereq = 0;
|
||||
} elsif ($config->param('dbuser') =~ /\s$/) {
|
||||
print "dbpass cannot end with a space.";
|
||||
$prereq = 0;
|
||||
} else {
|
||||
print "OK\n";
|
||||
}
|
||||
|
||||
unless ($prereq) {
|
||||
print " Skipping this configuration.\n";
|
||||
$prereq = 1;
|
||||
} else {
|
||||
|
||||
###################################
|
||||
# Checking database
|
||||
###################################
|
||||
|
||||
print "Database connection......................";
|
||||
my ($dbh, $test);
|
||||
unless (eval {$dbh = DBI->connect($config->param('dsn'),$config->param('dbuser'),$config->param('dbpass'))}) {
|
||||
print "Can't connect with info provided. Skipping.\n";
|
||||
} else {
|
||||
print "OK\n";
|
||||
$dbh->disconnect();
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
}
|
||||
closedir(DIR);
|
||||
}
|
||||
|
||||
|
||||
###################################
|
||||
# Checking Version
|
||||
###################################
|
||||
|
||||
print "Latest version...........................";
|
||||
my ($header, $userAgent, $request, $response, $version, $referer);
|
||||
$userAgent = new LWP::UserAgent;
|
||||
$userAgent->agent("WebGUI-Check/2.0");
|
||||
$userAgent->timeout(30);
|
||||
$header = new HTTP::Headers;
|
||||
$referer = "http://webgui.cli.getversion/".`hostname`;
|
||||
chomp $referer;
|
||||
$header->referer($referer);
|
||||
$request = new HTTP::Request (GET => "http://www.plainblack.com/downloads/latest-version.txt", $header);
|
||||
$response = $userAgent->request($request);
|
||||
$version = $response->content;
|
||||
chomp $version;
|
||||
if ($response->is_error) {
|
||||
print "Couldn't connect to Plain Black Software. Check your connection and try again.\n";
|
||||
} elsif ($version eq $WebGUI::VERSION) {
|
||||
print "OK\n";
|
||||
} else {
|
||||
print "You are using ".$WebGUI::VERSION." and ".$version." is available.\n";
|
||||
}
|
||||
|
||||
|
||||
print "\nTesting complete!\n";
|
||||
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue