--- a/gameServer/OfficialServer/DBInteraction.hs Tue Feb 24 21:47:17 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs Wed Feb 25 17:12:32 2009 +0000
@@ -29,12 +29,12 @@
q <- readChan queries
case q of
CheckAccount clID name -> do
- statement <- prepare dbConn "SELECT uid FROM users WHERE name=?"
+ statement <- prepare dbConn "SELECT pass FROM users WHERE name=?"
execute statement [SqlString name]
- uid <- fetchRow statement
+ pass <- fetchRow statement
finish statement
- if isJust uid then
- writeChan coreChan $ ClientAccountInfo clID HasAccount
+ if isJust pass then
+ writeChan coreChan $ ClientAccountInfo clID (HasAccount $ fromSql $ head $ fromJust $ pass)
else
writeChan coreChan $ ClientAccountInfo clID Guest
`onException`