1 files changed, 37 insertions, 0 deletions
diff --git a/bs5/server/api/upload.ml b/bs5/server/api/upload.ml
new file mode 100644
index 0000000..4ba5fb7
--- /dev/null
+++ b/bs5/server/api/upload.ml
@@ -0,0 +1,37 @@
+(* let home request = *)
+(* <html> *)
+(* <body> *)
+(* <form method="POST" action="/" enctype="multipart/form-data"> *)
+(* <%s! Dream.csrf_tag request %> *)
+(* <input name="files" type="file" multiple> *)
+(* <button>Submit!</button> *)
+(* </form> *)
+(* </body> *)
+(* </html> *)
+
+(* let report files = *)
+(* <html> *)
+(* <body> *)
+(* %   files |> List.iter begin fun (name, content) -> *)
+(* %     let name = *)
+(* %       match name with *)
+(* %       | None -> "None" *)
+(* %       | Some name -> name *)
+(* %     in *)
+(* <p><%s name %>, <%i String.length content %> bytes</p> *)
+(* %   end; *)
+(* </body> *)
+(* </html> *)
+
+(* let uploads = *)
+(* [ *)
+
+(* Dream.get  "/" (fun request -> *)
+(* Dream.html (home request)); *)
+
+(* Dream.post "/" (fun request -> *)
+(* match%lwt Dream.multipart request with *)
+(* | `Ok ["files", files] -> Dream.html (report files) *)
+(* | _ -> Dream.empty `Bad_Request); *)
+
+(* ] *)