117 |
let max_range_len = Int64.of_int (1 lsl 14) |
let max_range_len = Int64.of_int (1 lsl 14) |
118 |
let max_request_len = Int64.of_int (1 lsl 16) |
let max_request_len = Int64.of_int (1 lsl 16) |
119 |
|
|
120 |
|
(* prints a new logline with date, module and starts newline *) |
121 |
|
let lprintf_nl () = |
122 |
|
lprintf "%s[BT] " |
123 |
|
(log_time ()); lprintf_nl2 |
124 |
|
|
125 |
let check_if_interesting file c = |
let check_if_interesting file c = |
126 |
|
|
127 |
if not c.client_alrd_sent_notinterested then |
if not c.client_alrd_sent_notinterested then |
163 |
) trackers |
) trackers |
164 |
|
|
165 |
let create_temp_file file_temp file_files = |
let create_temp_file file_temp file_files = |
166 |
if !CommonOptions.verbose_files then lprintf_nl "create_temp_file %s" file_temp; |
if !CommonOptions.verbose_files then lprintf_nl () "create_temp_file %s" file_temp; |
167 |
let file_fd = |
let file_fd = |
168 |
if file_files <> [] then |
if file_files <> [] then |
169 |
Unix32.create_multifile file_temp |
Unix32.create_multifile file_temp |