Mercurial > urweb

view tests/headers.ur @ 1839:d8c260bcc1f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix determination of MySQL timestamp hour fields (may still be wrong once DST bit flips)
author Adam Chlipala <adam@chlipala.net>
date Thu, 13 Dec 2012 17:51:34 -0500
parents 2f5fd248588d
children
line wrap: on
line source
fun action () =
  setHeader (blessResponseHeader "Location") "http://www.google.com/";
  return <xml/>

fun main () =
  ag <- getHeader (blessRequestHeader "User-Agent");
  return <xml><body>
    User agent: {[ag]}

    <form> <submit action={action}/> </form>
  </body></xml>