view tests/test.ur @ 9:426dd5c88df1

Fixed checking of nonce timestamp range
author Adam Chlipala <adam@chlipala.net>
date Wed, 29 Dec 2010 14:17:27 -0500
parents 870d99055dd1
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>