[Mldonkey-commits] mldonkey distrib/ChangeLog src/daemon/common/co...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       06/08/11 08:46:42

Modified files:
        distrib        : ChangeLog 
        src/daemon/common: commonOptions.ml 

Log message:
        patch #5295

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.950&r2=1.951
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/common/commonOptions.ml?cvsroot=mldonkey&r1=1.167&r2=1.168

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.950
retrieving revision 1.951
diff -u -b -r1.950 -r1.951
--- distrib/ChangeLog   10 Aug 2006 17:41:19 -0000      1.950
+++ distrib/ChangeLog   11 Aug 2006 08:46:42 -0000      1.951
@@ -14,6 +14,9 @@
 ChangeLog
 =========
 
+2006/08/11
+5295: Hard-coded minimum of 600s for min_reask_delay
+
 2006/08/10
 5294: Clean logging, small "if .. then true else false" function rewrites
 

Index: src/daemon/common/commonOptions.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/common/commonOptions.ml,v
retrieving revision 1.167
retrieving revision 1.168
diff -u -b -r1.167 -r1.168
--- src/daemon/common/commonOptions.ml  8 Aug 2006 23:55:28 -0000       1.167
+++ src/daemon/common/commonOptions.ml  11 Aug 2006 08:46:42 -0000      1.168
@@ -1665,6 +1665,9 @@
     end;
     calc_real_max_indirect_connections ()
   );
+  option_hook min_reask_delay (fun _ ->
+    if !!min_reask_delay < 600 then min_reask_delay =:= 600
+  );
   option_hook global_login (fun _ ->
       let len = String.length !!global_login in
       let prefix = "mldonkey_" in