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

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

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

revision 1.26 by spiralvoice, Fri Jul 22 10:58:55 2005 UTC revision 1.27 by spiralvoice, Fri Jul 22 14:32:12 2005 UTC
# Line 37  open DonkeyComplexOptions Line 37  open DonkeyComplexOptions
37  open DonkeyGlobals  open DonkeyGlobals
38    
39  let lprintf_nl () =  let lprintf_nl () =
40    lprintf "%s[EDK]: "    lprintf "%s[EDK] "
41    (log_time ()); lprintf_nl2      (log_time ()); lprintf_nl2
42    
43  let new_shared_files = ref []  let new_shared_files = ref []
44    
# Line 144  let new_file_to_share sh codedname old_i Line 144  let new_file_to_share sh codedname old_i
144  lprint_newline ());  lprint_newline ());
145    *)    *)
146      if !verbose_share then      if !verbose_share then
147        lprintf_nl () "EDK: Sharing %s" sh.sh_name;        lprintf_nl () "Sharing %s" sh.sh_name;
148    with e ->    with e ->
149        lprintf_nl () "EDK: Exception %s while sharing %s" (Printexc2.to_string e)        lprintf_nl () "Exception %s while sharing %s" (Printexc2.to_string e)
150        sh.sh_name        sh.sh_name
151                
152        

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

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