diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-01-26 11:22:31 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-26 11:23:07 +0100 |
commit | 1af31c3200ecae9c4c95d7158a0e5986b1705b3c (patch) | |
tree | 2eba8d6a93209593b9aa1317d9ba52b02179f43b /src/cuirass | |
parent | 77769c29e787944eb01fdc016a2ac50b1e4655f7 (diff) | |
download | cuirass-1af31c3200ecae9c4c95d7158a0e5986b1705b3c.tar cuirass-1af31c3200ecae9c4c95d7158a0e5986b1705b3c.tar.gz |
http: Log incoming connections and requests.
* src/web/server/fiberized.scm (socket-loop): Add 'log-message' call.
* src/cuirass/http.scm (url-handler): Likewise.
Diffstat (limited to 'src/cuirass')
-rw-r--r-- | src/cuirass/http.scm | 3 |
1 files changed, 3 insertions, 0 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))))) |