[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonGlobals.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonGlobals.ml
diff -u mldonkey/src/daemon/common/commonGlobals.ml:1.35 
mldonkey/src/daemon/common/commonGlobals.ml:1.36
--- mldonkey/src/daemon/common/commonGlobals.ml:1.35    Thu Jul 14 14:02:27 2005
+++ mldonkey/src/daemon/common/commonGlobals.ml Sun Jul 17 16:12:59 2005
@@ -954,8 +954,8 @@
 
 let print_localtime () =
 let t = Unix.localtime (Unix.time ()) in
-  let { Unix.tm_mon = tm_mon; Unix.tm_mday = tm_mday; Unix.tm_hour = tm_hour; 
Unix.tm_min = tm_min; Unix.tm_sec = tm_sec } = t in
-  lprintf_nl " on localtime: %2d/%2d, %02d:%02d:%02d" tm_mday (tm_mon+1) 
tm_hour tm_min tm_sec
+  let { Unix.tm_year = tm_year; Unix.tm_mon = tm_mon; Unix.tm_mday = tm_mday; 
Unix.tm_hour = tm_hour; Unix.tm_min = tm_min; Unix.tm_sec = tm_sec } = t in
+  lprintf "%4d/%2d/%2d, %02d:%02d:%02d: " (tm_year+1900) (tm_mon+1) tm_mday 
tm_hour tm_min tm_sec
 
 
 let new_activity () = {