Mercurial > urweb

view demo/upload.ur @ 1132:d4cd54a4ea06

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First attempt to switch to Automake, to get shared libraries built in OSX
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 Jan 2010 09:56:08 -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>