join chan mangling for multiple nicks

[infobot.git] / src / UserExtra.pl

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index ada60ce8113155e9c07a0e378c67793df0f403a1..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) );
 
@@ -795,6 +796,7 @@ sub userCommands {
     if ($message =~ /^statu?s$/i) {
        my $startString = scalar(gmtime $^T);
        my $upString    = &Time2String(time() - $^T);
+       my ($puser,$psystem,$cuser,$csystem) = times;
        my $factoids    = &countKeys("factoids");
        my $forks = 0;
        foreach (keys %forked) {
@@ -823,7 +825,7 @@ sub userCommands {
          "I'm using about \002$memusage\002 ".
          "kB of memory. With \002$forks\002 active ".
                &fixPlural("fork",$forks).
-         "."
+         ". Process time user/system $puser/$psystem child $cuser/$csystem"
        );
 
        return;
@@ -851,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'}");
@@ -868,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);