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:03:13 -04:00
parent 5c3b069f23
commit 614a6a13ac
Failed to extract signature
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,22 +19,31 @@ reloaded :: Property
reloaded = Service.reloaded "postfix" reloaded = Service.reloaded "postfix"
-- | Configures postfix as a satellite system, which -- | Configures postfix as a satellite system, which
-- relats all mail through a relay host, which defaults to smtp.domain. -- relays all mail through a relay host, which defaults to smtp.domain.
-- --
-- The smarthost may refuse to relay mail on to other domains, without -- The smarthost may refuse to relay mail on to other domains, without
-- futher coniguration/keys. But this should be enough to get cron job -- futher coniguration/keys. But this should be enough to get cron job
-- mail flowing to a place where it will be seen. -- mail flowing to a place where it will be seen.
satellite :: Property satellite :: Property
satellite = setup `requires` installed satellite = check norelayhost setup
`requires` installed
where where
setup = trivial $ property "postfix satellite system" $ do setup = trivial $ property "postfix satellite system" $ do
hn <- asks hostName hn <- asks hostName
let (_, domain) = separate (== '.') hn
ensureProperty $ Apt.reConfigure "postfix" ensureProperty $ 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)
] ]
norelayhost = not . any relayhostset . lines
<$> readProcess "postconf" []
relayhostset l
| l == "relayhost =" = False
| "relayhost =" `isPrefixOf` l = True
| otherwise = False
-- | Sets up a file by running a property (which the filename is passed -- | Sets up a file by running a property (which the filename is passed
-- to). If the setup property makes a change, postmap will be run on the -- to). If the setup property makes a change, postmap will be run on the