owenrees/chess-scribe-api
1
0
Fork 0
mirror of https://github.com/TheRealOwenRees/chess-scribe-api.git synced 2026-07-23 01:06:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

add localhost to allowed origin for testing build

Browse Source
This commit is contained in:
Owen Rees
2026-05-29 10:02:55 +02:00
parent f66b2ac742
commit 026cde0481
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/main.ml
+12 -2
View File
@@ -2,13 +2,24 @@ open Lwt.Syntax
open Yojson.Safe.Util open Yojson.Safe.Util
open Pgn_logic open Pgn_logic
let allowed_origins =
[
"https://chess-scribe.org";
"https://www.chess-scribe.org";
"http://localhost:3000";
]
let is_dev_mode () = let is_dev_mode () =
Array.to_list Sys.argv Array.to_list Sys.argv
|> List.exists (fun arg -> arg = "DREAM_ENV=development") |> List.exists (fun arg -> arg = "DREAM_ENV=development")
let cors_middleware next_handler request = let cors_middleware next_handler request =
let allowed_origin = let allowed_origin =
if is_dev_mode () then "*" else "https://chess-scribe.org" if is_dev_mode () then "*"
else
match Dream.header request "Origin" with
| Some origin when List.mem origin allowed_origins -> origin
| _ -> "https://chess-scribe.org"
in in
if Dream.method_ request = `OPTIONS then ( if Dream.method_ request = `OPTIONS then (
@@ -27,7 +38,6 @@ let cors_middleware next_handler request =
Lwt.return response Lwt.return response
let handle_convert request = let handle_convert request =
(* let start_time = Unix.gettimeofday () in *)
let temp_id = let temp_id =
Int64.to_string (Int64.of_float (Unix.gettimeofday () *. 1000.0)) Int64.to_string (Int64.of_float (Unix.gettimeofday () *. 1000.0))
in in