Mercurial > urweb

view demo/upload.ur @ 1415:e65082d76d26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Only announce URI serving in standalone HTTP server (grandfathered into release!)
author Adam Chlipala <adam@chlipala.net>
date Sun, 23 Jan 2011 15:34:06 -0500
parents 9f2555f06901
children
line wrap: on
line source
fun echo r =
  if blobSize (fileData r.File) > 100000 then
      return <xml>Whoa!  That one's too big.</xml>
  else
      returnBlob (fileData r.File) (blessMime (fileMimeType r.File))

fun main () = return <xml><body>
  <h1>The Amazing File Echoer!</h1>

  <form>Upload a file: <upload{#File}/> <submit action={echo}/></form>
</body></xml>