461 |
(* List.iter Int64Swarmer.alloc_range c.client_ranges; *) |
(* List.iter Int64Swarmer.alloc_range c.client_ranges; *) |
462 |
let new_downloaded = |
let new_downloaded = |
463 |
Int64Swarmer.downloaded swarmer in |
Int64Swarmer.downloaded swarmer in |
464 |
count_download c file (new_downloaded -- old_downloaded); |
count_download c (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 :: |