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

Optimize preloader for recent changes.

Browse source
This commit is contained in:
JT Smith 2003-02-01 22:19:59 +00:00
parent 13bd980137
commit 4b2e5a164b
1 changed files with 21 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

32
sbin/preload.perl
View file

@ -1,31 +1,34 @@
#!/usr/bin/perl
use strict;
use lib "/data/WebGUI/lib";
use lib "/data/WebGUI/lib"; # Edit to match your WebGUI installation directory.
print "Starting WebGUI ".$WebGUI::VERSION."\t\t";
$ENV{GATEWAY_INTERFACE} =~ /^CGI-Perl/ or die "GATEWAY_INTERFACE not Perl!";
#----------------------------------------
# System controlled Perl modules.
# Enable the mod_perl environment.
#----------------------------------------
use Apache::Registry (); # Uncomment this for use with mod_perl 1.0
#use ModPerl::Registry (); # Uncomment this for use with mod_perl 2.0
#----------------------------------------
# System controlled Perl modules.
#----------------------------------------
eval "use Cache::FileCache ();"; # eval, may not be installed
use CGI (); CGI->compile(':all');
use CGI::Carp ();
use URI::Escape ();
use CGI::Util ();
use Date::Calc ();
use HTML::CalendarMonthSimple ();
eval "use Image::Magick ();"; # eval, may not be installed
use Tie::CPHash ();
use Tie::IxHash ();
use Net::LDAP ();
use Net::SMTP ();
use File::Copy ();
use File::Path ();
use FileHandle ();
use Net::SMTP ();
use POSIX ();
eval " use Cache::FileCache (); "; # check to see if it will load;
use URI::Escape ();
#----------------------------------------
@ -40,9 +43,13 @@ DBI->install_driver("mysql"); # Change to match your database driver.
#----------------------------------------
# Distributed utilities external to WebGUI.
#----------------------------------------
use Data::Config ();
use HTML::CalendarMonthSimple ();
#use HTML::Parser (); # commented because it is causing problems with attachments
#use HTML::TagFilter (); # commented because it is causing problems with attachments
use Data::Config ();
use Net::LDAP ();
use Tie::CPHash ();
use Tie::IxHash ();
#----------------------------------------
@ -50,10 +57,13 @@ use Data::Config ();
#----------------------------------------
use WebGUI ();
use WebGUI::Attachment ();
use WebGUI::Authentication ();
use WebGUI::DateTime ();
#use WebGUI::Discussion (); # compile problems when this is included
use WebGUI::ErrorHandler ();
use WebGUI::Form ();
use WebGUI::Group ();
use WebGUI::Grouping ();
use WebGUI::HTMLForm ();
use WebGUI::HTML ();
use WebGUI::Icon ();
@ -61,6 +71,7 @@ use WebGUI::International ();
use WebGUI::Macro ();
use WebGUI::Mail ();
use WebGUI::MessageLog ();
use WebGUI::Navigation ();
use WebGUI::Node ();
use WebGUI::Operation ();
use WebGUI::Operation::Account ();
@ -84,7 +95,6 @@ use WebGUI::Operation::User ();
use WebGUI::Page ();
use WebGUI::Paginator ();
use WebGUI::Privilege ();
#use WebGUI::Profile (); # compile problems when this is included
use WebGUI::Search ();
use WebGUI::Session ();
use WebGUI::SQL ();