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

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

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

revision 1.4 by simon_mld, Tue Dec 2 22:56:42 2003 UTC revision 1.5 by spiralvoice, Mon Jun 20 18:38:49 2005 UTC
# Line 26  open Printf2 Line 26  open Printf2
26    
27  open BasicSocket  open BasicSocket
28  open CommonTypes  open CommonTypes
29    open CommonOptions
30  open CommonNetwork  open CommonNetwork
31  open Md4  open Md4
32  open GuiTypes  open GuiTypes
# Line 100  let register_client_hash ip hash = Line 101  let register_client_hash ip hash =
101          | _, _, _ ->          | _, _, _ ->
102              (* it switched to a hash that's used somewhere else,              (* it switched to a hash that's used somewhere else,
103                 that's certainly a theft. *)                 that's certainly a theft. *)
104              lprintf "That hash was already used somewhere else, that's certainly a theft!";              if !verbose then
105              lprint_newline ();                lprintf "That hash was already used somewhere else, that's certainly a theft!\n";
106              false              false
107  ;;  ;;
108  let clean_thieves () =  let clean_thieves () =

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