http: Log incoming connections and requests.

* src/web/server/fiberized.scm (socket-loop): Add 'log-message' call.
* src/cuirass/http.scm (url-handler): Likewise.

2 files changed, 8 insertions, 1 deletions

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)))))
diff --git a/src/web/server/fiberized.scm b/src/web/server/fiberized.scm
index 4758d00..25a410a 100644
--- a/src/web/server/fiberized.scm
+++ b/src/web/server/fiberized.scm
@@ -40,7 +40,8 @@
   #:use-module (ice-9 binary-ports)
   #:use-module (ice-9 match)
   #:use-module (fibers)
-  #:use-module (fibers channels))
+  #:use-module (fibers channels)
+  #:use-module (cuirass logging))
 
 (define (make-default-socket family addr port)
   (let ((sock (socket PF_INET SOCK_STREAM 0)))
@@ -142,6 +143,9 @@
   (let loop ()
     (match (accept socket (logior SOCK_NONBLOCK SOCK_CLOEXEC))
       ((client . sockaddr)
+       (log-message "HTTP connection from ~a"
+                    (inet-ntop (sockaddr:fam sockaddr)
+                               (sockaddr:addr sockaddr)))
        (spawn-fiber (lambda () (client-loop client have-request))
                     #:parallel? #t)
        (loop)))))