failed WHOIS (nuh) lookups... now we just compare against "GETTING-NOW"
- on_quit debug info much cleaner now.
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@364
c11ca15a-4712-0410-83d8-
924469b57eb5
sub on_dcc_open_chat {
my(undef, $nick,$sock) = @_;
sub on_dcc_open_chat {
my(undef, $nick,$sock) = @_;
- &DEBUG("nuh{$nick} => $nuh{$nick}.");
- if ($nuh{$nick} =~ /^(\S+)(\d+)$/) {
- my $i = $2;
- $i++;
- $nuh{$nick} = $1.$i;
+ if ($nuh{$nick} eq "GETTING-NOW") {
&DEBUG("getting nuh for $nick failed. FIXME.");
return;
}
&DEBUG("getting nuh for $nick failed. FIXME.");
return;
}
my $nick = $event->nick();
my $reason = ($event->args)[0];
my $nick = $event->nick();
my $reason = ($event->args)[0];
foreach (keys %channels) {
# fixes inconsistent chanstats bug #1.
if (!&IsNickInChan($nick,$_)) {
foreach (keys %channels) {
# fixes inconsistent chanstats bug #1.
if (!&IsNickInChan($nick,$_)) {
- &DEBUG("on_quit: nick $nick was not in chan $_.");
next;
}
$chanstats{$_}{'SignOff'}++;
}
next;
}
$chanstats{$_}{'SignOff'}++;
}
+ if ($count == scalar keys %channels) {
+ &DEBUG("on_quit: nick $nick was not found in any chan.");
+ }
+
&DeleteUserInfo($nick, keys %channels);
if (exists $nuh{lc $nick}) {
&DeleteUserInfo($nick, keys %channels);
if (exists $nuh{lc $nick}) {