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

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

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

revision 1.60 by spiralvoice, Tue Sep 13 09:54:47 2005 UTC revision 1.61 by spiralvoice, Sat Sep 17 17:50:38 2005 UTC
# Line 53  open DonkeyClient Line 53  open DonkeyClient
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 () =
# Line 266  let really_query_download filenames size Line 267  let really_query_download filenames size
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    

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

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