/[mldonkey]/mldonkey/src/networks/bittorrent/bTInteractive.ml
ViewVC logotype

Diff of /mldonkey/src/networks/bittorrent/bTInteractive.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57 by spiralvoice, Sun Sep 18 19:00:52 2005 UTC revision 1.58 by spiralvoice, Thu Oct 6 10:19:30 2005 UTC
# Line 88  let op_file_debug file = Line 88  let op_file_debug file =
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
# Line 332  let op_file_check file = Line 334  let op_file_check file =
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

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26