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

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

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

revision 1.13 by spiralvoice, Sat Aug 6 19:46:34 2005 UTC revision 1.14 by spiralvoice, Mon Aug 8 18:20:43 2005 UTC
# Line 253  let print_list buf bl = Line 253  let print_list buf bl =
253    
254  let bl = ref BL_Empty  let bl = ref BL_Empty
255    
256    let ip_blocked ip =
257      match match_ip !bl ip with
258        None -> false
259      | Some br -> true
260    
261  (*  (*
262  open Benchmark  open Benchmark
263    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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