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 ()) |