Revision 497f5cbf htools/Ganeti/Confd/Server.hs
| b/htools/Ganeti/Confd/Server.hs | ||
|---|---|---|
| 459 | 459 |
responder :: CRef -> S.Socket -> HashKey -> String -> S.SockAddr -> IO () |
| 460 | 460 |
responder cfgref socket hmac msg peer = do |
| 461 | 461 |
ctime <- getCurrentTime |
| 462 |
case parseMessage hmac msg ctime of
|
|
| 462 |
case parseRequest hmac msg ctime of
|
|
| 463 | 463 |
Ok (origmsg, rq) -> do |
| 464 | 464 |
logDebug $ "Processing request: " ++ rStripSpace origmsg |
| 465 | 465 |
mcfg <- readIORef cfgref |
Also available in: Unified diff