Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |