/[mldonkey]/mldonkey/src/networks/donkey/donkeyUdp.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyUdp.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by spiralvoice, Mon Aug 8 16:47:31 2005 UTC revision 1.19 by spiralvoice, Sat Sep 17 17:50:38 2005 UTC
# Line 46  open DonkeyStats Line 46  open DonkeyStats
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;
# Line 263  let udp_client_handler t p = Line 269  let udp_client_handler t p =
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    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26