[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonGlobals.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonGlobals.ml
diff -u mldonkey/src/daemon/common/commonGlobals.ml:1.51 
mldonkey/src/daemon/common/commonGlobals.ml:1.52
--- mldonkey/src/daemon/common/commonGlobals.ml:1.51    Wed Aug 31 23:54:02 2005
+++ mldonkey/src/daemon/common/commonGlobals.ml Thu Sep  1 16:50:59 2005
@@ -185,6 +185,9 @@
 let connection_can_try cc =
   connection_next_try cc < last_time ()
 
+let connection_was_tried cc =
+  cc.control_last_try > 0
+
 let print_control c =
   lprintf_nl "Connection Control: ok = %d seconds ago, state = %d, last tried 
= %d seconds ago, delay = %d, next in %d seconds"
     (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 ())