propellor/Propellor/Property/OpenId.hs

module Propellor.Property.OpenId where

import Propellor
import qualified Propellor.Property.File as File
import qualified Propellor.Property.Apt as Apt

import Data.List

providerFor :: [UserName] -> HostName -> Property
providerFor users hostname = propertyList ("openid provider") $
	[ serviceRunning "apache2"
		`requires` Apt.installed ["apache2"]
	, Apt.installed ["simpleid"]
		`onChange` serviceRestarted "apache2"
	, File.fileProperty ("simpleid host " ++ hostname)
		(map setbaseurl) "/etc/simpleid/config.inc"
	] ++ map identfile users
  where
	identfile u = File.hasPrivContent $ concat
		[ "/var/lib/simpleid/identities/", u, ".identity" ]
	setbaseurl l
		| "SIMPLEID_BASE_URL" `isInfixOf` l = 
			"define('SIMPLEID_BASE_URL', 'http://"++hostname++"/simpleid');"
		| otherwise = l