/[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.51 by spiralvoice, Wed Aug 31 23:54:02 2005 UTC revision 1.52 by spiralvoice, Thu Sep 1 16:50:59 2005 UTC
# Line 185  let connection_next_try cc = Line 185  let connection_next_try cc =
185  let connection_can_try cc =  let connection_can_try cc =
186    connection_next_try cc < last_time ()    connection_next_try cc < last_time ()
187    
188    let connection_was_tried cc =
189      cc.control_last_try > 0
190    
191  let print_control c =  let print_control c =
192    lprintf_nl "Connection Control: ok = %d seconds ago, state = %d, last tried = %d seconds ago, delay = %d, next in %d seconds"    lprintf_nl "Connection Control: ok = %d seconds ago, state = %d, last tried = %d seconds ago, delay = %d, next in %d seconds"
193      (last_time () - c.control_last_ok) c.control_state (last_time () - c.control_last_try) c.control_min_reask (connection_next_try c - last_time ())      (last_time () - c.control_last_ok) c.control_state (last_time () - c.control_last_try) c.control_min_reask (connection_next_try c - last_time ())

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

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