/[mldonkey]/mldonkey/src/networks/fileTP/fileTPClients.ml
ViewVC logotype

Diff of /mldonkey/src/networks/fileTP/fileTPClients.ml

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

revision 1.11 by spiralvoice, Sun Oct 16 20:42:54 2005 UTC revision 1.12 by spiralvoice, Fri Dec 2 12:08:26 2005 UTC
# Line 207  let get_from_client sock (c: client) = Line 207  let get_from_client sock (c: client) =
207                      in                      in
208                      iter ()                      iter ()
209                    with Not_found ->                    with Not_found ->
                       lprintf "Unable to get a block !!";  
210                        check_finished swarmer file;                        check_finished swarmer file;
211                        raise Not_found                        raise Not_found
212              in              in
# Line 247  that the connection will not be aborted Line 246  that the connection will not be aborted
246  (*      lprintf "connect_client... pending\n"; *)  (*      lprintf "connect_client... pending\n"; *)
247        let token =        let token =
248          add_pending_connection connection_manager (fun token ->          add_pending_connection connection_manager (fun token ->
             lprintf "Connection accepted\n";  
249              if List.exists (fun d ->              if List.exists (fun d ->
250                    let file = d.download_file in                    let file = d.download_file in
251                    file_state file = FileDownloading                    file_state file = FileDownloading

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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