Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

accept a --quiet option to disable full request logging in http-server

Browse source 
Closes #926
This commit is contained in:
Alex Shinn 2024-05-29 22:46:52 +09:00
parent 5350d0429c
commit 390122a7bc
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/chibi/net/http-server.scm
View file

@ -54,8 +54,9 @@
(make-request command (car ls) (cadr ls) in out sock addr)))) (make-request command (car ls) (cadr ls) in out sock addr))))
(cond (cond
(request (request
(log-info `(request: ,command ,(car ls) ,(cadr ls) (if (not (conf-get cfg 'quiet?))
,(request-headers request))) (log-info `(request: ,command ,(car ls) ,(cadr ls)
,(request-headers request))))
(protect (exn (protect (exn
(else (else
(log-error "internal error: " exn) (log-error "internal error: " exn)
@ -550,7 +551,8 @@
(@ (@
((port integer) ((port integer)
(doc-root string) (doc-root string)
(verbose? boolean (#\v "verbose")))) (verbose? boolean (#\v "verbose"))
(quiet? boolean (#\q "quiet"))))
,run-app)) ,run-app))
(define (main args) (run-application app-spec)) (define (main args) (run-application app-spec))