summaryrefslogtreecommitdiff
path: root/Propellor/Property/OpenId.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Propellor/Property/OpenId.hs')
-rw-r--r--Propellor/Property/OpenId.hs29
1 files changed, 0 insertions, 29 deletions
diff --git a/Propellor/Property/OpenId.hs b/Propellor/Property/OpenId.hs
deleted file mode 100644
index 051d6425..00000000
--- a/Propellor/Property/OpenId.hs
+++ /dev/null
@@ -1,29 +0,0 @@
-module Propellor.Property.OpenId where
-
-import Propellor
-import qualified Propellor.Property.File as File
-import qualified Propellor.Property.Apt as Apt
-import qualified Propellor.Property.Service as Service
-
-import Data.List
-
-providerFor :: [UserName] -> String -> Property
-providerFor users baseurl = propertyList desc $
- [ Apt.serviceInstalledRunning "apache2"
- , Apt.installed ["simpleid"]
- `onChange` Service.restarted "apache2"
- , File.fileProperty (desc ++ " configured")
- (map setbaseurl) "/etc/simpleid/config.inc"
- ] ++ map identfile users
- where
- url = "http://"++baseurl++"/simpleid"
- desc = "openid provider " ++ url
- setbaseurl l
- | "SIMPLEID_BASE_URL" `isInfixOf` l =
- "define('SIMPLEID_BASE_URL', '"++url++"');"
- | otherwise = l
-
- -- the identitites directory controls access, so open up
- -- file mode
- identfile u = File.hasPrivContentExposed $
- concat $ [ "/var/lib/simpleid/identities/", u, ".identity" ]