/[mldonkey]/mldonkey/src/networks/donkey/donkeyOvernet.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyOvernet.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by spiralvoice, Mon Jun 20 18:45:27 2005 UTC revision 1.30 by spiralvoice, Mon Jun 20 18:58:31 2005 UTC
# Line 391  let overnet_md4 = define_option overnet_ Line 391  let overnet_md4 = define_option overnet_
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"]
# Line 696  let udp_send p msg = Line 701  let udp_send p msg =
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

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26