391 |
[Proto.options_section_name; "md4"] |
[Proto.options_section_name; "md4"] |
392 |
"The MD4 of the Overnet client" Md4.option (Md4.random ()) |
"The MD4 of the Overnet client" Md4.option (Md4.random ()) |
393 |
|
|
394 |
|
let overnet_update_nodes = define_option overnet_section |
395 |
|
[Proto.options_section_name; "update_nodes"] |
396 |
|
"Set this option to false if you don't want to receive new Overnet peers" |
397 |
|
bool_option true |
398 |
|
|
399 |
let gui_overnet_options_panel = |
let gui_overnet_options_panel = |
400 |
(* |
(* |
401 |
define_option overnet_section ["gui_overnet_options_panel"] |
define_option overnet_section ["gui_overnet_options_panel"] |
701 |
p.peer_last_send <- last_time (); |
p.peer_last_send <- last_time (); |
702 |
udp_send_direct p.peer_ip p.peer_port msg |
udp_send_direct p.peer_ip p.peer_port msg |
703 |
|
|
704 |
let bootstrap ip port = |
let bootstrap ip port = |
705 |
if Ip.valid ip && Ip.reachable ip && port <> 0 then begin |
if !!overnet_update_nodes && Ip.valid ip && Ip.reachable ip && port <> 0 then begin |
706 |
LimitedList.add !!boot_peers (ip,port); |
LimitedList.add !!boot_peers (ip,port); |
707 |
boot_peers_copy := (ip,port) :: !boot_peers_copy |
boot_peers_copy := (ip,port) :: !boot_peers_copy |
708 |
end |
end |