Print out peer connection details in broker

2016-05-12 10:57:34 -04:00 · 2016-05-12 10:57:34 -04:00 · 7e48e82a48
parent de44b51e49
commit 7e48e82a48
1 changed files with 4 additions and 0 deletions
--- a/racket/syndicate/broker/server.rkt
+++ b/racket/syndicate/broker/server.rkt
@ -39,6 +39,10 @@
         (until (retracted (advertise (websocket-message c server-id _)) #:meta-level 1)
           (assert (advertise (websocket-message server-id c _)) #:meta-level 1)

+           (on (asserted (websocket-peer-details server-id c _ _ $remote-addr $remote-port)
+                         #:meta-level 1)
+               (log-info "Connection ~v is from ~a:~a" c remote-addr remote-port))
+
           (on (message (timer-expired c _) #:meta-level 1)
               (arm-ping-timer!)
               (send-event 'ping))