# HG changeset patch
# User unc0rr
# Date 1372450697 -14400
# Node ID 457efde100b5d764374c2aa3af7711f1f285c943
# Parent  1cf37fd7bc47840ff7bce0841ef2909a0356caef
Fix "registered only" option

diff -r 1cf37fd7bc47 -r 457efde100b5 gameServer/HWProtoLobbyState.hs
--- a/gameServer/HWProtoLobbyState.hs	Sat Jun 29 16:05:17 2013 +0200
+++ b/gameServer/HWProtoLobbyState.hs	Sat Jun 29 00:18:17 2013 +0400
@@ -4,6 +4,7 @@
 import Data.Maybe
 import Data.List
 import Control.Monad.Reader
+import qualified Data.ByteString.Char8 as B
 --------------------------------------
 import CoreTypes
 import Actions
@@ -77,7 +78,7 @@
             [Warning $ loc "No such room"]
             else if isRestrictedJoins jRoom then
             [Warning $ loc "Joining restricted"]
-            else if isRegisteredOnly jRoom then
+            else if isRegisteredOnly jRoom && (B.null . webPassword $ cl) then
             [Warning $ loc "Registered users only"]
             else if isBanned then
             [Warning $ loc "You are banned in this room"]