104 |
end else |
end else |
105 |
raise Not_found |
raise Not_found |
106 |
with _ -> |
with _ -> |
107 |
lprintf "Syntax error: %s" line; |
lprintf "Syntax error: %s\n" line |
|
lprint_newline () |
|
108 |
done; |
done; |
109 |
bl_empty (* not reached *) |
bl_empty (* not reached *) |
110 |
with End_of_file -> |
with End_of_file -> |
111 |
close_in cin; |
close_in cin; |
112 |
lprintf "IP blacklist: %d ranges loaded" !nranges; |
lprintf "IP blacklist: %d ranges loaded\n" !nranges; |
|
lprint_newline (); |
|
113 |
!bl |
!bl |
114 |
|
|
115 |
let load filename = |
let load filename = |