### MODULES.
%myModules = (
- "bzflag" => "BZFlag.pl",
- "countdown" => "Countdown.pl",
+ "babelfish" => "babelfish.pl",
+ "botmail" => "botmail.pl",
+ "BZFlag" => "BZFlag.pl",
+ "countdown" => "countdown.pl",
"debian" => "Debian.pl",
"debianExtra" => "DebianExtra.pl",
- "dict" => "Dict.pl",
- "dumpvars" => "DumpVars.pl",
- "symdump" => "DumpVars2.pl",
+ "Dict" => "Dict.pl",
+ "DumpVars" => "DumpVars.pl",
"exchange" => "Exchange.pl",
"factoids" => "Factoids.pl",
+ "HTTPDtype" => "HTTPDtype.pl",
+ "insult" => "insult.pl",
+ "UserDCC" => "UserDCC.pl",
"kernel" => "Kernel.pl",
- "perlMath" => "Math.pl",
"news" => "News.pl",
+ "nickometer" => "nickometer.pl",
+ "pager" => "pager.pl",
+ "perlMath" => "Math.pl",
"plug" => "Plug.pl",
"quote" => "Quote.pl",
"rootwarn" => "RootWarn.pl",
+ "rss" => "Rss.pl",
"search" => "Search.pl",
"slashdot" => "Slashdot3.pl",
+ "symdump" => "DumpVars2.pl",
"topic" => "Topic.pl",
"units" => "Units.pl",
"uptime" => "Uptime.pl",
- "ircdcc" => "UserDCC.pl",
"userinfo" => "UserInfo.pl",
"weather" => "Weather.pl",
- "wwwsearch" => "W3Search.pl",
"whatis" => "WhatIs.pl",
+ "wikipedia" => "wikipedia.pl",
"wingate" => "Wingate.pl",
- "babelfish" => "babel.pl",
- "insult" => "insult.pl",
- "nickometer" => "nickometer.pl",
+ "wwwsearch" => "W3Search.pl",
"zfi" => "zfi.pl",
"zippy" => "Zippy.pl",
"zsi" => "zsi.pl",
- "botmail" => "botmail.pl",
);
### THIS IS NOT LOADED ON RELOAD :(
my @myModulesLoadNow;
sub loadDBModules {
my $f;
- # todo: use function to load module.
+ # TODO: use function to load module.
if ($param{'DBType'} =~ /^(mysql|SQLite|pgsql)$/i) {
eval "use DBI";
&ERROR("require \"$mod\" => $@");
&shutdown();
exit 1;
- }
+ }
$moduleAge{$mod} = (stat $mod)[9];
&showProc(" ($_)") if (&IsParam("DEBUG"));
# obscure usage of map and regex :)
foreach (map { s/.*?\/?src/src/; $_ } keys %moduleAge) {
- $retval .= &reloadModule($_);
+ $retval .= &reloadModule($_);
}
&VERB("Module: reloading done.",2);
my ($tmp) = @_;
if (!defined $tmp) {
&WARN("loadMyModule: module is NULL.");
- return 0;
+ return 0;
}
my ($modulename, $modulebase);
my($dir) = @_;
if (!opendir(DIR, $dir)) {
- &ERROR("Cannot open source directory ($dir): $!");
- exit 1;
+ &ERROR("Cannot open source directory ($dir): $!");
+ exit 1;
}
my @mods;