Mercurial > openid
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>