/[mldonkey]/mldonkey/src/networks/donkey/donkeyReliability.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyReliability.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by mldonkey, Wed Mar 17 23:42:32 2004 UTC revision 1.5 by spiralvoice, Mon Jun 20 18:38:49 2005 UTC
# Line 146  let block_reliability b = Line 146  let block_reliability b =
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)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26