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