diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-01 10:54:45 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-01 10:54:45 +0100 |
| commit | 9094fdb4e18c34088340433a2b51b1f4ab3403f6 (patch) | |
| tree | 93b873843500646e24d1944a6788052f0029587e | |
| parent | 883255eee1a3d1896e2da33cc60c19f050e498c2 (diff) | |
| download | nar-herder-9094fdb4e18c34088340433a2b51b1f4ab3403f6.tar nar-herder-9094fdb4e18c34088340433a2b51b1f4ab3403f6.tar.gz | |
Add Via header logging
As this is important for avoiding request cycles.
| -rw-r--r-- | nar-herder/server.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/nar-herder/server.scm b/nar-herder/server.scm index 2e2c1e7..7046784 100644 --- a/nar-herder/server.scm +++ b/nar-herder/server.scm @@ -226,7 +226,12 @@ 'DEBUG (request-method request) " " - (uri-path (request-uri request))) + (uri-path (request-uri request)) + (let ((via (request-via request))) + (if (null? via) + "" + (string-append + " (Via: " (string-join via ", ") ")")))) (match (cons (request-method request) (split-and-decode-uri-path |