[Mldonkey-commits] Changes to mldonkey/src/networks/bittorrent/bTComplexOptions.ml

[mldonkey-commits]

Index: mldonkey/src/networks/bittorrent/bTComplexOptions.ml
diff -u mldonkey/src/networks/bittorrent/bTComplexOptions.ml:1.21 
mldonkey/src/networks/bittorrent/bTComplexOptions.ml:1.22
--- mldonkey/src/networks/bittorrent/bTComplexOptions.ml:1.21   Sun Jul 17 
16:11:12 2005
+++ mldonkey/src/networks/bittorrent/bTComplexOptions.ml        Fri Jul 22 
14:32:12 2005
@@ -32,6 +32,11 @@
 open BTOptions
 open BTGlobals
 
+(* prints a new logline with date, module and starts newline *)
+let lprintf_nl () =
+  lprintf "%s[BT] "
+    (log_time ()); lprintf_nl2
+
 module ClientOption = struct
     
     let value_to_client file v = 
@@ -160,7 +165,7 @@
         (get_value  "file_sources" (
           value_to_list (ClientOption.of_value file)))
     with e ->
-        lprintf_nl "[BT]: Exception %s while loading sources"
+        lprintf_nl () "Exception %s while loading sources"
           (Printexc2.to_string e);
   );
 
@@ -207,7 +212,7 @@
         Int64Swarmer.swarmer_to_value swarmer assocs
   with
     e ->
-      lprintf_nl "BTComplexOptions: exception %s in file_to_value"
+      lprintf_nl () "exception %s in file_to_value"
         (Printexc2.to_string e); raise e
       
 let old_files =