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

P2P: Do not send unauthenticated Advertise msgs

Browse Source
This commit is contained in:
Vincent Bernardoff 2016-12-01 16:37:38 +01:00
parent 6a1265255f
commit c2249056d7
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/node/net/p2p.ml
View File

@ -1249,30 +1249,30 @@ module Make (P: PARAMS) = struct
(Format.asprintf "(%a) unblacklister" pp_gid my_gid) (Format.asprintf "(%a) unblacklister" pp_gid my_gid)
unblock cancel in unblock cancel in
let discovery_answerer = let discovery_answerer =
let buf = MBytes.create 0x100_000 in let callback addr port socket =
match config.discovery_port with
| None -> Lwt.return_unit
| Some disco_port ->
let answerer () =
discovery_answerer
my_gid disco_port cancelation @@ fun addr port socket ->
(* do not reply to ourselves or connected peers *) (* do not reply to ourselves or connected peers *)
if not (PeerMap.mem_by_point (addr, port) !connected) if not (PeerMap.mem_by_point (addr, port) !connected)
&& (try match PeerMap.gid_by_point (addr, port) !known_peers with && (try match PeerMap.gid_by_point (addr, port) !known_peers with
| Some gid -> not (PeerMap.mem_by_gid gid !connected) | Some gid -> not (PeerMap.mem_by_gid gid !connected) && not (my_gid = gid)
&& not (my_gid = gid) | None -> true
| None -> true with Not_found -> true) then with Not_found -> true)
(* either reply by a list of peer or connect if we need peers *) then
(* connect if we need peers *)
if PeerMap.cardinal !connected >= limits.expected_connections then begin if PeerMap.cardinal !connected >= limits.expected_connections then begin
Lwt_pipe.push events (Peers [ addr, port ]) >>= fun () -> Lwt_pipe.push events (Peers [ addr, port ]) >>= fun () ->
send_msg socket buf (Advertise (bootstrap_peers ())) >>= fun _ ->
LU.close socket LU.close socket
end else end else
Lwt_pipe.push events (Contact ((addr, port), socket)) Lwt_pipe.push events (Contact ((addr, port), socket))
else LU.close socket in else LU.close socket
in
match config.discovery_port with
| None -> Lwt.return_unit
| Some disco_port ->
Lwt_utils.worker Lwt_utils.worker
(Format.asprintf "(%a) discovery answerer" pp_gid my_gid) (Format.asprintf "(%a) discovery answerer" pp_gid my_gid)
answerer cancel in (fun () -> discovery_answerer my_gid disco_port cancelation callback)
cancel
in
let discovery_sender = let discovery_sender =
match config.incoming_port, config.discovery_port with match config.incoming_port, config.discovery_port with
| Some inco_port, Some disco_port -> | Some inco_port, Some disco_port ->