1 |
|
|
2 |
open Printf2 |
open Printf2 |
3 |
|
open Ip |
4 |
|
|
5 |
(* prints a new logline with date, module and starts newline *) |
(* prints a new logline with date, module and starts newline *) |
6 |
let lprintf_nl () = |
let lprintf_nl () = |
77 |
Some br |
Some br |
78 |
|
|
79 |
let match_ip bl ip = |
let match_ip bl ip = |
80 |
let m = match_ip_aux bl ip in |
let m = if Ip.local_ip ip then None else |
81 |
|
match_ip_aux bl ip in |
82 |
(match m with |
(match m with |
83 |
Some br -> |
Some br -> |
84 |
br.blocking_hits <- br.blocking_hits + 1 |
br.blocking_hits <- br.blocking_hits + 1 |