From 182235f3e165bc9a7816c6e6a00420a468e4fd47 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 22 Feb 2005 22:50:51 +0000
Subject: [PATCH] better shortened replies?

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1168 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Misc.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/Misc.pl b/src/Misc.pl
index df95bc9..5488de8 100644
--- a/src/Misc.pl
+++ b/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);
-- 
2.39.2