gameServer/Actions.hs
changeset 11470 0ae2e4c13bd1
parent 11468 fe46826de291
child 11580 db7743e2fad1
equal deleted inserted replaced
11469:a9957113404a 11470:0ae2e4c13bd1
   464     io $ writeChan dbq ClearCache
   464     io $ writeChan dbq ClearCache
   465     return ()
   465     return ()
   466 
   466 
   467 
   467 
   468 processAction (ProcessAccountInfo info) = do
   468 processAction (ProcessAccountInfo info) = do
       
   469     si <- gets serverInfo
   469     case info of
   470     case info of
   470         HasAccount passwd isAdmin isContr -> do
   471         HasAccount passwd isAdmin isContr -> do
   471             b <- isBanned
   472             b <- isBanned
   472             c <- client's isChecker
   473             c <- client's isChecker
   473             when (not b) $ (if c then checkerLogin else playerLogin) passwd isAdmin isContr
   474             when (not b) $ (if c then checkerLogin else playerLogin) passwd isAdmin isContr
   474         Guest -> do
   475         Guest | isRegisteredUsersOnly si -> do
       
   476             processAction $ ByeClient "Registered users only"
       
   477             | otherwise -> do
   475             b <- isBanned
   478             b <- isBanned
   476             c <- client's isChecker
   479             c <- client's isChecker
   477             when (not b) $
   480             when (not b) $
   478                 if c then
   481                 if c then
   479                     checkerLogin "" False False
   482                     checkerLogin "" False False