Mercurial > openid
view tests/test.ur @ 27:f129ddee75f3
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 | 35bc4da563dd |
children | f6b3fbf10dac |
line wrap: on
line source
fun afterward r = return <xml><body> {case r of Openid.Canceled => <xml>You canceled that sucker.</xml> | Openid.Failure s => error <xml>OpenID failure: {[s]}</xml> | Openid.AuthenticatedAs id => <xml>I now know you as <tt>{[id]}</tt>.</xml>} </body></xml> fun auth r = msg <- Openid.authenticate afterward {Association = Openid.Stateful {AssociationType = Openid.HMAC_SHA256, AssociationSessionType = Openid.NoEncryption}, Identifier = r.Id, Realm = Some "http://localhost:8080/"}; error <xml>{[msg]}</xml> fun main () = return <xml><body> <form> <textbox{#Id}/> <submit action={auth}/> </form> </body></xml>