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

log ip address of clients in net servers

Browse source
This commit is contained in:
Alex Shinn 2018-01-11 22:05:44 +09:00
parent 08a6962c98
commit 1f805fd3ae
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/net/server.scm
View file

@ -38,16 +38,17 @@
(else #f)) (else #f))
default-max-requests))) default-max-requests)))
(define (run sock addr count) (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 (let ((ports
(protect (exn (protect (exn
(else (else
(log-error "net-server: couldn't create port:" sock) (log-error "net-server: couldn't create port: " sock)
(close-file-descriptor sock))) (close-file-descriptor sock)))
(cons (open-input-file-descriptor sock) (cons (open-input-file-descriptor sock)
(open-output-file-descriptor sock))))) (open-output-file-descriptor sock)))))
(protect (exn (protect (exn
(else (log-error "net-server: error in request:" count) (else (log-error "net-server: error in request: " count)
(print-exception exn) (print-exception exn)
(print-stack-trace exn) (print-stack-trace exn)
(close-input-port (car ports)) (close-input-port (car ports))