mldonkey-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyGlobals


From: mldonkey-commits
Subject: [Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyGlobals.ml
Date: Sun, 17 Jul 2005 12:13:02 -0400

Index: mldonkey/src/networks/donkey/donkeyGlobals.ml
diff -u mldonkey/src/networks/donkey/donkeyGlobals.ml:1.42 
mldonkey/src/networks/donkey/donkeyGlobals.ml:1.43
--- mldonkey/src/networks/donkey/donkeyGlobals.ml:1.42  Tue Jul  5 12:28:57 2005
+++ mldonkey/src/networks/donkey/donkeyGlobals.ml       Sun Jul 17 16:12:59 2005
@@ -293,13 +293,13 @@
             then
               begin
                 if !verbose_share then
-                  lprintf "New Edonkey file with changed filename %s to %s\n"
+                  lprintf_nl "EDK: New file with changed filename %s to %s"
                     file.file_diskname file_diskname;
                 file.file_diskname <- file_diskname;
               end
           else
             if !verbose_share then
-              lprintf "New Edonkey file with not changed different filename %s 
and %s\n"
+              lprintf_nl "EDK: New file with not changed different filename %s 
and %s"
                 file.file_diskname file_diskname;
         end;
       if Unix32.destroyed (file_fd file)
@@ -309,12 +309,12 @@
           file.file_file.impl_file_fd <-
             Unix32.create_diskfile file.file_diskname Unix32.rw_flag 0o666;
       if Unix32.destroyed (file_fd file) then
-          lprintf "New Edonkey file with %b && %b remaining destroyed fd %s\n"
+          lprintf_nl "New Edonkey file with %b && %b remaining destroyed fd %s"
             (not writable) (file.file_diskname = file_diskname) 
file.file_diskname;
       file
   with _ ->
-      if !verbose then
-        lprintf "New Edonkey file with md4: %s\n" (Md4.to_string md4);
+      if !verbose_share then
+        lprintf_nl "EDK: New file with md4: %s" (Md4.to_string md4);
       let file_exists = Unix32.file_exists file_diskname in
       
       let t = 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]