Mercurial > openid

view tests/test.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 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>