Revision d08a8359 src/Ganeti/Luxi.hs
| b/src/Ganeti/Luxi.hs | ||
|---|---|---|
| 228 | 228 |
getServer setOwner path = do |
| 229 | 229 |
s <- S.socket S.AF_UNIX S.Stream S.defaultProtocol |
| 230 | 230 |
S.bindSocket s (S.SockAddrUnix path) |
| 231 |
when setOwner . setOwnerAndGroupFromNames path GanetiConfd $
|
|
| 231 |
when setOwner . setOwnerAndGroupFromNames path GanetiLuxid $
|
|
| 232 | 232 |
ExtraGroup DaemonsGroup |
| 233 | 233 |
S.listen s 5 -- 5 is the max backlog |
| 234 | 234 |
return s |
Also available in: Unified diff