Mercurial > openid

diff src/ur/openid.ur @ 26:ee97bc0e08fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some default OPs, along with some tweaks to keep them happy
author Adam Chlipala <adam@chlipala.net>
date Sun, 23 Jan 2011 14:57:49 -0500
parents 70ab0230649b
children f129ddee75f3
line wrap: on
line diff
--- a/src/ur/openid.ur	Thu Jan 20 12:23:44 2011 -0500
+++ b/src/ur/openid.ur	Sun Jan 23 14:57:49 2011 -0500
@@ -383,18 +383,18 @@
           | Some dy =>
             case r.Association of
                 Stateless =>
-                redirect (bless (dy ^ "?openid.ns=http://specs.openid.net/auth/2.0&openid.mode=checkid_setup&openid.claimed_id="
-                                 ^ eatFragment r.Identifier
-                                 ^ "&openid.identity=http://specs.openid.net/auth/2.0/identifier_select&openid.return_to="
-                                 ^ show (effectfulUrl returnTo) ^ realmString))
+                redirect (bless (dy ^ "?openid.ns=http://specs.openid.net/auth/2.0&openid.mode=checkid_setup"
+                                 ^ "&openid.claimed_id=http://specs.openid.net/auth/2.0/identifier_select"
+                                 ^ "&openid.identity=http://specs.openid.net/auth/2.0/identifier_select&openid.assoc_handle="
+                                 ^ "&openid.return_to=" ^ show (effectfulUrl returnTo) ^ realmString))
               | Stateful ar =>
                 assoc <- association ar.AssociationType ar.AssociationSessionType dy;
                 case assoc of
                     AssError msg => return ("Association failure: " ^ msg)
                   | AssAlternate _ => return "Association failure: server didn't accept its own alternate association modes"
                   | Association assoc =>
-                    redirect (bless (dy ^ "?openid.ns=http://specs.openid.net/auth/2.0&openid.mode=checkid_setup&openid.claimed_id="
-                                     ^ eatFragment r.Identifier
+                    redirect (bless (dy ^ "?openid.ns=http://specs.openid.net/auth/2.0&openid.mode=checkid_setup"
+                                     ^ "&openid.claimed_id=http://specs.openid.net/auth/2.0/identifier_select"
                                      ^ "&openid.identity=http://specs.openid.net/auth/2.0/identifier_select&openid.assoc_handle="
                                      ^ assoc.Handle ^ "&openid.return_to=" ^ show (effectfulUrl returnTo) ^ realmString))
     end