gameServer/OfficialServer/DBInteraction.hs
changeset 9446 4fd5df03deb8
parent 9399 1767c92eff37
child 9450 2084b1b7839c
--- 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) >>