diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-04-08 23:50:09 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-04-08 23:50:09 +0200 |
| commit | eec1fa16980cfc91b9fe69e4840f9cfb2f535167 (patch) | |
| tree | 14b3d96c0699b0d49f3a01a0d88b51c8a8d16a72 | |
| parent | 2d716e8f14d1c5c7aa830f9010287a14dd2f1fdc (diff) | |
OpenID IdP: Make process-openid-request more lenient with regard to the format of (:params (request/ring-request)).
| -rw-r--r-- | src/mulk/benki/id.clj | 5 |
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"] |