summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-04-08 23:50:09 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-04-08 23:50:09 +0200
commiteec1fa16980cfc91b9fe69e4840f9cfb2f535167 (patch)
tree14b3d96c0699b0d49f3a01a0d88b51c8a8d16a72 /src
parent2d716e8f14d1c5c7aa830f9010287a14dd2f1fdc (diff)
OpenID IdP: Make process-openid-request more lenient with regard to the format of (:params (request/ring-request)).
Diffstat (limited to 'src')
-rw-r--r--src/mulk/benki/id.clj5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/mulk/benki/id.clj b/src/mulk/benki/id.clj
index 1442903..e413287 100644
--- a/src/mulk/benki/id.clj
+++ b/src/mulk/benki/id.clj
@@ -55,9 +55,12 @@
(.sign manager response)
(redirect (.getDestinationUrl response true))))))
+(defn stringify-keys [m]
+ (into {} (map (fn [[k v]] [(name k) v]) m)))
+
(defn process-openid-request []
(let [query (:params (request/ring-request))
- paramlist (ParameterList. query)
+ paramlist (ParameterList. (stringify-keys query))
mode (query "openid.mode")]
(match [mode]
["associate"]