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

[mldonkey-commits]

Index: mldonkey/src/networks/bittorrent/bTGlobals.ml
diff -u mldonkey/src/networks/bittorrent/bTGlobals.ml:1.34 
mldonkey/src/networks/bittorrent/bTGlobals.ml:1.35
--- mldonkey/src/networks/bittorrent/bTGlobals.ml:1.34  Sun Jul 17 16:12:59 2005
+++ mldonkey/src/networks/bittorrent/bTGlobals.ml       Fri Jul 22 14:32:12 2005
@@ -117,6 +117,11 @@
 let max_range_len = Int64.of_int (1 lsl 14)
 let max_request_len = Int64.of_int (1 lsl 16)
 
+(* prints a new logline with date, module and starts newline *)
+let lprintf_nl () =
+  lprintf "%s[BT] "
+    (log_time ()); lprintf_nl2
+      
 let check_if_interesting file c =
 
   if not c.client_alrd_sent_notinterested then
@@ -158,7 +163,7 @@
   ) trackers
 
 let create_temp_file file_temp file_files =
-  if !CommonOptions.verbose_files then lprintf_nl "create_temp_file %s" 
file_temp;
+  if !CommonOptions.verbose_files then lprintf_nl () "create_temp_file %s" 
file_temp;
   let file_fd =
     if file_files <> [] then
       Unix32.create_multifile file_temp