summaryrefslogtreecommitdiff
path: root/demo/upload.ur
diff options
context:
space:
mode:
Diffstat (limited to 'demo/upload.ur')
-rw-r--r--demo/upload.ur11
1 files changed, 11 insertions, 0 deletions
diff --git a/demo/upload.ur b/demo/upload.ur
new file mode 100644
index 00000000..505a1ae4
--- /dev/null
+++ b/demo/upload.ur
@@ -0,0 +1,11 @@
+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>