From d8b3e15bec60f58defad13e961f80354d250235d Mon Sep 17 00:00:00 2001 From: polwex Date: Sat, 14 Jun 2025 23:30:34 +0700 Subject: aaaaaa --- bs5/server/api/upload.ml | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 bs5/server/api/upload.ml (limited to 'bs5/server/api/upload.ml') 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 = *) +(* *) +(* *) +(* *) +(* *) +(* *) + +(* let report files = *) +(* *) +(* *) +(* % files |> List.iter begin fun (name, content) -> *) +(* % let name = *) +(* % match name with *) +(* % | None -> "None" *) +(* % | Some name -> name *) +(* % in *) +(*

<%s name %>, <%i String.length content %> bytes

*) +(* % end; *) +(* *) +(* *) + +(* 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); *) + +(* ] *) -- cgit v1.2.3