&DEBUG("chat: sock => '$sock'.");
### $sock->close();
delete $dcc{'CHAT'}{$nick};
- &DEBUG("chat: after closing sock. FIXME");
+ &FIXME("chat: after closing sock.");
### BUG: close seizes bot. why?
}
$ircstats{'ConnectTime'} = time();
$ircstats{'ConnectCount'}++;
if (defined $ircstats{'DisconnectTime'}) {
- ircstats{'OffTime'} += time() - $ircstats{'DisconnectTime'};
+ $ircstats{'OffTime'} += time() - $ircstats{'DisconnectTime'};
}
# first time run.
my(undef, $nick, $sock) = @_;
if ($nuh{$nick} eq "GETTING-NOW") {
- &DEBUG("getting nuh for $nick failed. FIXME.");
+ &FIXME("getting nuh for $nick failed.");
return;
}
# clear any variables on reconnection.
$nickserv = 0;
- &DEBUG("on_disconnect: 1");
&clearIRCVars();
- &DEBUG("on_disconnect: 2");
if (!defined $self) {
&WARN("on_disconnect: self is undefined! WTF");
}
$chanstats{$chan}{'Join'}++;
- $userstats{lc $who}{'Join'} = time() if (&IsChanConf("seenStats"));
+ $userstats{lc $who}{'Join'} = time() if (&IsChanConf("seenStats") > 0);
$cache{maxpeeps}{$chan} = $i if ($i > $j);
&joinfloodCheck($who, $chan, $event->userhost);
&clearChanVars($chan);
}
- if (!&IsNickInAnyChan($nick) and &IsChanConf("seenStats")) {
+ if (!&IsNickInAnyChan($nick) and &IsChanConf("seenStats") > 0) {
delete $userstats{lc $nick};
}
$msgtime = time();
$lastWho{$chan} = $nick;
### TODO: use $nick or lc $nick?
- if (&IsChanConf("seenStats")) {
+ if (&IsChanConf("seenStats") > 0) {
$userstats{lc $nick}{'Count'}++;
$userstats{lc $nick}{'Time'} = time();
}
$v++;
# don't allow ppl to cheat the stats :-)
- if (defined $t && $time - $t > 60) {
+ if (defined $t && $time - $t > 60) {
&sqlReplace("stats", {
nick => $who,
type => $x,
# well.. it's good but weird that this has happened - lets just
# be quiet about it.
}
- delete $userstats{lc $nick} if (&IsChanConf("seenStats"));
+ delete $userstats{lc $nick} if (&IsChanConf("seenStats") > 0);
delete $chanstats{lc $nick};
###