71 lines
2.1 KiB
Haskell
71 lines
2.1 KiB
Haskell
module Propellor.Property.Apache where
|
|
|
|
import Propellor
|
|
import qualified Propellor.Property.File as File
|
|
import qualified Propellor.Property.Apt as Apt
|
|
import qualified Propellor.Property.Service as Service
|
|
|
|
type ConfigFile = [String]
|
|
|
|
siteEnabled :: HostName -> ConfigFile -> RevertableProperty
|
|
siteEnabled hn cf = RevertableProperty enable disable
|
|
where
|
|
enable = trivial $ cmdProperty "a2ensite" ["--quiet", hn]
|
|
`describe` ("apache site enabled " ++ hn)
|
|
`requires` siteAvailable hn cf
|
|
`requires` installed
|
|
`onChange` reloaded
|
|
disable = trivial $ combineProperties
|
|
("apache site disabled " ++ hn)
|
|
(map File.notPresent (siteCfg hn))
|
|
`onChange` cmdProperty "a2dissite" ["--quiet", hn]
|
|
`requires` installed
|
|
`onChange` reloaded
|
|
|
|
siteAvailable :: HostName -> ConfigFile -> Property
|
|
siteAvailable hn cf = combineProperties ("apache site available " ++ hn) $
|
|
map (`File.hasContent` (comment:cf)) (siteCfg hn)
|
|
where
|
|
comment = "# deployed with propellor, do not modify"
|
|
|
|
modEnabled :: String -> RevertableProperty
|
|
modEnabled modname = RevertableProperty enable disable
|
|
where
|
|
enable = trivial $ cmdProperty "a2enmod" ["--quiet", modname]
|
|
`describe` ("apache module enabled " ++ modname)
|
|
`requires` installed
|
|
`onChange` reloaded
|
|
disable = trivial $ cmdProperty "a2dismod" ["--quiet", modname]
|
|
`describe` ("apache module disabled " ++ modname)
|
|
`requires` installed
|
|
`onChange` reloaded
|
|
|
|
-- This is a list of config files because different versions of apache
|
|
-- use different filenames. Propellor simply writen them all.
|
|
siteCfg :: HostName -> [FilePath]
|
|
siteCfg hn =
|
|
-- Debian pre-2.4
|
|
[ "/etc/apache2/sites-available/" ++ hn
|
|
-- Debian 2.4+
|
|
, "/etc/apache2/sites-available/" ++ hn ++ ".conf"
|
|
]
|
|
|
|
installed :: Property
|
|
installed = Apt.installed ["apache2"]
|
|
|
|
restarted :: Property
|
|
restarted = cmdProperty "service" ["apache2", "restart"]
|
|
|
|
reloaded :: Property
|
|
reloaded = Service.reloaded "apache2"
|
|
|
|
-- | Configure apache to use SNI to differentiate between
|
|
-- https hosts.
|
|
multiSSL :: Property
|
|
multiSSL = "/etc/apache2/conf.d/ssl" `File.hasContent`
|
|
[ "NameVirtualHost *:443"
|
|
, "SSLStrictSNIVHostCheck off"
|
|
]
|
|
`describe` "apache SNI enabled"
|
|
`onChange` reloaded
|