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

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       06/10/06 15:56:19

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

Log message:
        patch #5441

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1040&r2=1.1041
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/networks/bittorrent/bTClients.ml?cvsroot=mldonkey&r1=1.80&r2=1.81

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1040
retrieving revision 1.1041
diff -u -b -r1.1040 -r1.1041
--- distrib/ChangeLog   6 Oct 2006 15:55:37 -0000       1.1040
+++ distrib/ChangeLog   6 Oct 2006 15:56:19 -0000       1.1041
@@ -15,6 +15,7 @@
 =========
 
 2006/10/06
+5441: BT: Re-enable all trackers when file is resumed
 5440: HTML: Strip CR from multiline dllink input to fix FileTP filenames
 
 2006/10/03

Index: src/networks/bittorrent/bTClients.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/networks/bittorrent/bTClients.ml,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -b -r1.80 -r1.81
--- src/networks/bittorrent/bTClients.ml        1 Oct 2006 17:47:11 -0000       
1.80
+++ src/networks/bittorrent/bTClients.ml        6 Oct 2006 15:56:19 -0000       
1.81
@@ -1574,13 +1574,12 @@
           iter_upload sock c
   )
 
-
-(** Probably useless now
-*)
 let file_resume file =
-  (*useless with no saving of sources
-     resume_clients file;
-  *)
+  List.iter (fun t ->
+    match t.tracker_status with
+      Enabled -> ()
+    | _ -> t.tracker_status <- Enabled
+  ) file.file_trackers;
   (try get_sources_from_tracker file  with _ -> ())