# HG changeset patch
# User unc0rr
# Date 1419452234 -10800
# Node ID 40dda24ee145c68518094e672566d05b6996ed42
# Parent  0810826cdf80e3f7a7da0a3e14e41104dc3bfc23
More complete fix for FULLMAPCONFIG message, also add new known protocol versions

diff -r 0810826cdf80 -r 40dda24ee145 gameServer/Utils.hs
--- a/gameServer/Utils.hs	Wed Dec 24 14:42:05 2014 -0500
+++ b/gameServer/Utils.hs	Wed Dec 24 23:17:14 2014 +0300
@@ -113,6 +113,8 @@
             , (46, "0.9.20-dev")
             , (47, "0.9.20")
             , (48, "0.9.21-dev")
+            , (49, "0.9.21")
+            , (50, "0.9.22-dev")
             ]
 
 askFromConsole :: B.ByteString -> IO B.ByteString
@@ -201,7 +203,7 @@
                 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr))
 
         | clientProto cl < 48 = map (toAnswer cl) $
-                ("FULLMAPCONFIG", tail $ Map.elems mpr)
+                ("FULLMAPCONFIG", let l = Map.elems mpr in if length l > 5 then tail l else l)
                 : ("SCHEME", pr Map.! "SCHEME")
                 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr)