From d3ae708373eba13e961a70d752b36ec41cec2510 Mon Sep 17 00:00:00 2001
From: Alban Gruin
Date: Sat, 12 Sep 2020 16:58:31 +0200
Subject: ucs: log queries

Signed-off-by: Alban Gruin <alban@pa1ch.fr>
---
 src/ucs.ml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src')

diff --git a/src/ucs.ml b/src/ucs.ml
index 92814f6..c9fcf95 100644
--- a/src/ucs.ml
+++ b/src/ucs.ml
@@ -30,6 +30,12 @@ let fetch group =
   >>= fun (_resp, body) ->
   Cohttp_lwt.Body.to_string body
 
+let log req =
+  let uri = Request.uri req and
+      datetime = CalendarLib.(
+          Printer.Calendar.sprint "%Y-%m-%d %H:%M:%S" @@ Calendar.now ()) in
+  Lwt_io.printlf "[%s] %s" datetime (Uri.path uri)
+
 let server =
   let callback _conn req _body =
     let meth = Request.meth req and
@@ -37,6 +43,7 @@ let server =
               |> Uri.path
               |> Astring.String.cuts ~empty:false ~sep:"/"
               |> List.map Uri.pct_decode in
+    log req >>= fun () ->
     match meth, uri with
     | `GET, ["ics"; file] when Astring.String.is_suffix ~affix:".ics" file ->
        let group = String.(sub file 0 (length file - 4)) in
-- 
cgit v1.2.1