Parent Directory | Revision Log | Patch
revision 1.18 by spiralvoice, Mon Oct 10 16:22:25 2005 UTC | revision 1.19 by spiralvoice, Sat Nov 19 17:19:45 2005 UTC | |
---|---|---|
# | Line 368 let check_ips ips = | Line 368 let check_ips ips = |
368 | with MatchedIP s -> | with MatchedIP s -> |
369 | incr blocked | incr blocked |
370 | done; | done; |
371 | Printf.printf "Blocked: %d\n" !blocked | Printf2.lprintf "Blocked: %d\n" !blocked |
372 | ||
373 | let _ = | let _ = |
374 | latency1 10 check_ips ips; | latency1 10 check_ips ips; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |