# Created: 20000624
#
-# use strict; # TODO
+use strict;
-use vars qw($AUTOLOAD);
+use vars qw($AUTOLOAD $no_timehires);
###
### REQUIRED MODULES.
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');
}
next;
}
- if (!&IsParam($_) and !&IsChanConf($_) and !&getChanConfList($_)) {
+ if (!&IsParam($_) and &IsChanConf($_) <= 0 and !&getChanConfList($_)) {
&DEBUG("loadMyModuleNow: $_ (2) not loaded.");
next;
}
if ($age < $moduleAge{$file}) {
&WARN("rM: we're not gonna downgrade '$file'; use touch.");
- &DEBUG("age => $age");
- &DEBUG("mA{$file} => $moduleAge{$file}");
+ &DEBUG("age => $age, mA{$file} => $moduleAge{$file}");
return $retval;
}