/[mldonkey]/mldonkey/src/daemon/common/commonGlobals.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonGlobals.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35 by spiralvoice, Thu Jul 14 14:02:27 2005 UTC revision 1.36 by spiralvoice, Sun Jul 17 16:12:59 2005 UTC
# Line 954  let do_if_connected tcp_connection f = Line 954  let do_if_connected tcp_connection f =
954    
955  let print_localtime () =  let print_localtime () =
956  let t = Unix.localtime (Unix.time ()) in  let t = Unix.localtime (Unix.time ()) in
957    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    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
958    lprintf_nl " on localtime: %2d/%2d, %02d:%02d:%02d" tm_mday (tm_mon+1) tm_hour tm_min tm_sec    lprintf "%4d/%2d/%2d, %02d:%02d:%02d: " (tm_year+1900) (tm_mon+1) tm_mday tm_hour tm_min tm_sec
959    
960    
961  let new_activity () = {  let new_activity () = {

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26