From 4b2e5a164bddfce2ddf333ce5bf884398d466f29 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 1 Feb 2003 22:19:59 +0000
Subject: [PATCH] Optimize preloader for recent changes.

---
 sbin/preload.perl | 32 +++++++++++++++++++++-----------
 1 file changed, 21 insertions(+), 11 deletions(-)

diff --git a/sbin/preload.perl b/sbin/preload.perl
index 6512b53b5..d499348a6 100644
--- a/sbin/preload.perl
+++ b/sbin/preload.perl
@@ -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 ();