Revision ea626b33

b/htools/Ganeti/Confd/Server.hs
60 60 
import qualified Ganeti.Constants as C
61 61 
import qualified Ganeti.Path as Path
62 62 
import Ganeti.Query.Server (prepQueryD, runQueryD)
63 
import Ganeti.Utils
63 64 

  		





  64
  65
  
    
-- * Types and constants definitions


  		





  65
  66
  
    

  		





  ......




  467
  468
  
    
  ctime <- getCurrentTime


  		





  468
  469
  
    
  case parseMessage hmac msg ctime of


  		





  469
  470
  
    
    Ok (origmsg, rq) -> do


  		





  470
  
  
    
              logDebug $ "Processing request: " ++ origmsg


  		





  
  471
  
    
              logDebug $ "Processing request: " ++ rStripSpace origmsg


  		





  471
  472
  
    
              mcfg <- readIORef cfgref


  		





  472
  473
  
    
              let response = respondInner mcfg hmac rq


  		





  473
  474
  
    
              _ <- S.sendTo socket response peer


  		












Also available in:
  Unified diff