767 |
(* update the stats *) |
(* update the stats *) |
768 |
let len64 = Int64.of_int len in |
let len64 = Int64.of_int len in |
769 |
count_download c file len64; |
count_download c file len64; |
770 |
|
network_must_update network; |
771 |
if !verbose_msg_clients then |
if !verbose_msg_clients then |
772 |
(match c.client_ranges_sent with |
(match c.client_ranges_sent with |
773 |
[] -> lprintf_nl () "EMPTY Ranges !!!" |
[] -> lprintf_nl () "EMPTY Ranges !!!" |
1448 |
(* update stats *) |
(* update stats *) |
1449 |
let uploaded = Int64.of_int len in |
let uploaded = Int64.of_int len in |
1450 |
count_upload c file uploaded; |
count_upload c file uploaded; |
1451 |
|
network_must_update network; |
1452 |
iter_upload sock c |
iter_upload sock c |
1453 |
end else |
end else |
1454 |
begin |
begin |