cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-04-08 17:52:14 -04:00
parent a04539a2ee
commit e2d1cf70eb
Failed to extract signature
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Propellor/Property/OpenId.hs
View File

@ -7,18 +7,20 @@ import qualified Propellor.Property.Apt as Apt
import Data.List
providerFor :: [UserName] -> String -> Property
providerFor users baseurl = propertyList ("openid provider") $
providerFor users baseurl = propertyList desc $
[ serviceRunning "apache2"
`requires` Apt.installed ["apache2"]
, Apt.installed ["simpleid"]
`onChange` serviceRestarted "apache2"
, File.fileProperty ("simpleid host " ++ baseurl)
, File.fileProperty desc
(map setbaseurl) "/etc/simpleid/config.inc"
] ++ map identfile users
where
identfile u = File.hasPrivContent $ concat
[ "/var/lib/simpleid/identities/", u, ".identity" ]
url = "http://"++baseurl++"/simpleid"
desc = "openid provider " ++ url
setbaseurl l
| "SIMPLEID_BASE_URL" `isInfixOf` l =
"define('SIMPLEID_BASE_URL', 'http://"++baseurl++"/simpleid');"
"define('SIMPLEID_BASE_URL', '"++url++"');"
| otherwise = l