changeset 10014 | 56d2f2d5aad8 |
parent 9866 | 62ffe234127d |
child 10017 | de822cd3df3a |
--- a/gameServer/OfficialServer/checker.hs Sat Jan 18 18:20:43 2014 +0100 +++ b/gameServer/OfficialServer/checker.hs Sun Jan 19 00:18:28 2014 +0400 @@ -148,8 +148,8 @@ onPacket :: Chan Message -> [B.ByteString] -> IO () onPacket _ ("CONNECTED":_) = do answer ["CHECKER", protocolNumber, l, p] - answer ["READY"] onPacket _ ["PING"] = answer ["PONG"] + onPacket _ ["LOGONPASSED"] = answer ["READY"] onPacket chan ("REPLAY":msgs) = do checkReplay chan msgs warningM "Check" "Started check"