X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FIRC%2FIrcHooks.pl;h=9c9d87c06f70531924671117d36234add002135f;hb=f7cae48a17d6decd0a9bd997188271daa0a885b1;hp=461d9de730b69a5ba45c33c878bc8d6fc60d4b4e;hpb=79ddec2f34e07300f6fdb0803b56746b8399c0f4;p=infobot.git

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 461d9de..9c9d87c 100644
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -5,8 +5,6 @@
 #        NOTE: Based on code by Kevin Lenzo & Patrick Cole  (c) 1997
 #
 
-if (&IsParam("useStrict")) { use strict; }
-
 # GENERIC. TO COPY.
 sub on_generic {
     my ($self, $event) = @_;
@@ -55,6 +53,7 @@ sub on_chat {
     $orig{message}	= $msg;
     $nuh		= $nuh{$who};
     $uh			= (split /\!/, $nuh)[1];
+    $h			= (split /\@/, $uh)[1];
     $addressed		= 1;
     $msgType		= 'chat';
 
@@ -63,6 +62,11 @@ sub on_chat {
 	my $crypto	= $users{$userHandle}{PASS};
 	my $success	= 0;
 
+	if ($userHandle eq "_default") {
+	    &WARN("DCC CHAT: _default/guest not allowed.");
+	    return;
+	}
+
 	### TODO: prevent users without CRYPT chatting.
 	if (!defined $crypto) {
 	    &DEBUG("todo: dcc close chat");
@@ -85,7 +89,7 @@ sub on_chat {
 	    &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?
 	}
 
@@ -119,7 +123,7 @@ sub on_chat {
 
     } else {			# dcc chat arena.
 
-	foreach (keys %{$dcc{'CHAT'}}) {
+	foreach (keys %{ $dcc{'CHAT'} }) {
 	    $conn->privmsg($dcc{'CHAT'}{$_}, "<$who> $orig{message}");
 	}
     }
@@ -127,26 +131,40 @@ sub on_chat {
     return 'DCC CHAT MESSAGE';
 }
 
+# is there isoff? how do we know if someone signs off?
+sub on_ison {
+    my ($self, $event) = @_;
+    my $x1 = ($event->args)[0];
+    my $x2 = ($event->args)[1];
+    $x2 =~ s/\s$//;
+
+#    &nick( $param{'ircNick'} );
+
+    &DEBUG("on_ison: x1 = '$x1', x2 => '$x2'");
+}
+
 sub on_endofmotd {
     my ($self) = @_;
 
-    # what's the following for?
-    $ident			= $param{'ircNick'};
     # update IRCStats.
+    $ident = $param{'ircNick'};
     $ircstats{'ConnectTime'}	= time();
     $ircstats{'ConnectCount'}++;
-    $ircstats{'OffTime'}	+= time() - $ircstats{'DisconnectTime'}
-			if (defined $ircstats{'DisconnectTime'});
+    if (defined $ircstats{'DisconnectTime'}) {
+	$ircstats{'OffTime'}	+= time() - $ircstats{'DisconnectTime'};
+    }
 
     # first time run.
     if (!exists $users{_default}) {
-	&status("First time run... adding _default user.");
+	&status("!!! First time run... adding _default user.");
 	$users{_default}{FLAGS}	= "mrt";
-	$users{_default}{HOSTS} = "*!*@*";
+	$users{_default}{HOSTS}{"*!*@*"} = 1;
     }
 
     if (scalar keys %users < 2) {
-	&status("Ok... now /msg $ident PASS <pass> to get master access through DCC CHAT.");
+	&status("!"x40);
+	&status("!!! Ok.  Now type '/msg $ident PASS <pass>' to get master access through DCC CHAT.");
+	&status("!"x40);
     }
     # end of first time run.
 
@@ -167,19 +185,47 @@ sub on_endofmotd {
     }
 
     if (&IsParam("ircUMode")) {
-	&status("Attempting change of user modes to $param{'ircUMode'}.");
+	&VERB("Attempting change of user modes to $param{'ircUMode'}.", 2);
+	if ($param{'ircUMode'} !~ /^[-+]/) {
+	    &WARN("ircUMode had no +- prefix; adding +");
+	    $param{'ircUMode'} = "+".$param{'ircUMode'};
+	}
+
 	&rawout("MODE $ident $param{'ircUMode'}");
     }
 
     &status("End of motd. Now lets join some channels...");
     if (!scalar @joinchan) {
-	&WARN("joinchan array is empty!!!");
-	@joinchan = &getJoinChans();
+	&WARN("joinchan array is empty!");
+	@joinchan = &getJoinChans(1);
+    }
+
+    # ok, we're free to do whatever we want now. go for it!
+    $running = 1;
+
+    # add ourself to notify.
+    $conn->ison( $param{'ircNick'} );
+
+    # Q, as on quakenet.org.
+    if (&IsParam("Q_pass")) {
+	&status("Authing to Q...");
+	&rawout("PRIVMSG Q\@CServe.quakenet.org :AUTH $param{'Q_user'} $param{'Q_pass'}");
     }
 
     &joinNextChan();
 }
 
+sub on_endofwho {
+    my ($self, $event) = @_;
+#    &DEBUG("endofwho: chan => $chan");
+    $chan	||= ($event->args)[1];
+#    &DEBUG("endofwho: chan => $chan");
+
+    if (exists $cache{countryStats}) {
+	&do_countrystats();
+    }
+}
+
 sub on_dcc {
     my ($self, $event) = @_;
     my $type = uc( ($event->args)[1] );
@@ -197,19 +243,17 @@ sub on_dcc {
 	my $get = ($event->args)[2];
 	open(DCCGET,">$get");
 
-	$self->new_get($nick,
-		($event->args)[2],
-		($event->args)[3],
-		($event->args)[4],
-		($event->args)[5],
-		\*DCCGET
-	);
+	$self->new_get($event, \*DCCGET);
+
     } elsif ($type eq 'GET') {	# SEND for us?
 	&status("DCC: Initializing SEND for $nick.");
 	$self->new_send($event->args);
+
     } elsif ($type eq 'CHAT') {
 	&status("DCC: Initializing CHAT for $nick.");
 	$self->new_chat($event);
+#	$self->new_chat(1, $nick, $event->host);
+
     } else {
 	&WARN("${b_green}DCC $type$ob (1)");
     }
@@ -274,7 +318,6 @@ sub on_dcc_open {
 
     } else {
 	&WARN("${b_green}DCC $type$ob (3)");
-
     }
 }
 
@@ -284,7 +327,7 @@ sub on_dcc_open_chat {
     my(undef, $nick, $sock) = @_;
 
     if ($nuh{$nick} eq "GETTING-NOW") {
-	&DEBUG("getting nuh for $nick failed. FIXME.");
+	&FIXME("getting nuh for $nick failed.");
 	return;
     }
 
@@ -294,17 +337,25 @@ sub on_dcc_open_chat {
 
     if (!exists $users{$userHandle}{HOSTS}) {
 	&pSReply("you have no hosts defined in my user file; rejecting.");
-	### TODO: $sock->close();
+	$sock->close();
 	return;
     }
 
     my $crypto	= $users{$userHandle}{PASS};
     $dcc{'CHAT'}{$nick} = $sock;
 
+    # todo: don't make DCC CHAT established in the first place.
+    if ($userHandle eq "_default") {
+	&dccsay($nick, "_default/guest not allowed");
+	$sock->close();
+	return;
+    }
+
     if (defined $crypto) {
+	&status("DCC CHAT: going to use ".$nick."'s crypt.");
 	&dccsay($nick,"Enter your password.");
     } else {
-	&dccsay($nick,"Welcome to blootbot DCC CHAT interface, $userHandle.");
+#	&dccsay($nick,"Welcome to blootbot DCC CHAT interface, $userHandle.");
     }
 }
 
@@ -317,15 +368,26 @@ sub on_disconnect {
     $ircstats{'DisconnectTime'}		= time();
     $ircstats{'DisconnectReason'}	= $what;
     $ircstats{'DisconnectCount'}++;
-    $ircstats{'TotalTime'}	+= time() - $ircstats{'ConnectTime'};
+    $ircstats{'TotalTime'}	+= time() - $ircstats{'ConnectTime'}
+					if ($ircstats{'ConnectTime'});
 
     # clear any variables on reconnection.
     $nickserv = 0;
 
     &clearIRCVars();
+
+    if (!defined $self) {
+	&WARN("on_disconnect: self is undefined! WTF");
+	&DEBUG("running function irc... lets hope this works.");
+	&irc();
+	return;
+    }
+
     if (!$self->connect()) {
-	&WARN("not connected? help me. gonna call ircCheck() in 1800s");
-	&ScheduleThis(30, "ircCheck");
+	&DEBUG("on_disconnect: 3");
+	&WARN("not connected? help me. gonna call ircCheck() in 60s");
+	&clearIRCVars();
+	&ScheduleThis(1, "ircCheck");
     }
 }
 
@@ -333,14 +395,18 @@ sub on_endofnames {
     my ($self, $event) = @_;
     my $chan = ($event->args)[1];
 
+    # sync time should be done in on_endofwho like in BitchX
     if (exists $cache{jointime}{$chan}) {
-	my $delta_time = sprintf("%.03f", &gettimeofday() - $cache{jointime}{$chan});
-	$delta_time    = 0	if ($delta_time < 0);
+	my $delta_time = sprintf("%.03f", &timedelta($cache{jointime}{$chan}) );
+	$delta_time    = 0	if ($delta_time <= 0);
+	if ($delta_time > 100) {
+	    &WARN("endofnames: delta_time > 100 ($delta_time)");
+	}
 
 	&status("$b_blue$chan$ob: sync in ${delta_time}s.");
     }
 
-    rawout("MODE $chan");
+    $conn->mode($chan);
 
     my $txt;
     my @array;
@@ -357,20 +423,9 @@ sub on_endofnames {
     my $chanstats = join(' || ', @array);
     &status("$b_blue$chan$ob: [$chanstats]");
 
-    if (scalar @joinchan) {	# remaining channels to join.
-	&joinNextChan();
-    } else {
-	&DEBUG("running ircCheck to get chanserv ops.");
-	&ircCheck();
-    }
-
-    return unless (&IsChanConf("chanServ_ops") > 0);
-    return unless ($nickserv);
-
-    if (!exists $channels{$chan}{'o'}{$ident}) {
-	&status("ChanServ ==> Requesting ops for $chan.");
-	&rawout("PRIVMSG ChanServ :OP $chan $ident");
-    }
+    &chanServCheck($chan);
+    # schedule used to solve ircu (OPN) "target too fast" problems.
+    $conn->schedule(5, sub { &joinNextChan(); } );
 }
 
 sub on_init {
@@ -393,24 +448,34 @@ sub on_invite {
 
     ### TODO: join key.
     if (exists $chanconf{$chan}) {
+	# it's still buggy :/
 	if (&validChan($chan)) {
 	    &msg($who, "i'm already in \002$chan\002.");
-	    next;
+#	    return;
 	}
 
-	&status("invited to $b_blue$_$ob by $b_cyan$who$ob");
-	&joinchan($self, $_);
+	&status("invited to $b_blue$chan$ob by $b_cyan$nick$ob");
+	&joinchan($chan);
     }
 }
 
 sub on_join {
-    my ($self, $event) = @_;
-    my ($user,$host) = split(/\@/, $event->userhost);
-    $chan	= lc( ($event->to)[0] );	# CASING!!!!
-    $who	= $event->nick();
+    my ($self, $event)	= @_;
+    my ($user,$host)	= split(/\@/, $event->userhost);
+    $chan		= lc( ($event->to)[0] ); # CASING!!!!
+    $who		= $event->nick();
+    $msgType		= "public";
+    my $i		= scalar(keys %{ $channels{$chan} });
+    my $j		= $cache{maxpeeps}{$chan} || 0;
+
+    if (!&IsParam("noSHM") && time() > ($sched{shmFlush}{TIME} || time()) + 3600) {
+	&DEBUG("looks like schedulers died somewhere... restarting...");
+	&setupSchedulers();
+    }
 
     $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);
 
@@ -419,16 +484,23 @@ sub on_join {
     if (exists $netsplit{lc $who}) {
 	delete $netsplit{lc $who};
 	$netsplit = 1;
+
+	if (!scalar keys %netsplit) {
+	    &DEBUG("on_join: netsplit hash is now empty!");
+	    undef %netsplitservers;
+	    &netsplitCheck();	# any point in running this?
+	    &chanlimitCheck();
+	}
     }
 
-    if ($netsplit and !$netsplittime) {
-	&DEBUG("on_join: ok.... re-running chanlimitCheck in 60.");
+    if ($netsplit and !exists $cache{netsplit}) {
+	&VERB("on_join: ok.... re-running chanlimitCheck in 60.",2);
 	$conn->schedule(60, sub {
 		&chanlimitCheck();
-		$netsplittime = undef;
+		delete $cache{netsplit};
 	} );
 
-	$netsplittime = time();
+	$cache{netsplit} = time();
     }
 
     # how to tell if there's a netjoin???
@@ -444,7 +516,8 @@ sub on_join {
     ### on-join bans.
     my @bans;
     push(@bans, keys %{ $bans{$chan} }) if (exists $bans{$chan});
-    push(@bans, keys %{ $bans{"*"} })  if (exists $bans{"*"});
+    push(@bans, keys %{ $bans{"*"} })   if (exists $bans{"*"});
+
     foreach (@bans) {
 	my $ban	= $_;
 	s/\?/./g;
@@ -474,36 +547,46 @@ sub on_join {
 	last;
     }
 
-    ### ROOTWARN:
-    &rootWarn($who,$user,$host,$chan)
-		if (&IsChanConf("rootWarn") &&
-		    $user =~ /^r(oo|ew|00)t$/i &&
-		    $channels{$chan}{'o'}{$ident});
-
-    ### NEWS:
-    if (&IsChanConf("news") && &IsChanConf("newsKeepRead")) {
-	# todo: what if it hasn't been loaded?
-	&News::latest($chan);
-    }
-
-    ### chanlimit check.
-    &chanLimitVerify($chan);
+    # no need to go further.
+    return if ($netsplit);
 
-    # used to determine sync time.
-    if ($who =~ /^$ident$/i) {
+    # who == bot.
+    if ($who eq $ident or $who =~ /^$ident$/i) {
 	if (defined( my $whojoin = $cache{join}{$chan} )) {
 	    &msg($chan, "Okay, I'm here. (courtesy of $whojoin)");
 	    delete $cache{join}{$chan};
+	    &joinNextChan();	# hack.
 	}
 
 	### TODO: move this to &joinchan()?
-	$cache{jointime}{$chan} = &gettimeofday();
-	rawout("WHO $chan");
-    } else {
-	### TODO: this may go wild on a netjoin :)
-	### WINGATE:
-	&wingateCheck();
+	$cache{jointime}{$chan} = &timeget();
+	$conn->who($chan);
+
+	return;
+    }
+
+    ### ROOTWARN:
+    &rootWarn($who,$user,$host,$chan) if (
+		&IsChanConf("rootWarn") &&
+		$user =~ /^~?r(oo|ew|00)t$/i
+    );
+
+    ### NEWS:
+    if (&IsChanConf("news") && &IsChanConf("newsKeepRead")) {
+	if (!&loadMyModule("news")) {	# just in case.
+	    &DEBUG("could not load news.");
+	} else {
+	    &News::latest($chan);
+	}
     }
+
+    ### botmail:
+    if (&IsChanConf("botmail")) {
+	&botmail::check(lc $who);
+    }
+
+    ### wingate:
+    &wingateCheck();
 }
 
 sub on_kick {
@@ -524,33 +607,35 @@ sub on_kick {
 	&status("SELF attempting to rejoin lost channel $chan");
 	&joinchan($chan);
     } else {
-	&DeleteUserInfo($kickee,$chan);
+	&delUserInfo($kickee,$chan);
     }
 }
 
 sub on_mode {
     my ($self, $event)	= @_;
     my ($user, $host)	= split(/\@/, $event->userhost);
-    my @args = $event->args();
-    my $nick = $event->nick();
-    my $chan = ($event->to)[0];
+    my @args	= $event->args();
+    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");
     } else {			# MODE
 	&status(">>> mode/$b_blue$chan$ob $b_yellow\[$ob$b@args$b_yellow\]$ob by $b_cyan$nick$ob");
-	&hookMode($chan, @args);
+	&hookMode($nick, @args);
     }
 }
 
 sub on_modeis {
     my ($self, $event) = @_;
-    my $nick = $event->nick();
-    my ($myself,$chan,@args) = $event->args();
+    my ($myself, undef,@args) = $event->args();
+    my $nick	= $event->nick();
+    $chan	= ($event->args())[1];
 
-    &hookMode(lc $chan, @args);		# CASING.
+    &hookMode($nick, @args);
 }
 
 sub on_msg {
@@ -562,6 +647,7 @@ sub on_msg {
     $uh		= $event->userhost();
     $nuh	= $nick."!".$uh;
     $msgtime	= time();
+    $h		= $host;
 
     if ($nick eq $ident) { # hopefully ourselves.
 	if ($msg eq "TEST") {
@@ -572,6 +658,9 @@ sub on_msg {
     }
 
     &hookMsg('private', undef, $nick, $msg);
+    $who	= "";
+    $chan	= "";
+    $msgType	= "";
 }
 
 sub on_names {
@@ -588,43 +677,60 @@ sub on_names {
 
 sub on_nick {
     my ($self, $event) = @_;
-    my $nick = $event->nick();
+    my $nick	= $event->nick();
     my $newnick = ($event->args)[0];
 
     if (exists $netsplit{lc $newnick}) {
 	&status("Netsplit: $newnick/$nick came back from netsplit and changed to original nick! removing from hash.");
 	delete $netsplit{lc $newnick};
+	&netsplitCheck() if (time() != $sched{netsplitCheck}{TIME});
     }
 
     my ($chan,$mode);
     foreach $chan (keys %channels) {
-	foreach $mode (keys %{$channels{$chan}}) {
+	foreach $mode (keys %{ $channels{$chan} }) {
 	    next unless (exists $channels{$chan}{$mode}{$nick});
 
 	    $channels{$chan}{$mode}{$newnick} = $channels{$chan}{$mode}{$nick};
 	}
     }
-    &DeleteUserInfo($nick,keys %channels);
+    # todo: do %flood* aswell.
+
+    &delUserInfo($nick, keys %channels);
     $nuh{lc $newnick} = $nuh{lc $nick};
     delete $nuh{lc $nick};
 
-    # successful self-nick change.
     if ($nick eq $ident) {
 	&status(">>> I materialized into $b_green$newnick$ob from $nick");
-	$ident = $newnick;
+	$ident	= $newnick;
     } else {
 	&status(">>> $b_cyan$nick$ob materializes into $b_green$newnick$ob");
+
+	if ($nick =~ /^\Q$param{'ircNick'}\E$/i) {
+	    &getNickInUse();
+	}
     }
 }
 
 sub on_nick_taken {
-    my ($self) = @_;
-    my $nick = $self->nick;
-    my $newnick = substr($nick,0,7)."-";
+    my ($self)	= @_;
+    my $nick	= $self->nick();
+    my $newnick = $nick.int(rand 10);
+
+    if ($nick eq $ident) {
+	&DEBUG("on_nick_tane: nick eq ident... wtf?");
+	return;
+    }
+
+    &DEBUG("on_nick_taken: ident => $ident");
+
+    &status("nick taken ($nick); preparing nick change.");
 
-    &status("nick taken; changing to temporary nick.");
-    &nick($newnick);
-    &getNickInUse(1);
+    $self->whois($nick);
+    $conn->schedule(5, sub {
+	&status("nick taken; changing to temporary nick ($nick -> $newnick).");
+	&nick($newnick);
+    } );
 }
 
 sub on_notice {
@@ -642,6 +748,7 @@ sub on_notice {
 
 	if ($check) {
 	    &status("nickserv told us to register; doing it.");
+
 	    if (&IsParam("nickServ_pass")) {
 		&status("NickServ: ==> Identifying.");
 		&rawout("PRIVMSG NickServ :IDENTIFY $param{'nickServ_pass'}");
@@ -653,10 +760,21 @@ sub on_notice {
 
 	# password accepted.
 	if ($args =~ /^Password a/i) {
+	    my $done	= 0;
+
+	    foreach ( &ChanConfList("chanServ_ops") ) {
+		next unless &chanServCheck($_);
+		next if ($done);
+		&DEBUG("nickserv activated or restarted; doing chanserv check.");
+		$done++;
+	    }
+
 	    $nickserv++;
 	}
+
     } elsif ($nick =~ /^ChanServ$/i) {		# chanserv.
 	&status("ChanServ: <== '$args'.");
+
     } else {
 	if ($chan =~ /^$mask{chan}$/) {	# channel notice.
 	    &status("-$nick/$chan- $args");
@@ -678,18 +796,28 @@ sub on_other {
 
 sub on_part {
     my ($self, $event) = @_;
-    my $chan = lc( ($event->to)[0] );	# CASING!!!
-    my $nick = $event->nick;
+    $chan	= lc( ($event->to)[0] );	# CASING!!!
+    my $nick	= $event->nick;
     my $userhost = $event->userhost;
+    $who	= $nick;
+    $msgType	= "public";
+
+    if (0 and !exists $channels{$chan}) {
+	&DEBUG("on_part: found out we're on $chan!");
+	$channels{$chan} = 1;
+    }
 
     if (exists $floodjoin{$chan}{$nick}{Time}) {
 	delete $floodjoin{$chan}{$nick};
     }
 
     $chanstats{$chan}{'Part'}++;
-    &DeleteUserInfo($nick,$chan);
-    &clearChanVars($chan) if ($nick eq $ident);
-    if (!&IsNickInAnyChan($nick) and &IsChanConf("seenStats")) {
+    &delUserInfo($nick,$chan);
+    if ($nick eq $ident) {
+	&clearChanVars($chan);
+    }
+
+    if (!&IsNickInAnyChan($nick) and &IsChanConf("seenStats") > 0) {
 	delete $userstats{lc $nick};
     }
 
@@ -706,62 +834,101 @@ sub on_ping {
 
 sub on_ping_reply {
     my ($self, $event) = @_;
-    my $nick = $event->nick;
-    my $lag = time() - ($event->args)[1];
+    my $nick	= $event->nick;
+    my $t	= ($event->args)[1];
+    if (!defined $t) {
+	&WARN("on_ping_reply: t == undefined.");
+	return;
+    }
+
+    my $lag = time() - $t;
 
     &status(">>> ${b_green}CTCP PING$ob reply from $b_cyan$nick$ob: $lag sec.");
 }
 
 sub on_public {
     my ($self, $event) = @_;
-    my $msg  = ($event->args)[0];
-    my $chan = lc( ($event->to)[0] );	# CASING.
-    my $nick = $event->nick;
-    $uh      = $event->userhost();
-    $nuh     = $nick."!".$uh;
+    my $msg 	= ($event->args)[0];
+    $chan	= lc( ($event->to)[0] );	# CASING.
+    my $nick	= $event->nick;
+    $who	= $nick;
+    $uh		= $event->userhost();
+    $nuh	= $nick."!".$uh;
+    $msgType	= "public";
+    # todo: move this out of hookMsg to here?
     ($user,$host) = split(/\@/, $uh);
+    $h		= $host;
 
+    # rare case should this happen - catch it just in case.
     if ($bot_pid != $$) {
 	&ERROR("run-away fork; exiting.");
 	&delForked($forker);
     }
 
-    ### DEBUGGING.
-    if ($statcount < 200) {
-	foreach $chan (grep /[A-Z]/, keys %channels) {
-	    &DEBUG("leak: chan => '$chan'.");
-	    my ($i,$j);
-	    foreach $i (keys %{$channels{$chan}}) {  
-		foreach (keys %{$channels{$chan}{$i}}) {
-		    &DEBUG("leak:   \$channels{$chan}{$i}{$_} ...");
-		}
-	    }
-	}
-    }
-
-    $msgtime = time();
-    $lastWho{$chan} = $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();
     }
 
-#    if (&IsChanConf("hehCounter")) {
-#	#...
-#    }
+    # cache it.
+    my $time	= time();
+    if (!$cache{ircTextCounters}) {
+	&DEBUG("caching ircTextCounters for first time.");
+	my @str	= split(/\s+/, &getChanConf("ircTextCounters"));
+	for (@str) { $_ = quotemeta($_); }
+	$cache{ircTextCounters} = join('|', @str);
+    }
+
+    my $str = $cache{ircTextCounters};
+    if ($str && $msg =~ /^($str)[\s!\.]?$/i) {
+	my $x = $1;
+
+	&VERB("textcounters: $x matched for $who",2);
+	my $c = $chan || "PRIVATE";
+
+	# better to do "counter=counter+1".
+	# but that will avoid time check.
+	my ($v,$t) = &sqlSelect("stats", "counter,time", {
+			nick	=> $who,
+			type	=> $x,
+			channel	=> $c,
+	} );
+	$v++;
+
+	# don't allow ppl to cheat the stats :-)
+	if (defined $t && $time - $t > 60) {
+	    &sqlReplace("stats", {
+		nick	=> $who,
+		type	=> $x,
+		channel => $c,
+		time	=> $time,
+		counter => $v,
+	    } );
+	}
+    }
 
     &hookMsg('public', $chan, $nick, $msg);
     $chanstats{$chan}{'PublicMsg'}++;
+    $who	= "";
+    $chan	= "";
+    $msgType	= "";
 }
 
 sub on_quit {
     my ($self, $event) = @_;
-    my $nick = $event->nick();
-    my $reason = ($event->args)[0];
+    my $nick	= $event->nick();
+    my $reason	= ($event->args)[0];
+
+    # hack for ICC.
+    $msgType	= "public";
+    $who	= $nick;
+###    $chan	= $reason;	# no.
 
     my $count	= 0;
-    foreach (keys %channels) {
+    foreach (grep !/^_default$/, keys %channels) {
 	# fixes inconsistent chanstats bug #1.
 	if (!&IsNickInChan($nick,$_)) {
 	    $count++;
@@ -774,39 +941,50 @@ sub on_quit {
 	&DEBUG("on_quit: nick $nick was not found in any chan.");
     }
 
-    &DeleteUserInfo($nick, keys %channels);
-
-    if (exists $nuh{lc $nick}) {
-	delete $nuh{lc $nick};
-    } else {
-	&DEBUG("on_quit: nuh{lc $nick} does not exist! FIXME");
-    }
-    delete $userstats{lc $nick} if (&IsChanConf("seenStats"));
-
     # should fix chanstats inconsistencies bug #2.
-    if ($reason=~/^($mask{host})\s($mask{host})$/) {	# netsplit.
+    if ($reason =~ /^($mask{host})\s($mask{host})$/) {	# netsplit.
 	$reason = "NETSPLIT: $1 <=> $2";
 
-	if (&ChanConfList("chanlimitcheck") and !scalar keys %netsplit) {
-	    &DEBUG("on_quit: netsplit detected; disabling chan limit.");
-	    &rawout("MODE $chan -l");
+	# chanlimit code.
+	foreach $chan ( &getNickInChans($nick) ) {
+	    next unless ( &IsChanConf("chanlimitcheck") );
+	    next unless ( exists $channels{$_}{'l'} );
+
+	    &DEBUG("on_quit: netsplit detected on $_; disabling chan limit.");
+	    $conn->mode($_, "-l");
 	}
 
 	$netsplit{lc $nick} = time();
 	if (!exists $netsplitservers{$1}{$2}) {
-	    &status("netsplit detected between $1 and $2.");
+	    &status("netsplit detected between $1 and $2 at [".scalar(gmtime)."]");
 	    $netsplitservers{$1}{$2} = time();
 	}
     }
 
-    &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).");
+    }
+
+    ###
+    ### ok... lets clear out the cache
+    ###
+    &delUserInfo($nick, keys %channels);
+    if (exists $nuh{lc $nick}) {
+	delete $nuh{lc $nick};
+    } else {
+	# well.. it's good but weird that this has happened - lets just
+	# be quiet about it.
     }
+    delete $userstats{lc $nick} if (&IsChanConf("seenStats") > 0);
+    delete $chanstats{lc $nick};
+    ###
 
+    # does this work?
     if ($nick !~ /^\Q$ident\E$/ and $nick =~ /^\Q$param{'ircNick'}\E$/i) {
-	&status("own nickname became free; changing.");
-	&nick($param{'ircNick'});
+	&status("nickchange: own nickname became free; changing.");
+	&nick( $param{'ircNick'} );
     }
 }
 
@@ -816,13 +994,30 @@ sub on_targettoofast {
     my($me,$chan,$why) = $event->args();
 
     ### TODO: incomplete.
-###    .* wait (\d+) second/) {
-	&status("on_ttf: X1 $msg") if (defined $msg);
-	my $sleep = 5;
-	&status("going to sleep for $sleep...");
-	sleep $sleep;
-	&joinNextChan();
-### }
+    if ($why =~ /.* wait (\d+) second/) {
+	my $sleep	= $1;
+	my $max		= 10;
+
+	if ($sleep > $max) {
+	    &status("targettoofast: going to sleep for $max ($sleep)...");
+	    $sleep = $max;
+	} else {
+	    &status("targettoofast: going to sleep for $sleep");
+	}
+
+	my $delta = time() - ($cache{sleepTime} || 0);
+	if ($delta > $max+2) {
+	    sleep $sleep;
+	    $cache{sleepTime} = time();
+	}
+
+	return;
+    }
+
+    if (!exists $cache{TargetTooFast}) {
+	&DEBUG("on_ttf: failed: $why");
+	$cache{TargetTooFast}++;
+    }
 }
 
 sub on_topic {
@@ -864,7 +1059,7 @@ sub on_topicinfo {
 
     my $timestr;
     if (time() - $time > 60*60*24) {
-	$timestr	= "at ". localtime $time;
+	$timestr	= "at ". gmtime $time;
     } else {
 	$timestr	= &Time2String(time() - $time) ." ago";
     }
@@ -885,34 +1080,54 @@ sub on_crversion {
     }
 
     if (grep /^\Q$nick\E$/i, @vernick) {
-	&WARN("nick $nick found in vernick; skipping.");
+	&WARN("nick $nick found in vernick ($ver); skipping.");
 	return;
     }
     push(@vernick, $nick);
 
     if ($ver =~ /bitchx/i) {
 	$ver{bitchx}{$nick}	= $ver;
+
     } elsif ($ver =~ /xc\!|xchat/i) {
 	$ver{xchat}{$nick}	= $ver;
+
     } elsif ($ver =~ /irssi/i) {
 	$ver{irssi}{$nick}	= $ver;
-    } elsif ($ver =~ /epic/i) {
+
+    } elsif ($ver =~ /epic|(Third Eye)/i) {
 	$ver{epic}{$nick}	= $ver;
+
+    } elsif ($ver =~ /ircII|PhoEniX/i) {
+	$ver{ircII}{$nick}	= $ver;
+
     } elsif ($ver =~ /mirc/i) {
+#	&DEBUG("verstats: mirc: $nick => '$ver'.");
 	$ver{mirc}{$nick}	= $ver;
+
+# ok... then we get to the lesser known/used clients.
     } elsif ($ver =~ /ircle/i) {
 	$ver{ircle}{$nick}	= $ver;
-    } elsif ($ver =~ /ircII/i) {
-	$ver{ircII}{$nick}	= $ver;
+
+    } elsif ($ver =~ /chatzilla/i) {
+	$ver{chatzilla}{$nick}	= $ver;
+
+    } elsif ($ver =~ /pirch/i) {
+	$ver{pirch}{$nick}	= $ver;
+
     } elsif ($ver =~ /sirc /i) {
 	$ver{sirc}{$nick}	= $ver;
+
     } elsif ($ver =~ /kvirc/i) {
 	$ver{kvirc}{$nick}	= $ver;
+
     } elsif ($ver =~ /eggdrop/i) {
 	$ver{eggdrop}{$nick}	= $ver;
+
     } elsif ($ver =~ /xircon/i) {
 	$ver{xircon}{$nick}	= $ver;
+
     } else {
+	&DEBUG("verstats: other: $nick => '$ver'.");
 	$ver{other}{$nick}	= $ver;
     }
 }
@@ -928,284 +1143,92 @@ sub on_version {
 sub on_who {
     my ($self, $event) = @_;
     my @args	= $event->args;
+    my $str	= $args[5]."!".$args[2]."\@".$args[3];
+
+    if ($cache{on_who_Hack}) {
+	$cache{nuhInfo}{lc $args[5]}{Nick} = $args[5];
+	$cache{nuhInfo}{lc $args[5]}{User} = $args[2];
+	$cache{nuhInfo}{lc $args[5]}{Host} = $args[3];
+	$cache{nuhInfo}{lc $args[5]}{NUH}  = "$args[5]!$args[2]\@$args[3]";
+	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];
 }
 
-sub on_whoisuser {
+sub on_whois {
     my ($self, $event) = @_;
     my @args	= $event->args;
 
-    &DEBUG("on_whoisuser: @args");
-
     $nuh{lc $args[1]} = $args[1]."!".$args[2]."\@".$args[3];
 }
 
-#######################################################################
-####### IRC HOOK HELPERS   IRC HOOK HELPERS   IRC HOOK HELPERS ########
-#######################################################################
-
-#####
-# Usage: &hookMode($chan, $modes, @targets);
-sub hookMode {
-    my ($chan, $modes, @targets) = @_;
-    my $parity	= 0;
-
-    $chan = lc $chan;		# !!!.
-
-    my $mode;
-    foreach $mode (split(//, $modes)) {
-	# sign.
-	if ($mode =~ /[-+]/) {
-	    $parity = 1		if ($mode eq "+");
-	    $parity = 0		if ($mode eq "-");
-	    next;
-	}
-
-	# mode with target.
-	if ($mode =~ /[bklov]/) {
-	    my $target = shift @targets;
-
-	    if ($parity) {
-		$chanstats{$chan}{'Op'}++    if ($mode eq "o");
-		$chanstats{$chan}{'Ban'}++   if ($mode eq "b");
-	    } else {
-		$chanstats{$chan}{'Deop'}++  if ($mode eq "o");
-		$chanstats{$chan}{'Unban'}++ if ($mode eq "b");
-	    }
-
-	    # modes w/ target affecting nick => cache it.
-	    if ($mode =~ /[bov]/) {
-		$channels{$chan}{$mode}{$target}++	if  $parity;
-		delete $channels{$chan}{$mode}{$target}	if !$parity;
-	    }
-
-	    if ($mode =~ /[l]/) {
-		$channels{$chan}{$mode} = $target	if  $parity;
-		delete $channels{$chan}{$mode}		if !$parity;
-	    }
-	}
+sub on_whoischannels {
+    my ($self, $event) = @_;
+    my @args	= $event->args;
 
-	# important channel modes, targetless.
-	if ($mode =~ /[mt]/) {
-	    $channels{$chan}{$mode}++			if  $parity;
-	    delete $channels{$chan}{$mode}		if !$parity;
-	}
-    }
+    &DEBUG("on_whoischannels: @args");
 }
 
-sub hookMsg {
-    ($msgType, $chan, $who, $message) = @_;
-    my $skipmessage	= 0;
-    $addressed		= 0;
-    $addressedother	= 0;
-    $orig{message}	= $message;
-    $orig{who}		= $who;
-    $addrchar		= 0;
-
-    $message	=~ s/[\cA-\c_]//ig;	# strip control characters
-    $message	=~ s/^\s+//;		# initial whitespaces.
-    $who	=~ tr/A-Z/a-z/;		# lowercase.
-
-    &showProc();
-
-    # addressing.
-    if ($msgType =~ /private/) {
-	# private messages.
-	$addressed = 1;
-    } else {
-	# public messages.
-	# addressing revamped by the xk.
-	### below needs to be fixed...
-	if (&IsParam("addressCharacter")) {
-	    if ($message =~ s/^$param{'addressCharacter'}//) {
-		$addrchar  = 1;
-		$addressed = 1;
-	    }
-	}
-
-	if ($message =~ /^($mask{nick})([\;\:\>\, ]+) */) {
-	    my $newmessage = $';
-	    if ($1 =~ /^\Q$ident\E$/i) {
-		$message   = $newmessage;
-		$addressed = 1;
-	    } else {
-		# ignore messages addressed to other people or unaddressed.
-		$skipmessage++ if ($2 ne "" and $2 !~ /^ /);
-	    }
-	}
-    }
-
-    # Determine floodwho.
-    my $c	= "_default";
-    if ($msgType =~ /public/i) {		# public.
-	$floodwho = $c = lc $chan;
-    } elsif ($msgType =~ /private/i) {	# private.
-	$floodwho = lc $who;
-    } else {				# dcc?
-	&DEBUG("FIXME: floodwho = ???");
-    }
-
-    my $val = &getChanConfDefault("floodRepeat", "2:10", $c);
-    my ($count, $interval) = split /:/, $val;
-
-    # flood repeat protection.
-    if ($addressed) {
-	my $time = $flood{$floodwho}{$message} || 0;
-
-	if ($msgType eq "public" and (time() - $time < $interval)) {
-	    ### public != personal who so the below is kind of pointless.
-	    my @who;
-	    foreach (keys %flood) {
-		next if (/^\Q$floodwho\E$/);
-		next if (defined $chan and /^\Q$chan\E$/);
-
-		push(@who, grep /^\Q$message\E$/i, keys %{ $flood{$_} });
-	    }
-
-	    return if ($lobotomized);
-
-	    if (scalar @who) {
-		&msg($who, "you already said what ".
-				join(' ', @who)." have said.");
-	    } else {
-		&msg($who,"Someone already said that ". (time - $time) ." seconds ago" );
-	    }
-
-	    ### TODO: delete old floodwarn{} keys.
-	    my $floodwarn = 0;
-	    if (!exists $floodwarn{$floodwho}) {
-		$floodwarn++;
-	    } else {
-		$floodwarn++ if (time() - $floodwarn{$floodwho} > $interval);
-	    }
-
-	    if ($floodwarn) {
-		&status("FLOOD repetition detected from $floodwho.");
-		$floodwarn{$floodwho} = time();
-	    }
-
-	    return;
-	}
-
-	if ($addrchar) {
-	    &status("$b_cyan$who$ob is short-addressing me");
-	} elsif ($msgType eq "private") {	# private.
-	    &status("$b_cyan$who$ob is /msg'ing me");
-	} else {				# public?
-	    &status("$b_cyan$who$ob is addressing me");
-	}
-
-	$flood{$floodwho}{$message} = time();
-    } elsif ($msgType eq "public" and &IsChanConf("kickOnRepeat")) {
-	# unaddressed, public only.
-
-	### TODO: use a separate "short-time" hash.
-	my @data;
-	@data	= keys %{ $flood{$floodwho} } if (exists $flood{$floodwho});
-    }
-
-    $val = &getChanConfDefault("floodMessages", "5:30", $c);
-    ($count, $interval) = split /:/, $val;
-
-    # flood overflow protection.
-    if ($addressed) {
-	foreach (keys %{$flood{$floodwho}}) {
-	    next unless (time() - $flood{$floodwho}{$_} > $interval);
-	    delete $flood{$floodwho}{$_};
-	}
-
-	my $i = scalar keys %{$flood{$floodwho}};
-	if ($i > $count) {
-	    &msg($who,"overflow of messages ($i > $count)");
-	    &status("FLOOD overflow detected from $floodwho; ignoring");
+sub on_useronchannel {
+    my ($self, $event) = @_;
+    my @args	= $event->args;
 
-	    my $expire = $param{'ignoreAutoExpire'} || 5;
-	    &ignoreAdd("*!$uh", $chan, $expire, "flood overflow auto-detected.");
-	    return;
-	}
+    &DEBUG("on_useronchannel: @args");
+    &joinNextChan();
+}
 
-	$flood{$floodwho}{$message} = time();
-    }
+###
+### since joinnextchan is hooked onto on_endofnames, these are needed.
+###
 
-    my @ignore;
-    if ($msgType =~ /public/i) {		    # public.
-	$talkchannel	= $chan;
-	&status("<$orig{who}/$chan> $orig{message}");
-	push(@ignore, keys %{ $ignore{$chan} }) if (exists $ignore{$chan});
-    } elsif ($msgType =~ /private/i) {		   # private.
-	&status("[$orig{who}] $orig{message}");
-	$talkchannel	= undef;
-	$chan		= "_default";
-    } else {
-	&DEBUG("unknown msgType => $msgType.");
-    }
-    push(@ignore, keys %{ $ignore{"*"} }) if (exists $ignore{"*"});
+sub on_chanfull {
+    my ($self, $event) = @_;
+    my @args	= $event->args;
 
-    if ((!$skipmessage or &IsChanConf("seenStoreAll")) and
-	&IsChanConf("seen") and
-	$msgType =~ /public/
-    ) {
-	$seencache{$who}{'time'} = time();
-	$seencache{$who}{'nick'} = $orig{who};
-	$seencache{$who}{'host'} = $uh;
-	$seencache{$who}{'chan'} = $talkchannel;
-	$seencache{$who}{'msg'}  = $orig{message};
-	$seencache{$who}{'msgcount'}++;
-    }
+    &status(">>> chanfull/$b_blue$args[1]$ob");
 
-    return if ($skipmessage);
-    return unless (&IsParam("minVolunteerLength") or $addressed);
+    &joinNextChan();
+}
 
-    foreach (@ignore) {
-	s/\*/\\S*/g;
+sub on_inviteonly {
+    my ($self, $event) = @_;
+    my @args	= $event->args;
 
-	next unless (eval { $nuh =~ /^$_$/i });
+    &status(">>> inviteonly/$b_cyan$args[1]$ob");
 
-	&status("IGNORE <$who> $message");
-	return;
-    }
+    &joinNextChan();
+}
 
-    if (defined $nuh) {
-	if (!defined $userHandle) {
-	    &DEBUG("line 1074: need verifyUser?");
-	    &verifyUser($who, $nuh);
-	}
-    } else {
-	&DEBUG("hookMsg: 'nuh' not defined?");
-    }
+sub on_banned {
+    my ($self, $event) = @_;
+    my @args	= $event->args;
+    my $chan	= $args[1];
 
-### For extra debugging purposes...
-    if ($_ = &process()) {
-#	&DEBUG("IrcHooks: process returned '$_'.");
-    }
+    &status(">>> banned/$b_blue$chan$ob $b_cyan$args[0]$ob");
 
-    return;
+    &joinNextChan();
 }
 
-sub chanLimitVerify {
-    my($chan)	= @_;
-    my $l	= $channels{$chan}{'l'};
+sub on_badchankey {
+    my ($self, $event) = @_;
+    my @args	= $event->args;
 
-    # only change it if it's not set.
-    if (defined $l and &IsChanConf("chanlimitcheck")) {
-	my $plus = &getChanConfDefault("chanlimitcheckPlus", 5, $chan);
-	my $nowl = scalar(keys %{ $channels{$chan}{''} });
-	my $delta	= $nowl - $l;
-	$delta		=~ s/^\-//;
+    &DEBUG("on_badchankey: args => @args");
+    &joinNextChan();
+}
 
-	if ($plus <= 3) {
-	    &WARN("clc: stupid to have plus at $plus, fix it!");
-	}
+sub on_useronchan {
+    my ($self, $event) = @_;
+    my @args	= $event->args;
 
-	### todo: check if we have ops.
-	### todo: if not, check if nickserv/chanserv is avail.
-	### todo: unify code with chanlimitcheck()
-	if ($delta > 5) {
-	    &status("clc: big change in limit; changing.");
-	    &rawout("MODE $chan +l ".($nowl+$plus) );
-	}
-    }
+    &DEBUG("on_useronchan: args => @args");
+    &joinNextChan();
 }
 
 1;