Revision d605e261 src/Ganeti/UDSServer.hs

b/src/Ganeti/UDSServer.hs
30 30 
  , RecvResult(..)
31 31 
  , MsgKeys(..)
32 32 
  , strOfKey
33 
  , getClient
34 
  , getServer
33 
  , getLuxiClient
34 
  , getLuxiServer
35 35 
  , acceptClient
36 36 
  , closeClient
37 37 
  , closeServer
......
107 107 
                     }
108 108 

  		





  109
  109
  
    
-- | Connects to the master daemon and returns a luxi Client.


  		





  110
  
  
    
getClient :: String -> IO Client


  		





  111
  
  
    
getClient path = do


  		





  
  110
  
    
getLuxiClient :: String -> IO Client


  		





  
  111
  
    
getLuxiClient path = do


  		





  112
  112
  
    
  s <- S.socket S.AF_UNIX S.Stream S.defaultProtocol


  		





  113
  113
  
    
  withTimeout luxiDefCtmo "creating luxi connection" $


  		





  114
  114
  
    
              S.connect s (S.SockAddrUnix path)


  		





  ......




  117
  117
  
    
  return Client { socket=h, rbuf=rf }


  		





  118
  118
  
    

  		





  119
  119
  
    
-- | Creates and returns a server endpoint.


  		





  120
  
  
    
getServer :: Bool -> FilePath -> IO S.Socket


  		





  121
  
  
    
getServer setOwner path = do


  		





  
  120
  
    
getLuxiServer :: Bool -> FilePath -> IO S.Socket


  		





  
  121
  
    
getLuxiServer setOwner path = do


  		





  122
  122
  
    
  s <- S.socket S.AF_UNIX S.Stream S.defaultProtocol


  		





  123
  123
  
    
  S.bindSocket s (S.SockAddrUnix path)


  		





  124
  124
  
    
  when setOwner . setOwnerAndGroupFromNames path GanetiLuxid $


  		












Also available in:
  Unified diff