# NOTE: Based on code by Kevin Lenzo & Patrick Cole (c) 1997
#
-if (&IsParam("useStrict")) { use strict; }
+# use strict; # TODO
# GENERIC. TO COPY.
sub on_generic {
my $i = scalar(keys %{ $channels{$chan} });
my $j = $cache{maxpeeps}{$chan} || 0;
- if (time() > ($sched{shmFlush}{TIME} || time()) + 3600) {
+ if (!&IsParam("noSHM") && time() > ($sched{shmFlush}{TIME} || time()) + 3600) {
&DEBUG("looks like schedulers died somewhere... restarting...");
&setupSchedulers();
}
}
}
- ### chanlimit check.
-# &chanLimitVerify($chan);
+ ### botmail:
+ if (&IsChanConf("botmail")) {
+ &botmail::check(lc $who);
+ }
### wingate:
&wingateCheck();
my $nick = $event->nick();
$chan = ($event->to)[0];
- $args[0] =~ s/\s$//;
+ # last element is empty... so nuke it.
+ pop @args while ($args[$#args] eq "");
if ($nick eq $chan) { # UMODE
&status(">>> mode $b_yellow\[$ob$b@args$b_yellow\]$ob by $b_cyan$nick$ob");
$netsplit{lc $nick} = time();
if (!exists $netsplitservers{$1}{$2}) {
- &status("netsplit detected between $1 and $2 at [".scalar(localtime)."]");
+ &status("netsplit detected between $1 and $2 at [".scalar(gmtime)."]");
$netsplitservers{$1}{$2} = time();
}
}
my $timestr;
if (time() - $time > 60*60*24) {
- $timestr = "at ". localtime $time;
+ $timestr = "at ". gmtime $time;
} else {
$timestr = &Time2String(time() - $time) ." ago";
}