diff options
-rw-r--r-- | src/cuirass/http.scm | 3 | ||||
-rw-r--r-- | src/web/server/fiberized.scm | 6 |
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))))) |