Handle "Ping" requests from peers in federated mode

2019-05-16 12:38:26 +01:00 · 2019-05-16 12:38:26 +01:00 · 22a517f1b5
parent 7ec9752f41
commit 22a517f1b5
1 changed files with 3 additions and 0 deletions
--- a/syndicate/distributed/federation.rkt
+++ b/syndicate/distributed/federation.rkt
@ -321,6 +321,9 @@
           (on (message (message-poa->server linkid (Del $localid $captures)))
               (relay-add-or-del localid captures -1 'present->absent Del))

+           (on (message (message-poa->server linkid (Ping)))
+               (send! (message-server->poa linkid (Pong))))
+
           (on (message (message-poa->server linkid (Msg $localid $captures)))
               (call-with-sub
                localid linkid