/[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.36 by spiralvoice, Sun Jul 17 16:12:59 2005 UTC revision 1.37 by spiralvoice, Fri Jul 22 10:58:55 2005 UTC
# Line 952  let do_if_connected tcp_connection f = Line 952  let do_if_connected tcp_connection f =
952      Connection sock -> f sock      Connection sock -> f sock
953    | _ -> ()    | _ -> ()
954    
 let print_localtime () =  
 let t = Unix.localtime (Unix.time ()) 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  
   lprintf "%4d/%2d/%2d, %02d:%02d:%02d: " (tm_year+1900) (tm_mon+1) tm_mday tm_hour tm_min tm_sec  
   
   
955  let new_activity () = {  let new_activity () = {
956      activity_begin = BasicSocket.last_time ();      activity_begin = BasicSocket.last_time ();
957      activity_client_overnet_connections = 0;      activity_client_overnet_connections = 0;

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

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