[Mldonkey-commits] mldonkey/src/utils/cdk zip.ml

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Branch:         
Changes by:     spiralvoice <address@hidden>    05/12/15 18:39:15

Modified files:
        src/utils/cdk  : zip.ml 

Log message:
        patch #4709

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/utils/cdk/zip.ml.diff?tr1=1.3&tr2=1.4&r1=text&r2=text

Patches:
Index: mldonkey/src/utils/cdk/zip.ml
diff -u mldonkey/src/utils/cdk/zip.ml:1.3 mldonkey/src/utils/cdk/zip.ml:1.4
--- mldonkey/src/utils/cdk/zip.ml:1.3   Wed Dec 14 21:17:47 2005
+++ mldonkey/src/utils/cdk/zip.ml       Thu Dec 15 18:39:15 2005
@@ -10,7 +10,7 @@
 (*                                                                     *)
 (***********************************************************************)
 
-(* $Id: zip.ml,v 1.3 2005/12/14 21:17:47 spiralvoice Exp $ *)
+(* $Id: zip.ml,v 1.4 2005/12/15 18:39:15 spiralvoice Exp $ *)
 
 (* Module [Zip]: reading and writing ZIP archives *)
 
@@ -143,7 +143,9 @@
   let magic = read4 ic in
   let disk_no = read2 ic in
   let cd_disk_no = read2 ic in
+  let _ = read2 ic in
   let cd_entries = read2 ic in
+  let _ = read4_int ic in
   let cd_offset = read4_int ic in
   let comment_len = read2 ic in
   let comment = readstring ic comment_len in
@@ -160,6 +162,8 @@
     let e = ref [] in
     for num_entry = 1 to cd_entries do
       let magic = read4 ic in
+      let _ = read2 ic in
+      let _ = read2 ic in
       let flags = read2 ic in
       let methd = read2 ic in
       let lastmod_time = read2 ic in
@@ -170,6 +174,9 @@
       let name_len = read2 ic in
       let extra_len = read2 ic in
       let comment_len = read2 ic in
+      let _ = read2 ic in
+      let _ = read2 ic in
+      let _ = read4 ic in
       let header_offset = read4_int ic in
       let name = readstring ic name_len in
       let extra = readstring ic extra_len in
@@ -231,6 +238,14 @@
     let ic = ifile.if_channel in
     seek_in ic e.file_offset;
     let magic = read4 ic in
+    let _ = read2 ic in
+    let _ = read2 ic in
+    let _ = read2 ic in
+    let _ = read2 ic in
+    let _ = read2 ic in
+    let _ = read4 ic in
+    let _ = read4_int ic in
+    let _ = read4_int ic in
     let filename_len = read2 ic in
     let extra_len = read2 ic in
     if magic <> 0x04034b50l then