From 6be6c1b9525dcb0851c9ec3d704888b76d3ec816 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 18 May 2007 23:43:14 +0000
Subject: [PATCH] sort chaninfo by people

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

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index 6d1223b..33f93bf 100644
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -6,7 +6,7 @@
 use strict;
 use vars qw($message $arg $qWord $verb $lobotomized $who $result $chan
 	$conn $msgType $query $talkchannel $ident $memusage);
-use vars qw(%channels %chanstats %cmdstats %count %ircstats %param
+use vars qw(%channels %chanstats %cmdstats %count %forked %ircstats %param
 	%cache %mask %userstats);
 
 ### hooks get added in CommandHooks.pl.
@@ -24,10 +24,11 @@ sub chaninfo {
 	my $reply	= "I'm on \002$i\002 ".&fixPlural("channel",$i);
 	my $tucount	= 0;	# total user count.
 	my $uucount	= 0;	# unique user count.
+	my %chans;
 	my @array;
 
 	### line 1.
-	foreach (sort keys %channels) {
+	foreach (keys %channels) {
 	    if ( /^\s*$/ or / / ) {
 		&status("chanstats: fe channels: chan == NULL.");
 		#&ircCheck();
@@ -35,8 +36,12 @@ sub chaninfo {
 	    }
 	    next if (/^_default$/);
 
-	    my $str = sprintf("%s/%d", $_, scalar(keys %{ $channels{$_}{''} }));
-	    push(@array, $str);
+	    $chans{$_} = scalar(keys %{ $channels{$_}{''} });
+	    #my $str = sprintf("%s/%d", $_, scalar(keys %{ $channels{$_}{''} }));
+	    #push(@array, $str);
+	}
+	foreach $chan (sort {$chans{$b} <=> $chans{$a}} keys %chans) {
+	    push(@array, "$chan/" . $chans{$chan});
 	}
 	&performStrictReply($reply.": ".join(', ', @array));
 
-- 
2.39.5