146 |
*) |
*) |
147 |
|
|
148 |
let print_reliability ip = |
let print_reliability ip = |
149 |
lprintf "%s is %s" (Ip.to_string ip) |
lprintf "%s is %s\n" (Ip.to_string ip) |
150 |
(match ip_reliability ip with |
(match ip_reliability ip with |
151 |
Reliability_neutral -> "neutral" |
Reliability_neutral -> "neutral" |
152 |
| Reliability_reliable -> "reliable" |
| Reliability_reliable -> "reliable" |
153 |
| Reliability_suspicious 0 -> "has sent corrupted data" |
| Reliability_suspicious 0 -> "has sent corrupted data" |
154 |
| Reliability_suspicious s -> Printf.sprintf "suspicious of level %d" s); |
| Reliability_suspicious s -> Printf.sprintf "suspicious of level %d" s) |
|
lprint_newline () |
|
155 |
|
|
156 |
let bprint_reliability buf ip = |
let bprint_reliability buf ip = |
157 |
Printf.bprintf buf "%s is %s\n" (Ip.to_string ip) |
Printf.bprintf buf "%s is %s\n" (Ip.to_string ip) |