Mercurial > openid

view tests/test.ur @ 8:870d99055dd1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Diffie-Hellman started but not fully tested; successfully checked signature from AOL
author Adam Chlipala <adam@chlipala.net>
date Wed, 29 Dec 2010 12:16:32 -0500
parents 2d409aff8800
children 194577b60771
line wrap: on
line source
fun auth r =
    msg <- Openid.authenticate Openid.HMAC_SHA256 Openid.NoEncryption r.Id;
    error <xml>{[msg]}</xml>

fun main () = return <xml><body>
  <form>
    <textbox{#Id}/>
    <submit action={auth}/>
  </form>
</body></xml>