2014-04-08 20:58:11 +00:00
|
|
|
module Propellor.Property.OpenId where
|
|
|
|
|
|
|
|
|
|
import Propellor
|
|
|
|
|
import qualified Propellor.Property.File as File
|
|
|
|
|
import qualified Propellor.Property.Apt as Apt
|
|
|
|
|
|
|
|
|
|
providerFor :: [UserName] -> Property
|
|
|
|
|
providerFor users = propertyList ("openid provider") $
|
|
|
|
|
[ serviceRunning "apache2"
|
|
|
|
|
`requires` Apt.installed ["apache2"]
|
|
|
|
|
, Apt.installed ["simpleid"]
|
2014-04-08 21:10:52 +00:00
|
|
|
`onChange` serviceRestarted "apache2"
|
|
|
|
|
, serviceRestarted "apache2"
|
2014-04-08 20:58:11 +00:00
|
|
|
] ++ map identfile users
|
|
|
|
|
where
|
|
|
|
|
identfile u = File.hasPrivContent $ concat
|
|
|
|
|
[ "/var/lib/simpleid/identities/", u, ".identity" ]
|
