diff options
| author | polwex <polwex@sortug.com> | 2025-06-22 14:32:59 +0700 |
|---|---|---|
| committer | polwex <polwex@sortug.com> | 2025-06-22 14:32:59 +0700 |
| commit | 20cc3637c7268ceb8ca18ce55027ad8584e1cfd8 (patch) | |
| tree | 343b364da65444e96c7e986c13c9faba1f853102 /bs5/server/middleware/logs.ml | |
| parent | 71c20233ff79e696d0eeca2ce1462d3083fbcfed (diff) | |
checkpoint
Diffstat (limited to 'bs5/server/middleware/logs.ml')
| -rw-r--r-- | bs5/server/middleware/logs.ml | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/bs5/server/middleware/logs.ml b/bs5/server/middleware/logs.ml index 6925ca4..ea69f89 100644 --- a/bs5/server/middleware/logs.ml +++ b/bs5/server/middleware/logs.ml @@ -1,12 +1,14 @@ 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 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 + let%lwt () = Lwt_io.printf "%s -%s -> %d\n" method_str path status in Lwt.return response |