From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 23 Feb 2005 06:19:08 +0000 (+0000)
Subject: re-order as ircCheck changes our nick
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7502aa7edaae30a1186fc172fc042809066ba3b0;p=infobot.git

re-order as ircCheck changes our nick


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1172 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index 11d6de2..d5ac5dc 100644
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -47,7 +47,7 @@ sub chaninfo {
 
     if ($chan eq "") {		# all channels.
 	my $i		= keys %channels;
-	my $reply	= "i am on \002$i\002 ".&fixPlural("channel",$i);
+	my $reply	= "I'm on \002$i\002 ".&fixPlural("channel",$i);
 	my $tucount	= 0;	# total user count.
 	my $uucount	= 0;	# unique user count.
 	my @array;
@@ -61,11 +61,10 @@ sub chaninfo {
 	    }
 	    next if (/^_default$/);
 
-	    my $str = sprintf("%s(%d)", $_, scalar(keys %{ $channels{$_}{''} }));
+	    my $str = sprintf("%s/%d", $_, scalar(keys %{ $channels{$_}{''} }));
 	    push(@array, $str);
 	}
 	&performStrictReply($reply.": ".join(', ', @array));
-	&ircCheck();
 
 	### total user count.
 	foreach $chan (keys %channels) {
@@ -82,7 +81,7 @@ sub chaninfo {
 		push(@nicks, $nick);
 	    }
 	}
-	&::DEBUG(join ":", @nicks);
+	#&::DEBUG(join ":", @nicks);
 
 	if (scalar @nicks != $uucount) {
 	    &DEBUG("nicks != uucount...");
@@ -95,6 +94,7 @@ sub chaninfo {
 	    ", distributed over \002$chans\002 ".
 	    &fixPlural("channel", $chans)."."
 	);
+	&ircCheck();
 
 	return;
     }