[Mldonkey-commits] mldonkey distrib/ChangeLog src/networks/direct_...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       10/08/15 15:01:53

Modified files:
        distrib        : ChangeLog 
        src/networks/direct_connect: dcProtocol.ml 

Log message:
        patch #7274

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1457&r2=1.1458
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/networks/direct_connect/dcProtocol.ml?cvsroot=mldonkey&r1=1.12&r2=1.13

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1457
retrieving revision 1.1458
diff -u -b -r1.1457 -r1.1458
--- distrib/ChangeLog   8 Aug 2010 18:37:41 -0000       1.1457
+++ distrib/ChangeLog   15 Aug 2010 15:01:52 -0000      1.1458
@@ -14,6 +14,10 @@
 ChangeLog
 =========
 
+2010/08/15
+7274: DC: Increase message buffer size to fix communication with bots
+      (somedamnthing)
+
 2010/08/08
 7267: http proxy authentication support (ygrek)
 - new options http_proxy_login and http_proxy_password control authentication

Index: src/networks/direct_connect/dcProtocol.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/networks/direct_connect/dcProtocol.ml,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- src/networks/direct_connect/dcProtocol.ml   18 Jul 2010 10:59:20 -0000      
1.12
+++ src/networks/direct_connect/dcProtocol.ml   15 Aug 2010 15:01:53 -0000      
1.13
@@ -388,7 +388,7 @@
       }
   let parse m =
     let l = String.length m in
-    if l > 8192 then begin
+    if l > 75000 then begin
       lprintf_nl "Overlength <Message>: (%s...%d chars)" (shorten_string m 
100) l;
       raise Not_found
     end else begin
@@ -880,7 +880,7 @@
     message : string;
       }
     let parse s = 
-    if ((String.length s) > 2048) then begin
+    if ((String.length s) > 75000) then begin
       lprintf_nl "Overlength $To: (%s)" (shorten_string s 50);
           raise Not_found
     end else begin