/[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.8 by spiralvoice, Thu Jul 7 00:25:46 2005 UTC revision 1.9 by spiralvoice, Fri Jul 22 10:58:55 2005 UTC
# Line 1  Line 1 
1    
2  open Printf2  open Printf2
3    
4    let lprintf_nl () =
5      lprintf "%s[IPblock]: "
6      (log_time ()); lprintf_nl2
7    
8  (* range name, ip min, ip max (inclusive) *)  (* range name, ip min, ip max (inclusive) *)
9  type blocking_range = {  type blocking_range = {
10    blocking_description: string;    blocking_description: string;
# Line 104  let load_merge bl filename = Line 108  let load_merge bl filename =
108              end else              end else
109                raise Not_found                raise Not_found
110          with _ ->          with _ ->
111            lprintf "Syntax error while loading IP blocklist in line %s\n" line            lprintf_nl () "Syntax error while loading IP blocklist in line %s" line
112      done;      done;
113      bl_empty (* not reached *)      bl_empty (* not reached *)
114    with End_of_file ->    with End_of_file ->
115      close_in cin;      close_in cin;
116      lprintf "IP blacklist: %d ranges loaded\n" !nranges;      lprintf_nl () "%d ranges loaded" !nranges;
117      !bl      !bl
118    
119  let load filename =  let load filename =

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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