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; |