From 3541260436da9633145654f36d12a2a047c386fc Mon Sep 17 00:00:00 2001 From: Félix Sipma Date: Mon, 10 Nov 2014 11:13:06 +0100 Subject: basic prosody support Signed-off-by: Félix Sipma --- src/Propellor/Property/Prosody.hs | 52 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 src/Propellor/Property/Prosody.hs (limited to 'src/Propellor') diff --git a/src/Propellor/Property/Prosody.hs b/src/Propellor/Property/Prosody.hs new file mode 100644 index 00000000..06e2355f --- /dev/null +++ b/src/Propellor/Property/Prosody.hs @@ -0,0 +1,52 @@ +module Propellor.Property.Prosody where + +import Propellor +import qualified Propellor.Property.File as File +import qualified Propellor.Property.Apt as Apt +import qualified Propellor.Property.Service as Service +import System.Posix.Files + +type ConfigFile = [String] + +type Conf = String + +confEnabled :: Conf -> ConfigFile -> RevertableProperty +confEnabled conf cf = RevertableProperty enable disable + where + enable = check test prop + `describe` ("prosody conf enabled " ++ conf) + `requires` confAvailable conf cf + `requires` installed + `onChange` reloaded + where + test = not <$> doesFileExist (confValPath conf) + prop = property "prosody conf in place" $ makeChange $ + createSymbolicLink target dir + target = confValRelativePath conf + dir = confValPath conf + confValRelativePath conf' = "../conf.avail" conf' <.> "cfg.lua" + disable = trivial $ File.notPresent (confValPath conf) + `describe` ("prosody conf disabled " ++ conf) + `requires` installed + `onChange` reloaded + +confAvailable :: Conf -> ConfigFile -> Property +confAvailable conf cf = ("prosody conf available " ++ conf) ==> + confAvailPath conf `File.hasContent` (comment : cf) + where + comment = "-- deployed with propellor, do not modify" + +confAvailPath :: Conf -> FilePath +confAvailPath conf = "/etc/prosody/conf.avail" conf <.> "cfg.lua" + +confValPath :: Conf -> FilePath +confValPath conf = "/etc/prosody/conf.d" conf <.> "cfg.lua" + +installed :: Property +installed = Apt.installed ["prosody"] + +restarted :: Property +restarted = Service.restarted "prosody" + +reloaded :: Property +reloaded = Service.reloaded "prosody" -- cgit v1.2.3