From 948667beaf6366baca3b1a5ff62e577c2287a407 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 2 Aug 2002 02:50:06 +0000
Subject: [PATCH] Better performance tuning.

---
 sbin/preload.perl | 70 ++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 66 insertions(+), 4 deletions(-)

diff --git a/sbin/preload.perl b/sbin/preload.perl
index 768b50eda..c6326c3e5 100644
--- a/sbin/preload.perl
+++ b/sbin/preload.perl
@@ -6,14 +6,13 @@ use lib "/data/WebGUI/lib";
 print "Starting WebGUI ".$WebGUI::VERSION."\t\t";
 $ENV{GATEWAY_INTERFACE} =~ /^CGI-Perl/ or die "GATEWAY_INTERFACE not Perl!";
 
+#----------------------------------------
+# System controlled Perl modules.
+#----------------------------------------
 use Apache::Registry (); 
-#use Apache::DBI (); # Uncomment if you want to enable connection pooling. Not recommended on low memory - high traffic systems.
 use CGI (); CGI->compile(':all');
 use CGI::Carp ();
-use DBI ();
-use DBD::mysql ();
 use URI::Escape ();
-use Data::Config ();
 use Date::Calc ();
 use HTML::CalendarMonthSimple ();
 eval "use Image::Magick ();"; # eval, may not be installed
@@ -25,9 +24,72 @@ use File::Copy ();
 use File::Path ();
 use FileHandle ();
 use POSIX ();
+
+
+
+#----------------------------------------
+# Database connectivity.
+#----------------------------------------
+use DBI ();
+DBI->install_driver("mysql"); # Change to match your database driver.
+#use Apache::DBI (); # Uncomment if you want to enable connection pooling. Not recommended on low memory - high traffic systems.
+
+
+
+#----------------------------------------
+# Distributed utilities external to WebGUI.
+#----------------------------------------
 #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 ();
+
+
+#----------------------------------------
+# WebGUI modules.
+#----------------------------------------
 use WebGUI ();
+use WebGUI::Attachment ();
+use WebGUI::DateTime ();
+#use WebGUI::Discussion (); # compile problems when this is included
+use WebGUI::ErrorHandler ();
+use WebGUI::HTMLForm ();
+use WebGUI::HTML ();
+use WebGUI::Icon ();
+use WebGUI::International ();
+use WebGUI::Macro ();
+use WebGUI::Mail ();
+use WebGUI::MessageLog ();
+use WebGUI::Node ();
+use WebGUI::Operation ();
+use WebGUI::Operation::Account ();
+use WebGUI::Operation::Admin ();
+use WebGUI::Operation::Group ();
+use WebGUI::Operation::Help ();
+use WebGUI::Operation::Image ();
+use WebGUI::Operation::International ();
+use WebGUI::Operation::Package ();
+use WebGUI::Operation::Page ();
+use WebGUI::Operation::ProfileSettings ();
+use WebGUI::Operation::Root ();
+use WebGUI::Operation::Search ();
+use WebGUI::Operation::Settings ();
+use WebGUI::Operation::Statistics ();
+use WebGUI::Operation::Style ();
+use WebGUI::Operation::Template ();
+use WebGUI::Operation::Trash ();
+use WebGUI::Operation::User ();
+use WebGUI::Paginator ();
+use WebGUI::Privilege ();
+#use WebGUI::Profile (); # compile problems when this is included
+use WebGUI::Search ();
+use WebGUI::Session ();
+use WebGUI::SQL ();
+use WebGUI::Style ();
+use WebGUI::Template ();
+use WebGUI::URL ();
+use WebGUI::User ();
+use WebGUI::Utility ();
+use WebGUI::Wobject ();
 
 print "[  OK  ]";