From 1f805fd3ae4b50b4c02b9e1c49ce993de147ea3a Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 11 Jan 2018 22:05:44 +0900 Subject: [PATCH] log ip address of clients in net servers --- lib/chibi/net/server.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/chibi/net/server.scm b/lib/chibi/net/server.scm index be569155..62bd5eb7 100644 --- a/lib/chibi/net/server.scm +++ b/lib/chibi/net/server.scm @@ -38,16 +38,17 @@ (else #f)) default-max-requests))) (define (run sock addr count) - (log-debug "net-server: accepting request:" count) + (log-debug "net-server: accepting request: " count " " + (sockaddr-name (address-info-address addr))) (let ((ports (protect (exn (else - (log-error "net-server: couldn't create port:" sock) + (log-error "net-server: couldn't create port: " sock) (close-file-descriptor sock))) (cons (open-input-file-descriptor sock) (open-output-file-descriptor sock))))) (protect (exn - (else (log-error "net-server: error in request:" count) + (else (log-error "net-server: error in request: " count) (print-exception exn) (print-stack-trace exn) (close-input-port (car ports))