88 |
Buffer.contents buf |
Buffer.contents buf |
89 |
|
|
90 |
let op_file_commit file new_name = |
let op_file_commit file new_name = |
91 |
|
Int64Swarmer.remove_swarmer file.file_swarmer; |
92 |
|
file.file_swarmer <- None; |
93 |
if file_state file <> FileShared then |
if file_state file <> FileShared then |
94 |
begin |
begin |
95 |
if not (List.mem (file.file_name, file_size file) !!old_files) then |
if not (List.mem (file.file_name, file_size file) !!old_files) then |
334 |
Int64Swarmer.verify_all_chunks swarmer true |
Int64Swarmer.verify_all_chunks swarmer true |
335 |
|
|
336 |
let op_file_cancel file = |
let op_file_cancel file = |
337 |
|
Int64Swarmer.remove_swarmer file.file_swarmer; |
338 |
file.file_swarmer <- None; |
file.file_swarmer <- None; |
339 |
BTClients.file_stop file; |
BTClients.file_stop file; |
340 |
remove_file file; |
remove_file file; |
341 |
BTClients.disconnect_clients file; |
BTClients.disconnect_clients file; |
342 |
Sys.remove file.file_torrent_diskname |
if Sys.file_exists file.file_torrent_diskname then Sys.remove file.file_torrent_diskname |
343 |
|
|
344 |
let op_ft_cancel ft = |
let op_ft_cancel ft = |
345 |
Hashtbl.remove ft_by_num ft.ft_id |
Hashtbl.remove ft_by_num ft.ft_id |