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

WebGUI 1.2.0 release

Browse source
This commit is contained in:
JT Smith 2001-09-26 03:44:00 +00:00
parent b2cd674d4d
commit 677366069a
31 changed files with 459 additions and 881 deletions
Download patch file Download diff file Expand all files Collapse all files

23
testEnvironment.pl
View file

@ -9,7 +9,7 @@
#-------------------------------------------------------------------
BEGIN {
unshift (@INC, "./lib/");
unshift (@INC, "./lib");
}
use strict;
@ -35,6 +35,10 @@ if (eval { require DBI }) {
print "Please install.\n";
}
print "Database drivers:\t";
print join(", ",DBI->available_drivers);
print "\n";
print "LWP module:\t\t";
if (eval { require LWP }) {
print "OK\n";
@ -49,13 +53,6 @@ if (eval { require Tie::IxHash }) {
print "Please install.\n";
}
print "Mysql module:\t\t";
if (eval { require Mysql }) {
print "OK\n";
} else {
print "Please install.\n";
}
print "XML::RSS module:\t";
if (eval { require XML::RSS }) {
print "OK\n";
@ -79,7 +76,8 @@ if (eval { require Net::LDAP }) {
# this is here to insure they installed correctly.
print "WebGUI modules:\t\t";
if (eval { require WebGUI } && eval { require WebGUI::SQL }) {
#if (eval { require WebGUI } && eval { require WebGUI::SQL }) {
if (eval { require WebGUI::SQL }) {
print "OK\n";
} else {
print "Please install.\n";
@ -119,8 +117,7 @@ unless (defined $config) {
print "Database connection:\t";
my ($dbh, $test);
$dbh = DBI->connect($config->param('dsn'), $config->param('dbuser'), $config->param('dbpass'));
unless (defined $dbh) {
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";
@ -154,7 +151,9 @@ $request = new HTTP::Request (GET => "http://www.plainblack.com/downloads/latest
$response = $userAgent->request($request);
$version = $response->content;
chomp $version;
if ($version eq $WebGUI::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 "There is a newer version of WebGUI available.\n";