my @myModulesLoadNow;
my @myModulesReloadNot;
BEGIN {
- @myModulesLoadNow = ('Topic', 'Uptime', 'News', 'RootWarn', 'DumpVars2', 'botmail');
+ @myModulesLoadNow = ('Topic', 'Uptime', 'News', 'RootWarn', 'DumpVars2', 'botmail', 'OnJoin');
@myModulesReloadNot = ('IRC/Irc.pl','IRC/Schedulers.pl');
}
}
$moduleAge{$mod} = (stat $mod)[9];
- &showProc(" ($_)") if (&IsParam("DEBUG"));
+ &showProc(" ($_)") if (&IsParam('DEBUG'));
}
}
}
sub loadFactoidsModules {
- if (!&IsParam("factoids")) {
+ if (!&IsParam('factoids')) {
&status("Factoid support DISABLED.");
return;
}
}
$moduleAge{$mod} = (stat $mod)[9];
- &showProc(" ($_)") if (&IsParam("DEBUG"));
+ &showProc(" ($_)") if (&IsParam('DEBUG'));
}
}
# hrm... use another config option besides DEBUG to display
# change in memory usage.
- &status("Loading Modules \"$mod\"") if (!&IsParam("DEBUG"));
+ &status("Loading Modules \"$mod\"") if (!&IsParam('DEBUG'));
eval "require \"$mod\"";
if ($@) {
&ERROR("require \"$mod\" => $@");
}
$moduleAge{$mod} = (stat $mod)[9];
- &showProc(" ($_)") if (&IsParam("DEBUG"));
+ &showProc(" ($_)") if (&IsParam('DEBUG'));
}
}
next;
}
- if (!&IsParam($_) and !&IsChanConf($_) and !&getChanConfList($_)) {
+ if (!&IsParam($_) and &IsChanConf($_) <= 0 and !&getChanConfList($_)) {
&DEBUG("loadMyModuleNow: $_ (2) not loaded.");
next;
}
### rename to moduleReloadAll?
sub reloadAllModules {
- my $retval = "";
+ my $retval = '';
&VERB("Module: reloading all.",2);
sub reloadModule {
my ($mod) = @_;
my $file = (grep /\/$mod/, keys %INC)[0];
- my $retval = "";
+ my $retval = '';
# don't reload if it's not our module.
if ($mod =~ /::/ or $mod !~ /pl$/) {