summaryrefslogtreecommitdiff
path: root/src/mulk/benki/auth.clj
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-11-25 11:04:38 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-11-25 11:04:38 +0100
commita6e7dbe4107ee17fc5dd8cfc796bcade8782e4f2 (patch)
tree688d59a5fb3c67d143452cf4bcb55f248164beac /src/mulk/benki/auth.clj
parent1e34ede86cd441351b1d9395a77ed74bc72d19a1 (diff)
Add a note for unregistered users that tells them their OpenID.
Diffstat (limited to 'src/mulk/benki/auth.clj')
-rw-r--r--src/mulk/benki/auth.clj4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/mulk/benki/auth.clj b/src/mulk/benki/auth.clj
index d9b9d3e..70662f8 100644
--- a/src/mulk/benki/auth.clj
+++ b/src/mulk/benki/auth.clj
@@ -49,7 +49,9 @@
(if-let [return-uri (session/flash-get)]
(redirect return-uri)
(layout "Authenticated!" [:p "Welcome back, " (:first_name user) "!"])))
- (layout "Authentication Failed" [:p "Did not recognize OpenID."]))))
+ (layout "Authentication Failed"
+ [:p "Did not recognize OpenID."]
+ [:p "Your OpenID is: " [:strong (.getIdentifier id)]]))))
(layout "Authentication Failed" [:p "OpenID authentication failed."]))))