Mercurial > openid

comparison src/ur/openidUser.ur @ 27:f129ddee75f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some XRDS fixes; ignore query strings in naming endpoints for association purposes
author Adam Chlipala <adam@chlipala.net>
date Sun, 23 Jan 2011 17:40:42 -0500
parents ee97bc0e08fa
children fcd3a977d77b
comparison
equal deleted inserted replaced
26:ee97bc0e08fa 27:f129ddee75f3
257 Identifier = r.Identifier}; 257 Identifier = r.Identifier};
258 error <xml>Login with your identity provider failed: {[msg]}</xml> 258 error <xml>Login with your identity provider failed: {[msg]}</xml>
259 259
260 fun signup after = 260 fun signup after =
261 let 261 let
262 fun fixed cls label url = 262 fun fixed cls url =
263 let 263 let
264 fun doFixedButton () = 264 fun doFixedButton () =
265 doSignup after {Identifier = url} 265 doSignup after {Identifier = url}
266 in 266 in
267 <xml><form class={provider}> 267 <xml><form class={provider}>
268 <submit class={cls} value={label} action={doFixedButton}/> 268 <submit class={cls} value="" action={doFixedButton}/>
269 </form></xml> 269 </form></xml>
270 end 270 end
271 in 271 in
272 wrap "Account Signup" <xml> 272 wrap "Account Signup" <xml>
273 <p>This web site uses the <b><a href="http://openid.net/">OpenID</a></b> standard, which lets you log in using your account from one of several popular web sites, without revealing your password to us.</p> 273 <p>This web site uses the <b><a href="http://openid.net/">OpenID</a></b> standard, which lets you log in using your account from one of several popular web sites, without revealing your password to us.</p>
274 274
275 <p>You may click one of these buttons to choose to use your account from that site:</p> 275 <p>You may click one of these buttons to choose to use your account from that site:</p>
276 {fixed aol "AOL" "https://openid.aol.com/"} 276 {fixed aol "https://openid.aol.com/"}
277 {fixed google "Google" "https://www.google.com/accounts/o8/id"} 277 {fixed google "https://www.google.com/accounts/o8/id"}
278 {fixed myspace "Myspace" "https://www.myspace.com/openid"} 278 {fixed myspace "https://www.myspace.com/openid"}
279 {fixed yahoo "Yahoo!" "https://me.yahoo.com/"} 279 {fixed yahoo "https://me.yahoo.com/"}
280 280
281 <p>Visitors familiar with the details of OpenID may also enter their own identifiers:</p> 281 <p>Visitors familiar with the details of OpenID may also enter their own identifiers:</p>
282 <form> 282 <form>
283 OpenID Identifier: <textbox{#Identifier}/><br/> 283 OpenID Identifier: <textbox{#Identifier}/><br/>
284 <submit value="Sign Up" action={doSignup after}/> 284 <submit value="Sign Up" action={doSignup after}/>