Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +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

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

@ -54,8 +54,9 @@
(make-request command (car ls) (cadr ls) in out sock addr))))
(cond
(request
(if (not (conf-get cfg 'quiet?))
(log-info `(request: ,command ,(car ls) ,(cadr ls)
,(request-headers request)))
,(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))