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