/[mldonkey]/mldonkey/src/networks/donkey/donkeyOneFile.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyOneFile.ml

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

revision 1.26 by spiralvoice, Thu Aug 18 13:00:03 2005 UTC revision 1.27 by spiralvoice, Wed Sep 14 14:35:44 2005 UTC
# Line 429  let block_received c md4 begin_pos bloc Line 429  let block_received c md4 begin_pos bloc
429                        
430            set_client_state c (Connected_downloading (file_num file));            set_client_state c (Connected_downloading (file_num file));
431            let len64 = Int64.of_int bloc_len in            let len64 = Int64.of_int bloc_len in
           count_download c file len64;  
           network_must_update network;  
432    
433  (* TODO: verify the received data has been requested *)  (* TODO: verify the received data has been requested *)
434                        
# Line 462  let block_received c md4 begin_pos bloc Line 460  let block_received c md4 begin_pos bloc
460  (*            List.iter Int64Swarmer.alloc_range c.client_ranges; *)  (*            List.iter Int64Swarmer.alloc_range c.client_ranges; *)
461            let new_downloaded =            let new_downloaded =
462              Int64Swarmer.downloaded swarmer in              Int64Swarmer.downloaded swarmer in
463            c.client_downloaded <- c.client_downloaded ++ (            count_download c file (new_downloaded -- old_downloaded);
464              new_downloaded -- old_downloaded);            network_must_update network;
465  (*  (*
466            if not (List.mem c.client_ip bb.block_contributors) then            if not (List.mem c.client_ip bb.block_contributors) then
467              bb.block_contributors <- c.client_ip ::              bb.block_contributors <- c.client_ip ::

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

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