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

WebGUI 2.4.0 release

Browse source
This commit is contained in:
JT Smith 2001-11-20 03:49:00 +00:00
parent 2a61818564
commit 6286f9bfaf
74 changed files with 2332 additions and 548 deletions
Download patch file Download diff file Expand all files Collapse all files

19
testEnvironment.pl
View file

@ -32,7 +32,7 @@ if ($ARGV[0] eq "--help" || $ARGV[0] eq "/?" || $ARGV[0] eq "/help" || $ARGV[0]
print "\nWebGUI is checking your system environment...\n\n";
our $os;
my $os;
if ($^O =~ /Win/i) {
$os = "Microsoftish";
} else {
@ -76,6 +76,20 @@ if (eval { require LWP }) {
}
}
print "HTTP::Request module:\t";
if (eval { require HTTP::Request }) {
print "OK\n";
} else {
print "Please install LWP.\n";
}
print "HTTP::Headers module:\t";
if (eval { require HTTP::Headers }) {
print "OK\n";
} else {
print "Please install LWP.\n";
}
print "Digest::MD5 module:\t";
if (eval { require Digest::MD5 }) {
print "OK\n";
@ -226,9 +240,6 @@ unless (eval { $dbh = DBI->connect($config->param('dsn'), $config->param('dbuser
###################################
print "Latest version:\t\t";
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
my ($header, $userAgent, $request, $response, $version, $referer);
$userAgent = new LWP::UserAgent;
$userAgent->agent("WebGUI-Check/2.0");