[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyUdp.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyUdp.ml
diff -u mldonkey/src/networks/donkey/donkeyUdp.ml:1.18 
mldonkey/src/networks/donkey/donkeyUdp.ml:1.19
--- mldonkey/src/networks/donkey/donkeyUdp.ml:1.18      Mon Aug  8 16:47:31 2005
+++ mldonkey/src/networks/donkey/donkeyUdp.ml   Sat Sep 17 17:50:38 2005
@@ -46,6 +46,12 @@
 
 module Udp = DonkeyProtoUdp
 
+let udp_server_send_query_location s l =
+  if server_send_getsources2 s then
+    udp_server_send s (Udp.QueryLocationUdpReq2 l)
+  else
+    udp_server_send s (Udp.QueryLocationUdpReq (List.map (fun (md4,_) -> md4) 
l))
+
 let search_handler s t =
   let waiting = s.search_waiting - 1 in
   s.search_waiting <- waiting;
@@ -263,7 +269,8 @@
          | None -> ());
       (match t.M.flags with
            Some x -> s.server_flags <- x
-         | None -> ())
+         | None -> ());
+      server_must_update s
 
   | Udp.EmuleReaskFilePingUdpReq t -> ()