equal
deleted
inserted
replaced
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 |