From d8b3e15bec60f58defad13e961f80354d250235d Mon Sep 17 00:00:00 2001 From: polwex Date: Sat, 14 Jun 2025 23:30:34 +0700 Subject: aaaaaa --- bs5/server/middleware/logs.ml | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 bs5/server/middleware/logs.ml (limited to 'bs5/server/middleware/logs.ml') diff --git a/bs5/server/middleware/logs.ml b/bs5/server/middleware/logs.ml new file mode 100644 index 0000000..6925ca4 --- /dev/null +++ b/bs5/server/middleware/logs.ml @@ -0,0 +1,12 @@ +let detailed_logger inner_handler request = + let method_str = Dream.method_to_string (Dream.method_ request) in + let path = Dream.target request in + let user_agent = Dream.header request "User-Agent" |> Option.value ~default:"unknown" in + let client_ip = Dream.client request in + let%lwt () = + Lwt_io.printf "%s %s %s - %s - %s\n" (Ptime_clock.now () |> Ptime.to_rfc3339) method_str path client_ip user_agent + in + let%lwt response = inner_handler request in + let status = Dream.status response |> Dream.status_to_int in + let%lwt () = Lwt_io.printf " -> %d\n" status in + Lwt.return response -- cgit v1.2.3