53 |
open CommonGlobals |
open CommonGlobals |
54 |
open CommonOptions |
open CommonOptions |
55 |
open DonkeyStats |
open DonkeyStats |
56 |
|
open DonkeyUdp |
57 |
|
|
58 |
(* prints a new logline with date, module and starts newline *) |
(* prints a new logline with date, module and starts newline *) |
59 |
let lprintf_nl () = |
let lprintf_nl () = |
267 |
(try |
(try |
268 |
let servers = Hashtbl.find_all udp_servers_replies file.file_md4 in |
let servers = Hashtbl.find_all udp_servers_replies file.file_md4 in |
269 |
List.iter (fun s -> |
List.iter (fun s -> |
270 |
udp_server_send s (DonkeyProtoUdp.QueryLocationUdpReq [file.file_md4]) |
udp_server_send_query_location s [(file.file_md4,(file_size file))] |
271 |
) servers |
) servers |
272 |
with _ -> ()); |
with _ -> ()); |
273 |
|
|