From 1af31c3200ecae9c4c95d7158a0e5986b1705b3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 26 Jan 2018 11:22:31 +0100
Subject: http: Log incoming connections and requests.

* src/web/server/fiberized.scm (socket-loop): Add 'log-message' call.
* src/cuirass/http.scm (url-handler): Likewise.
---
 src/cuirass/http.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/cuirass/http.scm')

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 3775298..9eeb9e2 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -121,6 +121,9 @@
        404
        (format #f "The build log of derivation ~a is not available." drv))))
 
+  (log-message "~a ~a" (request-method request)
+               (uri-path (request-uri request)))
+
   (match (request-path-components request)
     (((or "jobsets" "specifications") . rest)
      (respond-json (object->json-string (car (db-get-specifications db)))))
-- 
cgit v1.2.3