diff -r 72f5d670bbee -r cdadc1d487f1 gameServer/Utils.hs
--- a/gameServer/Utils.hs	Fri Dec 23 23:12:00 2016 +0300
+++ b/gameServer/Utils.hs	Fri Dec 23 23:29:00 2016 +0300
@@ -245,3 +245,6 @@
     where
         sc c | isAlphaNum c = c
              | otherwise = '_'
+
+isRegistered :: ClientInfo -> Bool
+isRegistered = (<) 0 . B.length . webPassword