25 lines
794 B
Haskell
25 lines
794 B
Haskell
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
|