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

Updated to reflect module requirement changes.

Browse source
This commit is contained in:
JT Smith 2002-12-12 05:31:37 +00:00
parent cfc1b9fcf8
commit 412772eae2
1 changed files with 7 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

75
sbin/testEnvironment.pl
View file

@ -135,32 +135,6 @@ if (eval { require HTML::Parser }) {
}
}
print "Tie::IxHash module ....................... ";
if (eval { require Tie::IxHash }) {
print "OK\n";
} else {
if ($< == 0 && $os eq "Linuxish") {
print "Attempting to install...\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 "Attempting to install...\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";
@ -174,19 +148,6 @@ if (eval { require Net::SMTP }) {
}
}
print "Net::LDAP module ......................... ";
if (eval { require Net::LDAP }) {
print "OK\n";
} else {
if ($< == 0 && $os eq "Linuxish") {
print "Attempting to install...\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";
@ -200,19 +161,6 @@ if (eval { require Date::Calc }) {
}
}
print "HTML::CalendarMonthSimple module ......... ";
if (eval { require HTML::CalendarMonthSimple }) {
print "OK\n";
} else {
if ($< == 0 && $os eq "Linuxish") {
print "Attempting to install...\n";
CPAN::Shell->install("HTML::CalendarMonthSimple");
} else {
print "Please install.\n";
$prereq = 0;
}
}
print "Image::Magick module (optional) .......... ";
if (eval { require Image::Magick }) {
print "OK\n";
@ -220,6 +168,13 @@ if (eval { require Image::Magick }) {
print "Not installed. Thumbnailing will be disabled.\n";
}
print "Authen::Smb module (optional) ............ ";
if (eval { require Authen::Smb }) {
print "OK\n";
} else {
print "Not installed. You cannot use SMB authentication.\n";
}
# this is here to insure they installed correctly.
if ($prereq) {
@ -230,22 +185,6 @@ if ($prereq) {
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;