better shortened replies?

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

diff --git a/src/Misc.pl b/src/Misc.pl
index df95bc9f18a39f18f1b254f98bc7ba9599e0fc07..5488de83e4e460d950d5887dc88a720fb78ef189 100644 (file)
--- 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);