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 |