46 |
|
|
47 |
module Udp = DonkeyProtoUdp |
module Udp = DonkeyProtoUdp |
48 |
|
|
49 |
|
let udp_server_send_query_location s l = |
50 |
|
if server_send_getsources2 s then |
51 |
|
udp_server_send s (Udp.QueryLocationUdpReq2 l) |
52 |
|
else |
53 |
|
udp_server_send s (Udp.QueryLocationUdpReq (List.map (fun (md4,_) -> md4) l)) |
54 |
|
|
55 |
let search_handler s t = |
let search_handler s t = |
56 |
let waiting = s.search_waiting - 1 in |
let waiting = s.search_waiting - 1 in |
57 |
s.search_waiting <- waiting; |
s.search_waiting <- waiting; |
269 |
| None -> ()); |
| None -> ()); |
270 |
(match t.M.flags with |
(match t.M.flags with |
271 |
Some x -> s.server_flags <- x |
Some x -> s.server_flags <- x |
272 |
| None -> ()) |
| None -> ()); |
273 |
|
server_must_update s |
274 |
|
|
275 |
| Udp.EmuleReaskFilePingUdpReq t -> () |
| Udp.EmuleReaskFilePingUdpReq t -> () |
276 |
|
|