gameServer/OfficialServer/extdbinterface.hs
changeset 11275 13ce106c8836
parent 11268 096811aa3c55
child 11320 556eafd1443a
--- a/gameServer/OfficialServer/extdbinterface.hs	Tue Nov 03 01:14:27 2015 +0100
+++ b/gameServer/OfficialServer/extdbinterface.hs	Tue Nov 03 21:43:56 2015 +0300
@@ -55,8 +55,10 @@
     "INSERT INTO rating_games (script, protocol, filename, time) \
     \ VALUES (?, ?, ?, ?)"
 
+dbQueryGameId = "SELECT LAST_INSERT_ID()"
+
 dbQueryGamesHistoryPlaces = "INSERT INTO rating_players (userid, gameid, place) \
-    \ VALUES ((SELECT uid FROM users WHERE name = ?), LAST_INSERT_ID(), ?)"
+    \ VALUES ((SELECT uid FROM users WHERE name = ?), ?, ?)"
 
 dbQueryReplayFilename = "SELECT filename FROM achievements WHERE id = ?"
 
@@ -112,10 +114,10 @@
     ps :: [B.ByteString] -> [IO Int64]
     ps [] = []
     ps ("DRAW" : bs) = execute dbConn dbQueryGamesHistory (script, (fromIntegral p) :: Int, fileName, time)
-        : executeMany dbConn dbQueryGamesHistoryPlaces (map drawParams teams)
+        : places (map drawParams teams)
         : ps bs
     ps ("WINNERS" : n : bs) = let winNum = readInt_ n in execute dbConn dbQueryGamesHistory (script, (fromIntegral p) :: Int, fileName, time)
-        : executeMany dbConn dbQueryGamesHistoryPlaces (map (placeParams (take winNum bs)) teams)
+        : places (map (placeParams (take winNum bs)) teams)
         : ps (drop winNum bs)
     ps ("ACHIEVEMENT" : typ : teamname : location : value : bs) = execute dbConn dbQueryAchievement
         ( time
@@ -129,6 +131,16 @@
     ps (b:bs) = ps bs
     drawParams t = (snd t, 0 :: Int)
     placeParams winners t = (snd t, if (fst t) `elem` winners then 1 else 2 :: Int)
+    places :: [(B.ByteString, Int)] -> IO Int64
+    places params = do
+        res <- query_ dbConn dbQueryGameId
+        let gameId = case res of
+                [Only a] -> a
+                _ -> 0
+        mapM_ (execute dbConn dbQueryGamesHistoryPlaces . midInsert gameId) params
+        return 0
+    midInsert :: Int -> (a, b) -> (a, Int, b)
+    midInsert g (a, b) = (a, g, b)
 
 dbConnectionLoop mySQLConnectionInfo =
     Control.Exception.handle (\(e :: SomeException) -> hPutStrLn stderr $ show e) $