55 |
(* search.search_handler (Waiting s.search_waiting) *) |
(* search.search_handler (Waiting s.search_waiting) *) |
56 |
|
|
57 |
let make_xs ss = |
let make_xs ss = |
58 |
if !verbose then lprintf "******** make_xs ********\n"; |
if !verbose_udp then lprintf "******** make_xs ********\n"; |
59 |
if ss.search_num <> !xs_last_search then |
if ss.search_num <> !xs_last_search then |
60 |
begin |
begin |
61 |
xs_last_search := ss.search_num; |
xs_last_search := ss.search_num; |
98 |
Udp.QueryMultipleUdpReq ss.search_query); |
Udp.QueryMultipleUdpReq ss.search_query); |
99 |
) before; |
) before; |
100 |
|
|
101 |
if !verbose then lprintf "===================== STARTING SEARCH ON OVERNET =========\n"; |
if !verbose_overnet then lprintf "===================== STARTING SEARCH ON OVERNET =========\n"; |
102 |
DonkeyProtoOvernet.Overnet.overnet_search ss; |
DonkeyProtoOvernet.Overnet.overnet_search ss; |
103 |
DonkeyProtoKademlia.Kademlia.overnet_search ss |
DonkeyProtoKademlia.Kademlia.overnet_search ss |
104 |
|
|