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

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

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

revision 1.35 by spiralvoice, Fri Sep 2 23:48:54 2005 UTC revision 1.36 by spiralvoice, Sat Sep 17 17:59:47 2005 UTC
# Line 606  let force_add_server ip port = Line 606  let force_add_server ip port =
606        s                s        
607                
608  let check_add_server ip port =  let check_add_server ip port =
609    if Ip.valid ip && Ip.reachable ip &&    if Ip.usable ip &&
610      not (is_black_address ip port) && port <> 4662 then      not (is_black_address ip port) && port <> 4662 then
611      force_add_server ip port      force_add_server ip port
612    else raise Not_found    else raise Not_found
613    
614  let safe_add_server ip port =  let safe_add_server ip port =
615    if Ip.valid ip && Ip.reachable ip &&    if Ip.usable ip &&
616      not (is_black_address ip port) && port <> 4662 then      not (is_black_address ip port) && port <> 4662 then
617      try      try
618        ignore (DonkeyGlobals.find_server ip port)        ignore (DonkeyGlobals.find_server ip port)

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

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