cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-07-18 13:09:55 -04:00
parent 3907bf5db3
commit 4d38e8bfd6
Failed to extract signature
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Propellor/Property/Postfix.hs
View File

@ -31,12 +31,16 @@ satellite = check norelayhost setup
setup = trivial $ property "postfix satellite system" $ do setup = trivial $ property "postfix satellite system" $ do
hn <- asks hostName hn <- asks hostName
let (_, domain) = separate (== '.') hn let (_, domain) = separate (== '.') hn
ensureProperty $ Apt.reConfigure "postfix" ensureProperties
[ Apt.reConfigure "postfix"
[ ("postfix/main_mailer_type", "select", "Satellite system") [ ("postfix/main_mailer_type", "select", "Satellite system")
, ("postfix/root_address", "string", "root") , ("postfix/root_address", "string", "root")
, ("postfix/destinations", "string", " ") , ("postfix/destinations", "string", " ")
, ("postfix/mailname", "string", hn) , ("postfix/mailname", "string", hn)
, ("postfix/relayhost", "string", "smtp." ++ domain) ]
, mainCf `containsLine` ("relayhost = " ++ domain)
`onChange` dedupMainCf
`onChange` reloaded
] ]
norelayhost = not . any relayhostset . lines norelayhost = not . any relayhostset . lines
<$> readProcess "postconf" [] <$> readProcess "postconf" []