From 5b593eb9b6cfb387de2083ed7f4140b33918ca69 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 24 Oct 2011 15:56:41 +0000
Subject: [PATCH] move tucount calc, partial? fix for channel count

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1906 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/UserExtra.pl | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index fe28e79..84c969d 100644
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -37,16 +37,13 @@ sub chaninfo {
             next if (/^_default$/);
 
             $chans{$_} = scalar( keys %{ $channels{$_}{''} } );
+            ### total user count.
+            $tucount += scalar( keys %{ $channels{$_}{''} } );
         }
         foreach $chan ( sort { $chans{$b} <=> $chans{$a} } keys %chans ) {
             push( @array, "$chan/" . $chans{$chan} );
         }
 
-        ### total user count.
-        foreach $chan ( keys %channels ) {
-            $tucount += scalar( keys %{ $channels{$chan}{''} } );
-        }
-
         ### unique user count.
         my %nicks = ();
         foreach $chan ( keys %channels ) {
@@ -57,7 +54,7 @@ sub chaninfo {
         }
         $uucount = scalar( keys %nicks );
 
-        my $chans = scalar( keys %channels );
+        my $chans = scalar( keys %chans );
         my $join = &ircCheck();
         &performStrictReply(
               "\002$chans/".($chans+$join)."\002 " . &fixPlural('channel', $chans)
@@ -175,10 +172,10 @@ sub conninfo {
     my $key;
     foreach $key ( sort keys %::conns ) {
         my $myconn = $::conns{$key};
-	$reply .= " $key/";
-	next if (!defined $myconn);
+        $reply .= " $key/";
+        next if (!defined $myconn);
         my $mynick = $myconn->nick();
-	$reply .= "$mynick";
+        $reply .= "$mynick";
     }
     &performStrictReply( "conninfo: $reply.");
 }
@@ -281,8 +278,8 @@ sub tell {
 
     # 'intrusive'.
     #    if ($target !~ /^$mask{chan}$/ and !&IsNickInAnyChan($target)) {
-    #	&msg($who, "No, $target is not in any of my chans.");
-    #	return;
+    #        &msg($who, "No, $target is not in any of my chans.");
+    #        return;
     #    }
 
     # self.
@@ -393,7 +390,7 @@ sub do_countrystats {
     foreach ( sort { $b <=> $a } keys %count ) {
         my $str = join( ', ', sort keys %{ $count{$_} } );
 
-        #	push(@list, "$str ($_)");
+        #push(@list, "$str ($_)");
         my $perc = sprintf( '%.01f', 100 * $_ / $total );
         $perc =~ s/\.0+$//;
         push( @list, "$str ($_, $perc %)" );
@@ -514,7 +511,7 @@ sub userCommands {
 
         &msg( $chan, "I'm coming back. (courtesy of $who)" );
         &part($chan);
-###	&ScheduleThis(5, 'getNickInUse') if (@_);
+        #&ScheduleThis(5, 'getNickInUse') if (@_);
         &status("Schedule rejoin in 5secs to $chan by $who.");
         $conn->schedule( 5, sub { &joinchan($chan); } );
 
-- 
2.39.2