From 69de932f9116b30adfd689d38e35ace63aef0e2d Mon Sep 17 00:00:00 2001
From: filip <“filip.rabiega@gmail.com”>
Date: Fri, 16 Aug 2024 14:11:00 +0200
Subject: added api

---
 api/startapp.ml | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 api/startapp.ml

(limited to 'api/startapp.ml')

diff --git a/api/startapp.ml b/api/startapp.ml
new file mode 100644
index 0000000..3b459d5
--- /dev/null
+++ b/api/startapp.ml
@@ -0,0 +1,26 @@
+
+(* Middleware to enable CORS for testing purposes *)
+let cors_middleware handler request =
+  let handlers =
+    [
+      "Allow", "OPTIONS, GET, HEAD, POST";
+      "Access-Control-Allow-Origin", "*";
+      "Access-Control-Allow-Methods", "OPTIONS, GET, HEAD, POST";
+      "Access-Control-Allow-Headers", "Content-Type";
+      "Access-Control-Max-Age", "86400"
+    ]
+  in
+
+  let%lwt res = handler request in
+  handlers
+  |> List.map (fun (key, value) -> Dream.add_header res key value)
+  |> ignore;
+  Lwt.return res
+
+  (* Create and start the app *)
+let startapp () =
+  Dream.run
+  @@ Dream.logger
+  (* @@ Dream.origin_referrer_check *)
+  @@ cors_middleware (* TODO: remove *)
+  @@ Dream.router Routes.routes
-- 
cgit v1.2.3