equal
deleted
inserted
replaced
16 import CoreTypes |
16 import CoreTypes |
17 import Utils |
17 import Utils |
18 |
18 |
19 |
19 |
20 dbQueryAccount = |
20 dbQueryAccount = |
21 "SELECT users.pass, \ |
21 "SELECT users.pass, \ |
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 |
74 StoreAchievements p fileName teams info -> |
74 StoreAchievements p fileName 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 |