"factoids" => "Factoids.pl",
"freshmeat" => "Freshmeat.pl",
"kernel" => "Kernel.pl",
- "ircdcc" => "UserDCC.pl",
"perlMath" => "Math.pl",
"news" => "News.pl",
+ "plug" => "Plug.pl",
"quote" => "Quote.pl",
"rootwarn" => "RootWarn.pl",
"search" => "Search.pl",
"topic" => "Topic.pl",
"units" => "Units.pl",
"uptime" => "Uptime.pl",
+ "ircdcc" => "UserDCC.pl",
"userinfo" => "UserInfo.pl",
"wwwsearch" => "W3Search.pl",
"whatis" => "WhatIs.pl",
"wingate" => "Wingate.pl",
- "zfi" => "zfi.pl",
- "zsi" => "zsi.pl",
+ "babelfish" => "babel.pl",
"insult" => "insult.pl",
"nickometer" => "nickometer.pl",
- "babelfish" => "babel.pl",
+ "zfi" => "zfi.pl",
+ "zsi" => "zsi.pl",
);
### THIS IS NOT LOADED ON RELOAD :(
my @myModulesLoadNow;
&status("Loading pgsql support.");
require "$bot_src_dir/db_pgsql.pl";
&showProc(" (pgsql)");
- } elsif ($param{'DBType'} =~ /^dbm$/i) {
- &status("Loading Berkeley DBM support.");
- $f = "$bot_src_dir/db_dbm.pl";
- require $f;
+ } elsif ($param{'DBType'} =~ /^sqlite$|^dbm$/i) {
+ &status("Loading " . $param{'DBType'} . " support.");
+ $f="$bot_src_dir/db_" . $param{'DBType'} . ".pl";
$moduleAge{$f} = (stat $f)[9];
- &showProc(" $bot_src_dir/db_dbm.pl");
+ require $f;
+ &showProc(" $bot_src_dir/db_" . $param{'DBType'} . ".pl");
} else {
&status("DB support DISABLED.");
return;
foreach ( &getPerlFiles("$bot_src_dir/$interface") ) {
my $mod = "$bot_src_dir/$interface/$_";
- &status("Loading Modules \"$mod\"");
+ # hrm... use another config option besides DEBUG to display
+ # change in memory usage.
+ &status("Loading Modules \"$mod\"") if (!&IsParam("DEBUG"));
eval "require \"$mod\"";
if ($@) {
&ERROR("require \"$mod\" => $@");