From 1a0ef154a421af60f6d57dfe861dacb844a7d142 Mon Sep 17 00:00:00 2001
From: Alex Auvolat <alex@adnab.me>
Date: Sat, 1 Sep 2018 16:01:48 +0200
Subject: Add peer id suffix to make sub networks

---
 lib/net/tcpconn.ex | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/net/tcpconn.ex')

diff --git a/lib/net/tcpconn.ex b/lib/net/tcpconn.ex
index 6fc4b1a..44669bb 100644
--- a/lib/net/tcpconn.ex
+++ b/lib/net/tcpconn.ex
@@ -39,6 +39,10 @@ defmodule SNet.TCPConn do
     challenge_sign = decode_pkt(pkt, cli_sess_pkey, sess_skey)
     :ok = Sign.verify_detached(challenge_sign, challenge, cli_pkey)
 
+    expected_suffix = Application.get_env(:shard, :peer_id_suffix)
+    len = byte_size(expected_suffix)
+    ^len = :binary.longest_common_suffix([cli_pkey, expected_suffix])
+
     # Connected
     :inet.setopts(socket, [active: true])
 
-- 
cgit v1.2.3