--- a/gameServer/OfficialServer/DBInteraction.hs Thu Aug 29 12:12:19 2013 +0400
+++ b/gameServer/OfficialServer/DBInteraction.hs Tue Sep 03 00:05:38 2013 +0400
@@ -77,6 +77,14 @@
writeChan cChan $ ClientAccountInfo clId clUid (snd $ fromJust cacheEntry)
return (accountsCache, req)
+ GetReplayName {} -> do
+ SIO.hPutStrLn hIn $ show q
+ hFlush hIn
+
+ (clId', clUid', accountInfo) <- SIO.hGetLine hOut >>= (maybeException . maybeRead)
+
+ writeChan cChan $ ClientAccountInfo clId' clUid' accountInfo
+
ClearCache -> return (Map.empty, req)
StoreAchievements {} -> (
(SIO.hPutStrLn hIn $ show q) >>