From 7502aa7edaae30a1186fc172fc042809066ba3b0 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 23 Feb 2005 06:19:08 +0000
Subject: [PATCH] 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
---
src/UserExtra.pl | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
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;
}
--
2.39.5