16 import CoreTypes

    16 import CoreTypes

    17 import Utils

    17 import Utils

    18 

    18 

    19 

    19 

    20 dbQueryAccount =

    20 dbQueryAccount =

    22     \ (SELECT COUNT(users_roles.rid) FROM users_roles WHERE users.uid = users_roles.uid AND users_roles.rid = 3), \

    22     \ (SELECT COUNT(users_roles.rid) FROM users_roles WHERE users.uid = users_roles.uid AND users_roles.rid = 3), \

    23     \ (SELECT COUNT(users_roles.rid) FROM users_roles WHERE users.uid = users_roles.uid AND users_roles.rid = 13) \

    23     \ (SELECT COUNT(users_roles.rid) FROM users_roles WHERE users.uid = users_roles.uid AND users_roles.rid = 13) \

    24     \ FROM users WHERE users.name = ?"

    24     \ FROM users WHERE users.name = ?"

    25 

    25 

    26 dbQueryStats =

    26 dbQueryStats =

    69                 hFlush stdout

    69                 hFlush stdout

    70 

    70 

    71         SendStats clients rooms ->

    71         SendStats clients rooms ->

    72                 run dbConn dbQueryStats [SqlInt32 $ fromIntegral clients, SqlInt32 $ fromIntegral rooms] >> return ()

    72                 run dbConn dbQueryStats [SqlInt32 $ fromIntegral clients, SqlInt32 $ fromIntegral rooms] >> return ()

    73 --StoreAchievements (B.pack fileName) (map toPair teams) info

    73 --StoreAchievements (B.pack fileName) (map toPair teams) info

    75             mapM_ (run dbConn dbQueryAchievement) $ (parseStats p fileName teams) info

    75             mapM_ (run dbConn dbQueryAchievement) $ (parseStats p fileName teams) info

    76 

    76 

    77 

    77 

    78 readTime = read . B.unpack . B.take 19 . B.drop 8

    78 readTime = read . B.unpack . B.take 19 . B.drop 8

    79 

    79