Revision e455a3e8 src/Ganeti/Luxi.hs
| b/src/Ganeti/Luxi.hs | ||
|---|---|---|
| 76 | 76 |
import Ganeti.JSON |
| 77 | 77 |
import Ganeti.OpParams (pTagsObject) |
| 78 | 78 |
import Ganeti.OpCodes |
| 79 |
import Ganeti.Runtime |
|
| 79 | 80 |
import qualified Ganeti.Query.Language as Qlang |
| 80 | 81 |
import Ganeti.THH |
| 81 | 82 |
import Ganeti.Types |
| 83 |
import Ganeti.Utils |
|
| 82 | 84 |
|
| 83 | 85 |
-- * Utility functions |
| 84 | 86 |
|
| ... | ... | |
| 222 | 224 |
return Client { socket=h, rbuf=rf }
|
| 223 | 225 |
|
| 224 | 226 |
-- | Creates and returns a server endpoint. |
| 225 |
getServer :: FilePath -> IO S.Socket |
|
| 226 |
getServer path = do |
|
| 227 |
getServer :: Bool -> FilePath -> IO S.Socket
|
|
| 228 |
getServer setOwner path = do
|
|
| 227 | 229 |
s <- S.socket S.AF_UNIX S.Stream S.defaultProtocol |
| 228 | 230 |
S.bindSocket s (S.SockAddrUnix path) |
| 231 |
when setOwner . setOwnerAndGroupFromNames path GanetiConfd $ |
|
| 232 |
ExtraGroup DaemonsGroup |
|
| 229 | 233 |
S.listen s 5 -- 5 is the max backlog |
| 230 | 234 |
return s |
| 231 | 235 |
|
Also available in: Unified diff