mldonkey-commits
[Top][All Lists]
Advanced

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

[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonInteracti


From: mldonkey-commits
Subject: [Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonInteractive.ml
Date: Sun, 07 Aug 2005 08:57:23 -0400

Index: mldonkey/src/daemon/common/commonInteractive.ml
diff -u mldonkey/src/daemon/common/commonInteractive.ml:1.43 
mldonkey/src/daemon/common/commonInteractive.ml:1.44
--- mldonkey/src/daemon/common/commonInteractive.ml:1.43        Sun Aug  7 
10:57:34 2005
+++ mldonkey/src/daemon/common/commonInteractive.ml     Sun Aug  7 12:57:21 2005
@@ -144,7 +144,7 @@
                       incoming.shdir_dirname incoming.shdir_priority
                       best_name new_name);
               with e ->
-                  lprintf_nl "[cInt]Exception %s while trying to share 
commited file"
+                  lprintf_nl "[cInt] Exception %s while trying to share 
commited file"
                     (Printexc2.to_string e);
             end;
 
@@ -163,10 +163,10 @@
                   files =:= List2.removeq file !!files;
 
                 with e ->
-                    lprintf_nl "[cInt]Exception %s in file_commit secondaries" 
(Printexc2.to_string e);
+                    lprintf_nl "[cInt] Exception %s in file_commit 
secondaries" (Printexc2.to_string e);
             ) secondary_files
           with e ->
-              lprintf_nl "[cInt]Exception in file_commit: %s" 
(Printexc2.to_string e))
+              lprintf_nl "[cInt] Exception in file_commit: %s" 
(Printexc2.to_string e))
     | _ -> assert false
 
 let file_cancel file =
@@ -182,7 +182,7 @@
             impl.impl_file_ops.op_file_cancel impl.impl_file_val;
             files =:= List2.removeq file !!files;
           with e ->
-              lprintf_nl "[cInt]Exception %s in file_cancel" 
(Printexc2.to_string e);
+              lprintf_nl "[cInt] Exception %s in file_cancel" 
(Printexc2.to_string e);
       ) subfiles;
       (try
           let fd = file_fd file in
@@ -193,7 +193,7 @@
             (Printexc2.to_string e); );
       Unix32.destroy (file_fd file);
   with e ->
-      lprintf_nl "[cInt]Exception in file_cancel: %s" (Printexc2.to_string e)
+      lprintf_nl "[cInt] Exception in file_cancel: %s" (Printexc2.to_string e)
 
 let time_to_string time =
   let days = time / 60 / 60 / 24 in
@@ -263,7 +263,7 @@
         ignore (CommonShared.new_shared "completed" 0 (
             file_best_name file ) file_name);
         (try mail_for_completed_file file with e ->
-              lprintf_nl "[cInt]Exception %s in sendmail" (Printexc2.to_string 
e);
+              lprintf_nl "[cInt] Exception %s in sendmail" 
(Printexc2.to_string e);
               );
         if !!CommonOptions.chat_warning_for_downloaded then
           chat_for_completed_file file;
@@ -279,7 +279,7 @@
           end
       end
   with e ->
-      lprintf_nl "[cInt]Exception in file_completed: %s" (Printexc2.to_string 
e)
+      lprintf_nl "[cInt] Exception in file_completed: %s" (Printexc2.to_string 
e)
 
 let file_add impl state =
   try
@@ -301,7 +301,7 @@
         update_file_state impl state
       end
   with e ->
-      lprintf_nl "[cInt]Exception in file_add: %s" (Printexc2.to_string e)
+      lprintf_nl "[cInt] Exception in file_add: %s" (Printexc2.to_string e)
 
 let server_remove server =
   try
@@ -313,7 +313,7 @@
         servers =:= Intmap.remove (server_num server) !!servers;
       end
   with e ->
-      lprintf_nl "[cInt]Exception in server_remove: %s" (Printexc2.to_string e)
+      lprintf_nl "[cInt] Exception in server_remove: %s" (Printexc2.to_string 
e)
 
 let server_add impl =
   let server = as_server impl in
@@ -352,7 +352,7 @@
       end
 
   with e ->
-      lprintf_nl "[cInt]Exception in friend_remove: %s" (Printexc2.to_string e)
+      lprintf_nl "[cInt] Exception in friend_remove: %s" (Printexc2.to_string 
e)
 
 let contact_add c =
   let impl = as_client_impl c in
@@ -373,7 +373,7 @@
         impl.impl_client_ops.op_client_clear_files impl.impl_client_val
       end
   with e ->
-      lprintf_nl "[cInt]Exception in contact_remove: %s" (Printexc2.to_string 
e)
+      lprintf_nl "[cInt] Exception in contact_remove: %s" (Printexc2.to_string 
e)
 
 
 let time_of_sec sec =




reply via email to

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