[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyComplexOptions.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyComplexOptions.ml
diff -u mldonkey/src/networks/donkey/donkeyComplexOptions.ml:1.31 
mldonkey/src/networks/donkey/donkeyComplexOptions.ml:1.32
--- mldonkey/src/networks/donkey/donkeyComplexOptions.ml:1.31   Sun Jul 17 
16:11:12 2005
+++ mldonkey/src/networks/donkey/donkeyComplexOptions.ml        Fri Jul 22 
10:58:55 2005
@@ -60,6 +60,10 @@
 
 *)
 
+let lprintf_nl () =
+  lprintf "%s[EDK]: "
+  (log_time ()); lprintf_nl2
+
 let create_online_sig () =
   
   let most_users = ref Int64.zero in
@@ -277,7 +281,7 @@
         get_value "file_diskname" value_to_string
       with _ ->
         let filename = Filename.concat !!temp_directory file_md4 in
-        lprintf "geting file_diskname from ini failed, testing for 
ed2k-temp-file %s .\n" filename;
+          lprintf_nl () "getting file_diskname from ini failed, testing for 
ed2k-temp-file %s" filename;
         if Sys.file_exists filename then
           filename
         else
@@ -287,7 +291,7 @@
                 !!temp_directory
                 ( string_of_uid ( Ed2k (Md4.of_string file_md4) ) )
             in
-            lprintf "geting file_diskname from ini failed, testing for 
ed2k-temp-file %s .\n"
+            lprintf_nl () "geting file_diskname from ini failed, testing for 
ed2k-temp-file %s"
               filename;
             if Sys.file_exists filename then
               filename
@@ -299,9 +303,9 @@
     in
     if not (Sys.file_exists filename) then
       (* I think we should die here, to prevent any corruption. *)
-      lprintf "ERROR ED2K-TEMP-FILE %s DOES NOT EXIST, THIS WILL PERHAPS LEAD 
TO CORRUPTION IN THAT DOWNLOAD!!!!!!!!!!!!!!!\n"
+      lprintf_nl () "ERROR ED2K-TEMP-FILE %s DOES NOT EXIST, THIS WILL PERHAPS 
LEAD TO CORRUPTION IN THAT DOWNLOAD!"
         filename;
-    if !verbose then lprintf "ed2k-temp-file %s used.\n" filename;
+    if !verbose then lprintf_nl () "ed2k-temp-file %s used." filename;
     filename
   in
 
@@ -629,7 +633,7 @@
 let config_files_loaded = ref false  
       
 let load _ =
-  if !verbose then lprintf "EDK: Loading shared files\n"; 
+  if !verbose then lprintf_nl () "Loading shared files";
   (try
       Options.load shared_files_ini;
       Options.load stats_ini;