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 |
|
|
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; |