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

added a per-site config file option for international message caching

Browse source
This commit is contained in:
JT Smith 2004-02-22 21:50:29 +00:00
parent 35ead8b39e
commit 3eec10dc49
11 changed files with 59 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

4
sbin/preload.perl
View file

@ -17,7 +17,7 @@ use Apache::Registry (); # Uncomment this for use with mod_perl 1.0
#----------------------------------------
# System controlled Perl modules.
#----------------------------------------
eval "use Cache::FileCache ();"; # eval, may not be installed
use Cache::FileCache ();
use CGI (); CGI->compile(':all');
use CGI::Carp ();
use CGI::Util ();
@ -29,6 +29,8 @@ use FileHandle ();
use Net::SMTP ();
use POSIX ();
use URI::Escape ();
use Data::Serializer ();
use SOAP::Lite ();
#----------------------------------------

44
sbin/testEnvironment.pl
View file

@ -187,23 +187,45 @@ if (eval { require Date::Calc }) {
}
}
print "Cache::FileCache module (optional*) ...... ";
if (eval { require Cache::FileCache }) {
print "Cache::Cache module ...................... ";
if (eval { require Cache::Cache }) {
print "OK\n";
} else {
print "Not installed. Caching not possible.\n";
if ($< == 0 && $os eq "Linuxish") {
print "Attempting to install...\n";
CPAN::Shell->install("Cache::Cache");
} else {
print "Please install.\n";
$prereq = 0;
}
}
print <<STOP;
print "SOAP::Lite module ........................ ";
if (eval { require SOAP::Lite }) {
print "OK\n";
} else {
if ($< == 0 && $os eq "Linuxish") {
print "Attempting to install...\n";
CPAN::Shell->install("SOAP::Lite");
} else {
print "Please install.\n";
$prereq = 0;
}
}
* Please note that Cache::FileCache is not
optional in all environments (such as Mac
OS X). Also note, that Cache::FileCache
is not available for Windows style
environments due to limitations on those
systems.
print "Data::Serializer module .................. ";
if (eval { require Data::Serializer }) {
print "OK\n";
} else {
if ($< == 0 && $os eq "Linuxish") {
print "Attempting to install...\n";
CPAN::Shell->install("Data::Serializer");
} else {
print "Please install.\n";
$prereq = 0;
}
}
STOP
print "Image::Magick module (optional) .......... ";
if (eval { require Image::Magick }) {