From 390122a7bc7e88f490629f10fb62ecf66e04cb68 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 29 May 2024 22:46:52 +0900 Subject: [PATCH] accept a --quiet option to disable full request logging in http-server Closes #926 --- lib/chibi/net/http-server.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lib/chibi/net/http-server.scm b/lib/chibi/net/http-server.scm index 39e62eb6..27c263f8 100644 --- a/lib/chibi/net/http-server.scm +++ b/lib/chibi/net/http-server.scm @@ -54,8 +54,9 @@ (make-request command (car ls) (cadr ls) in out sock addr)))) (cond (request - (log-info `(request: ,command ,(car ls) ,(cadr ls) - ,(request-headers request))) + (if (not (conf-get cfg 'quiet?)) + (log-info `(request: ,command ,(car ls) ,(cadr ls) + ,(request-headers request)))) (protect (exn (else (log-error "internal error: " exn) @@ -550,7 +551,8 @@ (@ ((port integer) (doc-root string) - (verbose? boolean (#\v "verbose")))) + (verbose? boolean (#\v "verbose")) + (quiet? boolean (#\q "quiet")))) ,run-app)) (define (main args) (run-application app-spec))