equal
deleted
inserted
replaced
12 -------------------------- |
12 -------------------------- |
13 import CoreTypes |
13 import CoreTypes |
14 |
14 |
15 |
15 |
16 dbQueryAccount = |
16 dbQueryAccount = |
17 "SELECT users.pass, users_roles.rid FROM users LEFT JOIN users_roles ON users.uid = users_roles.uid WHERE users.name = ?" |
17 "SELECT users.pass, users_roles.rid FROM users LEFT JOIN users_roles ON (users.uid = users_roles.uid AND users_roles.rid = 3) WHERE users.name = ?" |
18 |
18 |
19 dbQueryStats = |
19 dbQueryStats = |
20 "INSERT INTO gameserver_stats (players, rooms, last_update) VALUES (?, ?, UNIX_TIMESTAMP())" |
20 "INSERT INTO gameserver_stats (players, rooms, last_update) VALUES (?, ?, UNIX_TIMESTAMP())" |
21 |
21 |
22 dbInteractionLoop dbConn = forever $ do |
22 dbInteractionLoop dbConn = forever $ do |
27 CheckAccount clId clUid clNick _ -> do |
27 CheckAccount clId clUid clNick _ -> do |
28 statement <- prepare dbConn dbQueryAccount |
28 statement <- prepare dbConn dbQueryAccount |
29 execute statement [SqlByteString clNick] |
29 execute statement [SqlByteString clNick] |
30 passAndRole <- fetchRow statement |
30 passAndRole <- fetchRow statement |
31 finish statement |
31 finish statement |
32 let response = |
32 let response = |
33 if isJust passAndRole then |
33 if isJust passAndRole then |
34 ( |
34 ( |
35 clId, |
35 clId, |
36 clUid, |
36 clUid, |
37 HasAccount |
37 HasAccount |