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