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

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       08/01/08 21:31:07

Modified files:
        distrib        : ChangeLog 
        src/networks/fileTP: fileTPInteractive.ml 

Log message:
        patch #6367

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1344&r2=1.1345
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/networks/fileTP/fileTPInteractive.ml?cvsroot=mldonkey&r1=1.60&r2=1.61

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1344
retrieving revision 1.1345
diff -u -b -r1.1344 -r1.1345
--- distrib/ChangeLog   7 Jan 2008 20:01:29 -0000       1.1344
+++ distrib/ChangeLog   8 Jan 2008 21:31:07 -0000       1.1345
@@ -14,6 +14,9 @@
 ChangeLog
 =========
 
+2008/01/08
+6367: FileTP: Fix bug when starting downloads > 4GB via dllink
+
 2008/01/07
 6364: MinGW: Fix broken share priorities (thx to vbnuy6)
 6365: HTML: Use option max_name_len in upstats for unhashed files

Index: src/networks/fileTP/fileTPInteractive.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/networks/fileTP/fileTPInteractive.ml,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -b -r1.60 -r1.61
--- src/networks/fileTP/fileTPInteractive.ml    3 Aug 2007 22:12:59 -0000       
1.60
+++ src/networks/fileTP/fileTPInteractive.ml    8 Jan 2008 21:31:07 -0000       
1.61
@@ -276,7 +276,7 @@
   ignore (Str.search_forward r text 0);
   let a = Str.group_beginning 1 in
   let b = Str.group_end 1 in
-  int_of_string (String.sub text a (b - a))
+  Int64.of_string (String.sub text a (b - a))
 
 let get_regexp_string text r =
   ignore (Str.search_forward r text 0);
@@ -297,7 +297,7 @@
     if (String2.check_prefix real_url "http://";) then (
       let length_regexp = "Content-Length: \\(.*\\)" in
        try let length = get_regexp_int url (Str.regexp length_regexp) in
-         if (length > 0) then begin
+         if (length > 0L) then begin
            download_file real_url "" user group; "started FileTP download", 
true
          end
          else "can not parse Content-Length", false