balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

P2p: do not send peer swap requests in private mode

Browse Source
This commit is contained in:
OCamlPro-Iguernlala 2018-05-21 11:25:54 +02:00 committed by Grégoire Henry
parent 01648e7611
commit c1ccea3501
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/lib_p2p/p2p_pool.ml
View File

@ -1023,8 +1023,7 @@ let accept pool fd point =
let send_swap_request pool = let send_swap_request pool =
match Connection.random pool with match Connection.random pool with
| None -> () | Some recipient when not pool.config.private_mode -> begin
| Some recipient ->
let recipient_peer_id = (Connection.info recipient).peer_id in let recipient_peer_id = (Connection.info recipient).peer_id in
match Connection.random_lowid ~different_than:recipient pool with match Connection.random_lowid ~different_than:recipient pool with
| None -> () | None -> ()
@ -1034,6 +1033,8 @@ let send_swap_request pool =
Some (Time.now (), proposed_peer_id) ; Some (Time.now (), proposed_peer_id) ;
ignore (P2p_socket.write_now recipient.conn ignore (P2p_socket.write_now recipient.conn
(Swap_request (proposed_point, proposed_peer_id))) (Swap_request (proposed_point, proposed_peer_id)))
end
| Some _ | None -> ()
(***************************************************************************) (***************************************************************************)

3
src/lib_p2p/p2p_pool.mli
View File

@ -168,6 +168,9 @@ val config : _ pool -> config
creation. *) creation. *)
val send_swap_request: ('msg, 'peer_meta,'conn_meta) pool -> unit val send_swap_request: ('msg, 'peer_meta,'conn_meta) pool -> unit
(** [send_swap_request pool] given two connected peers pi and pj (pi
<> pj), suggest swap with pi for the peer pj. This behaviour is
disabled in private mode *)
(** {2 Pool events} *) (** {2 Pool events} *)