From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 22 Feb 2005 22:50:51 +0000 (+0000)
Subject: better shortened replies?
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=47be1290bb2b9b65fe549145a6cfd73ae730cd3e;p=infobot.git

better shortened replies?


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

diff --git a/blootbot/src/Misc.pl b/blootbot/src/Misc.pl
index df95bc9..5488de8 100644
--- a/blootbot/src/Misc.pl
+++ b/blootbot/src/Misc.pl
@@ -134,7 +134,11 @@ sub formListReply {
 	    push(@rand, $list[$_]);
 	    last if (scalar @rand == $maxshow);
 	}
-	@list = sort @rand;
+	if ($total > $maxshow) {
+	    @list = sort @rand;
+	} else {
+	    @list = @rand;
+	}
     } elsif ($total > $maxshow) {
 	&status("formListReply: truncating list.");
 
@@ -142,6 +146,7 @@ sub formListReply {
     }
 
     # form the reply.
+    # FIXME: should grow and exit when full, not discard any that are oversize
     while () {
 	$reply  = $prefix ."(\002". scalar(@list). "\002";
 	$reply .= " of \002$total\002" if ($total != scalar @list);