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

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       07/02/15 12:03:57

Modified files:
        distrib        : ChangeLog 
        src/networks/bittorrent: bTInteractive.ml 

Log message:
        patch #5743

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1179&r2=1.1180
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/networks/bittorrent/bTInteractive.ml?cvsroot=mldonkey&r1=1.128&r2=1.129

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1179
retrieving revision 1.1180
diff -u -b -r1.1179 -r1.1180
--- distrib/ChangeLog   15 Feb 2007 12:02:22 -0000      1.1179
+++ distrib/ChangeLog   15 Feb 2007 12:03:57 -0000      1.1180
@@ -15,6 +15,7 @@
 =========
 
 2007/02/15
+5743: BT: Show shared torrents in upload list after commit (xergius)
 5744: EDK: Fix SecureUserIdent between machines with different endianness
 -------------------------------------------------------------------------------
 2007/02/11: version 2.8.3 = tag release-2-8-3

Index: src/networks/bittorrent/bTInteractive.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/networks/bittorrent/bTInteractive.ml,v
retrieving revision 1.128
retrieving revision 1.129
diff -u -b -r1.128 -r1.129
--- src/networks/bittorrent/bTInteractive.ml    11 Feb 2007 13:07:48 -0000      
1.128
+++ src/networks/bittorrent/bTInteractive.ml    15 Feb 2007 12:03:57 -0000      
1.129
@@ -149,6 +149,28 @@
               file.file_torrent_diskname new_torrent_diskname));
       file.file_torrent_diskname <- new_torrent_diskname;
 
+      (* update file_shared with new path to commited file *)
+      match file.file_shared with
+      | None -> ()
+      | Some old_impl ->
+       begin
+         let impl = {
+           impl_shared_update = 1;
+           impl_shared_fullname = file_disk_name file;
+           impl_shared_codedname = old_impl.impl_shared_codedname;
+           impl_shared_size = file_size file;
+           impl_shared_id = Md4.null;
+           impl_shared_num = 0;
+           impl_shared_uploaded = old_impl.impl_shared_uploaded;
+           impl_shared_ops = shared_ops;
+           impl_shared_val = file;
+           impl_shared_requests = old_impl.impl_shared_requests;
+           impl_shared_file = Some (as_file file);
+           impl_shared_servers = [];
+         } in
+         file.file_shared <- Some impl;
+          replace_shared old_impl impl;
+       end
     end 
 
 let op_file_print file o =