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

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

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

revision 1.54 by spiralvoice, Fri Jul 22 14:32:12 2005 UTC revision 1.55 by spiralvoice, Mon Aug 1 20:15:28 2005 UTC
# Line 190  let _ = Line 190  let _ =
190    let client_enter_upload_queue c =    let client_enter_upload_queue c =
191      do_if_connected  c.client_source.DonkeySources.source_sock (fun sock ->      do_if_connected  c.client_source.DonkeySources.source_sock (fun sock ->
192          set_rtimeout sock !!upload_timeout;          set_rtimeout sock !!upload_timeout;
193            c.client_connect_time <- last_time ();
194          client_send c (          client_send c (
195            let module M = DonkeyProtoClient in            let module M = DonkeyProtoClient in
196            let module Q = M.AvailableSlot in            let module Q = M.AvailableSlot in

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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