Mercurial > urweb

view tests/redirect.ur @ 1542:dc4c61363d0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add timestamps to 'app.js' filenames, to prevent inappropriate caching by browsers
author Adam Chlipala <adam@chlipala.net>
date Fri, 19 Aug 2011 08:59:01 -0400
parents 217eb87dde31
children
line wrap: on
line source
fun other () = redirect (bless "http://www.google.com/")

fun further () = case checkUrl "http://www.google.com/" of
                     None => return <xml>Darn.</xml>
                   | Some url => redirect url

fun failing () = case checkUrl "http://www.yahoo.com/" of
                     None => return <xml>Darn.</xml>
                   | Some url => redirect url

fun main () = return <xml><body>
  <a link={other ()}>Go there</a><br/>
  <a link={further ()}>Go also there</a><br/>
  <a link={failing ()}>Fail there</a>
</body></xml>