join chan mangling for multiple nicks

[infobot.git] / src / UserExtra.pl

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index b11f221217d686aaedd66171836fa5df674cc84c..c8ec404a33f616fec281f4354006e8483eda552a 100644 (file)
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -60,7 +60,7 @@ sub chaninfo {
        foreach (sort keys %channels) {
            if ( /^\s*$/ or / / ) {
                &status("chanstats: fe channels: chan == NULL.");
-               &ircCheck();
+               #&ircCheck();
                next;
            }
            next if (/^_default$/);
@@ -69,6 +69,7 @@ sub chaninfo {
            push(@array, $str);
        }
        &pSReply($reply.": ".join(', ', @array));
+       &ircCheck();
 
        ### total user count.
        foreach $chan (keys %channels) {
@@ -164,7 +165,7 @@ sub chaninfo {
        $new{$_} = $userstats{$_}{'Count'};
     }
 
-    # todo: show top 3 with percentages?
+    # TODO: show top 3 with percentages?
     my($count) = (sort { $new{$a} <=> $new{$b} } keys %new)[0];
     if ($count) {
        $reply .= ".  \002$count\002 has said the most with a total of \002$new{$count}\002 messages";
@@ -486,7 +487,7 @@ sub do_countrystats {
        push(@list, "$str ($_, $perc %)");
     }
 
-    # todo: move this into a scheduler like nickometer
+    # TODO: move this into a scheduler like nickometer
     $msgType   = "private";
     &pSReply( &formListReply(0, "Country Stats ", @list) );
 
@@ -852,7 +853,7 @@ if (0) {
        my ($force) = ($1) ? 1 : 0;
        $force = 0 unless (&IsFlag("n"));
 
-       # cannot trust Net::IRC's nick()
+       # cannot trust Net::IRC's nick() (TimRiker asks why?)
        if ($param{'ircNick'} eq $ident) {
            &msg($who, "I hope you're right. I'll try anyway.");
            &DEBUG("ircNick => $param{'ircNick'}");
@@ -869,7 +870,7 @@ if (0) {
        }
 
        # idea from dondelecarlo :)
-       # todo: use cache{nickserv}
+       # TODO: use cache{nickserv}
        if ($param{'nickServ_pass'}) {
            return if ($param{'ircNick'} eq $ident or $force == 0);