942 |
network.op_network_search <- (fun ss buf -> ()); |
network.op_network_search <- (fun ss buf -> ()); |
943 |
(* and Network.recover_temp *) |
(* and Network.recover_temp *) |
944 |
network.op_network_recover_temp <- (fun s -> ()); |
network.op_network_recover_temp <- (fun s -> ()); |
945 |
|
network.op_network_clean_exit <- (fun s -> |
946 |
|
List.iter (fun file -> BTClients.file_stop file) !current_files; |
947 |
|
List.for_all (fun file -> not file.file_tracker_connected) !current_files; |
948 |
|
); |
949 |
|
|
950 |
client_ops.op_client_info <- op_client_info; |
client_ops.op_client_info <- op_client_info; |
951 |
client_ops.op_client_connect <- op_client_connect; |
client_ops.op_client_connect <- op_client_connect; |