diff options
author | Adam Chlipala <adam@chlipala.net> | 2011-08-28 17:16:54 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2011-08-28 17:16:54 -0400 |
commit | ca0e7da014bf885d5f2acc887667368475f55520 (patch) | |
tree | 57bb51d132b4f81840f3ec44eba22addcf822f52 /tests/goback.ur | |
parent | d91328bc0c51c399b2a6926ba04cead7bccc67da (diff) |
Gentle handling of back-button returns to pages with stale message-passing credentials
Diffstat (limited to 'tests/goback.ur')
-rw-r--r-- | tests/goback.ur | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/goback.ur b/tests/goback.ur new file mode 100644 index 00000000..ef61a817 --- /dev/null +++ b/tests/goback.ur @@ -0,0 +1,20 @@ +table channels : { Channel : channel {} } + +fun get () = + ch <- channel; + dml (INSERT INTO channels (Channel) VALUES ({[ch]})); + return <xml><body onload={recv ch}> + Hi. + </body></xml> + +fun post () = + ch <- channel; + dml (INSERT INTO channels (Channel) VALUES ({[ch]})); + return <xml><body onload={recv ch}> + Hi! + </body></xml> + +fun main () = return <xml><body> + <li><a link={get ()}>Get</a></li> + <li><form><submit action={post}/></form></li> +</body></xml> |