}
### chanlimit check.
- &chanLimitVerify($chan);
+# &chanLimitVerify($chan);
### wingate:
&wingateCheck();
&status("SELF attempting to rejoin lost channel $chan");
&joinchan($chan);
} else {
- &DeleteUserInfo($kickee,$chan);
+ &delUserInfo($kickee,$chan);
}
}
}
# todo: do %flood* aswell.
- &DeleteUserInfo($nick, keys %channels);
+ &delUserInfo($nick, keys %channels);
$nuh{lc $newnick} = $nuh{lc $nick};
delete $nuh{lc $nick};
}
$chanstats{$chan}{'Part'}++;
- &DeleteUserInfo($nick,$chan);
+ &delUserInfo($nick,$chan);
&clearChanVars($chan) if ($nick eq $ident);
if (!&IsNickInAnyChan($nick) and &IsChanConf("seenStats")) {
delete $userstats{lc $nick};
&DEBUG("on_quit: nick $nick was not found in any chan.");
}
- &DeleteUserInfo($nick, keys %channels);
+ &delUserInfo($nick, keys %channels);
if (exists $nuh{lc $nick}) {
delete $nuh{lc $nick};
# chanlimit code.
if (&ChanConfList("chanlimitcheck") and !scalar keys %netsplit) {
- &DEBUG("on_quit: netsplit detected; disabling chan limit.");
+ &DEBUG("on_quit: netsplit detected on $chan; disabling chan limit.");
&rawout("MODE $chan -l");
}
}
}
- &status(">>> $b_cyan$nick$ob has signed off IRC $b_red($ob$reason$b_red)$ob");
+ my $chans = join(' ', &getNickInChans($nick) );
+ &status(">>> $b_cyan$nick$ob has signed off IRC $b_red($ob$reason$b_red)$ob [$chans]");
if ($nick =~ /^\Q$ident\E$/) {
- &DEBUG("^^^ THIS SHOULD NEVER HAPPEN.");
+ &ERROR("^^^ THIS SHOULD NEVER HAPPEN (10).");
}
if ($nick !~ /^\Q$ident\E$/ and $nick =~ /^\Q$param{'ircNick'}\E$/i) {
return;
}
+ if ($args[5] =~ /^nickserv$/i and !$nickserv) {
+ &DEBUG("ok... we did a who for nickserv.");
+ &rawout("PRIVMSG NickServ :IDENTIFY $param{'nickServ_pass'}");
+ }
+
$nuh{lc $args[5]} = $args[5]."!".$args[2]."\@".$args[3];
}