oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI 3.6.0 release

Browse source
This commit is contained in:
JT Smith 2002-03-20 06:01:00 +00:00
parent 81da4fe3af
commit 0997fc100c
22 changed files with 3085 additions and 103 deletions
Download patch file Download diff file Expand all files Collapse all files

53
testEnvironment.pl
View file

@ -102,22 +102,42 @@ if (eval { require Digest::MD5 }) {
}
}
my $dbi;
print "DBI module...............................";
if (eval { require DBI }) {
print "OK\n";
$dbi = 1;
} else {
if ($ARGV[0] eq "--install-modules") {
print "Installing...\n";
CPAN::Shell->install("DBI");
eval {require DBI};
$dbi = 1;
} else {
print "Please install.\n";
}
}
print "Avalable database drivers................";
print join(", ",DBI->available_drivers);
if ($dbi) {
print join(", ",DBI->available_drivers);
} else {
print "None";
}
print "\n";
print "HTML::Parser module......................";
if (eval { require HTML::Parser }) {
print "OK\n";
} else {
if ($ARGV[0] eq "--install-modules") {
print "Installing...\n";
CPAN::Shell->install("HTML::Parser");
} else {
print "Please install.\n";
}
}
print "Tie::IxHash module.......................";
if (eval { require Tie::IxHash }) {
print "OK\n";
@ -217,6 +237,13 @@ if (eval { require Data::Config }) {
print "Please install.\n";
}
print "HTML::TagFilter module...................";
if (eval { require HTML::TagFilter }) {
print "OK\n";
} else {
print "Please install.\n";
}
###################################
# Checking Config File
###################################
@ -243,19 +270,23 @@ unless (defined $config) {
###################################
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.\n";
} else {
print "OK\n";
print "Database tables..........................";
($test) = WebGUI::SQL->quickArray("select count(*) from page",$dbh);
if ($test < 1) {
print "Looks like you need to create some tables.\n";
if ($dbi) {
my ($dbh, $test);
unless (eval {$dbh = DBI->connect($config->param('dsn'),$config->param('dbuser'),$config->param('dbpass'))}) {
print "Can't connect with info provided.\n";
} else {
print "OK\n";
print "Database tables..........................";
($test) = WebGUI::SQL->quickArray("select count(*) from page",$dbh);
if ($test < 1) {
print "Looks like you need to create some tables.\n";
} else {
print "OK\n";
}
$dbh->disconnect();
}
$dbh->disconnect();
} else {
print "Failed. DBI not loaded.\n";
}
###################################