189 |
let uploaders_by_num = HU.create 113 |
let uploaders_by_num = HU.create 113 |
190 |
|
|
191 |
let edonkey_range_size = Int64.of_int (180 * 1024) |
let edonkey_range_size = Int64.of_int (180 * 1024) |
192 |
|
|
193 |
let swarmer_counter = ref 0 |
let swarmer_counter = ref 0 |
194 |
|
|
195 |
let has_multinet = true |
let has_multinet = true |
2255 |
up.up_ranges <- up.up_ranges @ [key]; |
up.up_ranges <- up.up_ranges @ [key]; |
2256 |
r.range_nuploading <- r.range_nuploading + 1; |
r.range_nuploading <- r.range_nuploading + 1; |
2257 |
if r.range_current_begin = r.range_end then |
if r.range_current_begin = r.range_end then |
2258 |
lprintf "CS error: range is empty <<<<<<<<<<<--------- error\n"; |
lprintf "CS error: range is empty error\n"; |
2259 |
key |
key |
2260 |
end else |
end else |
2261 |
match r.range_next with |
match r.range_next with |
3005 |
(* subfiles *) |
(* subfiles *) |
3006 |
(* *) |
(* *) |
3007 |
(*************************************************************************) |
(*************************************************************************) |
3008 |
|
|
3009 |
let subfiles t = |
let subfiles t = |
3010 |
List.map (fun t -> t.t_file) t.t_s.s_networks |
List.map (fun t -> t.t_file) t.t_s.s_networks |
3011 |
|
|
3012 |
(*************************************************************************) |
(*************************************************************************) |
3013 |
(* *) |
(* *) |
3038 |
("file_size", int64_to_value s.s_size); |
("file_size", int64_to_value s.s_size); |
3039 |
("file_name", string_to_value s.s_filename); |
("file_name", string_to_value s.s_filename); |
3040 |
("file_bitmap", string_to_value s.s_verified_bitmap); |
("file_bitmap", string_to_value s.s_verified_bitmap); |
3041 |
("file_chunk_sizes", list_to_value int64_to_value |
("file_chunk_sizes", list_to_value int64_to_value |
3042 |
(List.map (fun t -> t.t_block_size) s.s_networks)); |
(List.map (fun t -> t.t_block_size) s.s_networks)); |
3043 |
] |
] |
3044 |
|
|