/[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.63 by spiralvoice, Mon Sep 19 10:09:05 2005 UTC revision 1.64 by spiralvoice, Wed Sep 21 18:11:54 2005 UTC
# Line 106  let add_source file ip port serverIP ser Line 106  let add_source file ip port serverIP ser
106                      raise Not_found                      raise Not_found
107              in              in
108              let s = DonkeySources.find_source_by_uid uid in              let s = DonkeySources.find_source_by_uid uid in
109              DonkeySources.set_request_result s file.file_sources File_new_source              DonkeySources.set_request_result s file.file_sources File_new_source;
110          with Not_found -> ()          with Not_found -> ()
111    
   
112  let is_banned c sock =  let is_banned c sock =
113    c.client_banned <- Hashtbl.mem banned_ips (fst (peer_addr sock))    c.client_banned <- Hashtbl.mem banned_ips (fst (peer_addr sock))
114    
# Line 1226  let client_to_client for_files c t sock Line 1225  let client_to_client for_files c t sock
1225                      Reliability_reliable | Reliability_neutral -> true                      Reliability_reliable | Reliability_neutral -> true
1226                    | Reliability_suspicious _ -> false) &&                    | Reliability_suspicious _ -> false) &&
1227                  List.exists (fun r ->                  List.exists (fun r ->
1228                      r.DonkeySources.request_score > expected_score                      r.DonkeySources.request_score >= CommonSources.possible_score
1229                  ) s.DonkeySources.source_files then                  ) s.DonkeySources.source_files then
1230                  sources := {                  sources := {
1231                    E.src_ip = ip;                    E.src_ip = ip;

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

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