[Mldonkey-commits] Changes to mldonkey/src/networks/bittorrent/bTInteractive.ml

[mldonkey-commits]

Index: mldonkey/src/networks/bittorrent/bTInteractive.ml
diff -u mldonkey/src/networks/bittorrent/bTInteractive.ml:1.54 
mldonkey/src/networks/bittorrent/bTInteractive.ml:1.55
--- mldonkey/src/networks/bittorrent/bTInteractive.ml:1.54      Thu Sep  1 
00:04:12 2005
+++ mldonkey/src/networks/bittorrent/bTInteractive.ml   Tue Sep  6 11:29:11 2005
@@ -942,6 +942,10 @@
   network.op_network_search <- (fun ss buf -> ());
   (* and Network.recover_temp *)
   network.op_network_recover_temp <- (fun s -> ());
+  network.op_network_clean_exit <- (fun s ->
+    List.iter (fun file -> BTClients.file_stop file) !current_files;
+    List.for_all (fun file -> not file.file_tracker_connected) !current_files;
+  );
 
   client_ops.op_client_info <- op_client_info;
   client_ops.op_client_connect <- op_client_connect;