/[mldonkey]/mldonkey/src/utils/net/ip.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/ip.ml

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

revision 1.15 by spiralvoice, Thu Sep 1 16:44:29 2005 UTC revision 1.16 by spiralvoice, Sat Sep 17 17:59:47 2005 UTC
# Line 96  let local_ip ip = Line 96  let local_ip ip =
96  let reachable ip =  let reachable ip =
97    !allow_local_network || not (local_ip ip)    !allow_local_network || not (local_ip ip)
98    
99    let usable ip =
100      reachable ip && valid ip
101    
102  let rec matches ((a4,a3,a2,a1) as a) ips =  let rec matches ((a4,a3,a2,a1) as a) ips =
103    match ips with    match ips with
104      [] -> false      [] -> false

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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