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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/guiDecoding.ml
diff -u mldonkey/src/daemon/common/guiDecoding.ml:1.42 
mldonkey/src/daemon/common/guiDecoding.ml:1.43
--- mldonkey/src/daemon/common/guiDecoding.ml:1.42      Sun Sep 18 19:00:51 2005
+++ mldonkey/src/daemon/common/guiDecoding.ml   Sat Nov 12 22:53:51 2005
@@ -520,6 +520,16 @@
     else
       get_list get_uid s pos
   in
+  let sub_files, pos =
+    if proto > 35 then
+      get_list (fun s pos ->
+          let name, pos = get_string s pos in
+          let size, pos = get_int64 s pos, pos+8 in
+          (name, size), pos
+      ) s pos
+    else [], pos
+  in
+
   (*
   assert (num = file_info_test.file_num);
   assert (net = file_info_test.file_network);
@@ -564,6 +574,7 @@
     file_last_seen = last_seen;
     file_priority = priority;
     file_uids = uids;
+    file_sub_files = sub_files;
   }, pos
 
 let get_host_state proto s pos =