blob: 505a1ae41507816a4d1b7e452779b43995831f32 (
plain)
1
2
3
4
5
6
7
8
9
10
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>
|
