equal
deleted
inserted
replaced
14 import Control.Monad.State.Strict |
14 import Control.Monad.State.Strict |
15 import qualified Data.ByteString.Char8 as B |
15 import qualified Data.ByteString.Char8 as B |
16 import Control.DeepSeq |
16 import Control.DeepSeq |
17 import Data.Time |
17 import Data.Time |
18 import Text.Printf |
18 import Text.Printf |
|
19 import Data.Unique |
19 ----------------------------- |
20 ----------------------------- |
20 import CoreTypes |
21 import CoreTypes |
21 import Utils |
22 import Utils |
22 import ClientIO |
23 import ClientIO |
23 import ServerState |
24 import ServerState |
306 |
307 |
307 processAction CheckRegistered = do |
308 processAction CheckRegistered = do |
308 (Just ci) <- gets clientIndex |
309 (Just ci) <- gets clientIndex |
309 n <- client's nick |
310 n <- client's nick |
310 h <- client's host |
311 h <- client's host |
|
312 uid <- client's clUID |
311 db <- gets (dbQueries . serverInfo) |
313 db <- gets (dbQueries . serverInfo) |
312 io $ writeChan db $ CheckAccount ci n h |
314 io $ writeChan db $ CheckAccount ci (hashUnique uid) n h |
313 return () |
315 return () |
314 |
316 |
315 |
317 |
316 processAction ClearAccountsCache = do |
318 processAction ClearAccountsCache = do |
317 dbq <- gets (dbQueries . serverInfo) |
319 dbq <- gets (dbQueries . serverInfo) |