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 #!/usr/bin/perl
use strict; 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"; print "Starting WebGUI ".$WebGUI::VERSION."\t\t";
$ENV{GATEWAY_INTERFACE} =~ /^CGI-Perl/ or die "GATEWAY_INTERFACE not Perl!"; $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 Apache::Registry (); # Uncomment this for use with mod_perl 1.0
#use ModPerl::Registry (); # Uncomment this for use with mod_perl 2.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 (); CGI->compile(':all');
use CGI::Carp (); use CGI::Carp ();
use URI::Escape (); use CGI::Util ();
use Date::Calc (); use Date::Calc ();
use HTML::CalendarMonthSimple ();
eval "use Image::Magick ();"; # eval, may not be installed 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::Copy ();
use File::Path (); use File::Path ();
use FileHandle (); use FileHandle ();
use Net::SMTP ();
use POSIX (); 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. # Distributed utilities external to WebGUI.
#---------------------------------------- #----------------------------------------
use Data::Config ();
use HTML::CalendarMonthSimple ();
#use HTML::Parser (); # commented because it is causing problems with attachments #use HTML::Parser (); # commented because it is causing problems with attachments
#use HTML::TagFilter (); # 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 ();
use WebGUI::Attachment (); use WebGUI::Attachment ();
use WebGUI::Authentication ();
use WebGUI::DateTime (); use WebGUI::DateTime ();
#use WebGUI::Discussion (); # compile problems when this is included #use WebGUI::Discussion (); # compile problems when this is included
use WebGUI::ErrorHandler (); use WebGUI::ErrorHandler ();
use WebGUI::Form (); use WebGUI::Form ();
use WebGUI::Group ();
use WebGUI::Grouping ();
use WebGUI::HTMLForm (); use WebGUI::HTMLForm ();
use WebGUI::HTML (); use WebGUI::HTML ();
use WebGUI::Icon (); use WebGUI::Icon ();
@ -61,6 +71,7 @@ use WebGUI::International ();
use WebGUI::Macro (); use WebGUI::Macro ();
use WebGUI::Mail (); use WebGUI::Mail ();
use WebGUI::MessageLog (); use WebGUI::MessageLog ();
use WebGUI::Navigation ();
use WebGUI::Node (); use WebGUI::Node ();
use WebGUI::Operation (); use WebGUI::Operation ();
use WebGUI::Operation::Account (); use WebGUI::Operation::Account ();
@ -84,7 +95,6 @@ use WebGUI::Operation::User ();
use WebGUI::Page (); use WebGUI::Page ();
use WebGUI::Paginator (); use WebGUI::Paginator ();
use WebGUI::Privilege (); use WebGUI::Privilege ();
#use WebGUI::Profile (); # compile problems when this is included
use WebGUI::Search (); use WebGUI::Search ();
use WebGUI::Session (); use WebGUI::Session ();
use WebGUI::SQL (); use WebGUI::SQL ();