dredozubov · June 15, 2018 16:16
diff --git a/upload.ur b/upload.ur
 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>
diff --git a/upload.urp b/upload.urp
 allow mime text/plain
 allow mime image/png
 allow mime image/gif

 upload
diff --git a/upload.urs b/upload.urs
 val main : unit -> transaction page
	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>