# HG changeset patch
# User unc0rr
# Date 1364059934 -14400
# Node ID 486edbbe72b5692a59bb414b3f09f5c6dc51240a
# Parent  ef64fd1f79a72e768b4326ae7e491aeb1a9e08b5
Also check length

diff -r ef64fd1f79a7 -r 486edbbe72b5 gameServer/Utils.hs
--- a/gameServer/Utils.hs	Fri Mar 22 22:42:41 2013 +0100
+++ b/gameServer/Utils.hs	Sat Mar 23 21:32:14 2013 +0400
@@ -56,7 +56,7 @@
             t : replaceTeam tm ts
 
 illegalName :: B.ByteString -> Bool
-illegalName s = B.null s || B.all isSpace s || isSpace (B.head s) || isSpace (B.last s) || B.any isIllegalChar s
+illegalName s = B.null s || B.length s > 40 || B.all isSpace s || isSpace (B.head s) || isSpace (B.last s) || B.any isIllegalChar s
     where
         isIllegalChar c = c `List.elem` "$()*+?[]^{|}"