1339 |
try |
try |
1340 |
let file = find_file t.Q.md4 in |
let file = find_file t.Q.md4 in |
1341 |
received_client_bitmap c file t.Q.chunks |
received_client_bitmap c file t.Q.chunks |
1342 |
with e -> |
with e -> if !verbose then |
1343 |
lprintf_nl () "Exception %s in Query Chunks Reply file-md4: %s client was %s" |
lprintf_nl () "Exception %s in Query Chunks Reply file-md4: %s client was %s" |
1344 |
(Printexc2.to_string e) (Md4.to_string t.Q.md4) |
(Printexc2.to_string e) (Md4.to_string t.Q.md4) |
1345 |
(full_client_identifier c) |
(full_client_identifier c) |
2153 |
} |
} |
2154 |
) |
) |
2155 |
|
|
2156 |
with e -> |
with |
2157 |
lprintf_nl () "Exception %s in client connection" |
Unix.Unix_error (Unix.ENETUNREACH,_,_) -> |
2158 |
(Printexc2.to_string e); |
lprintf_nl () "Network unreachable for IP %s:%d" (Ip.to_string ip) port |
2159 |
|
| e -> |
2160 |
|
lprintf_nl () "Exception %s in client connection to IP %s:%d" |
2161 |
|
(Printexc2.to_string e) (Ip.to_string ip) port; |
2162 |
(* connection_failed c.client_connection_control; *) |
(* connection_failed c.client_connection_control; *) |
2163 |
set_client_disconnected c (Closed_for_exception e); |
set_client_disconnected c (Closed_for_exception e); |
2164 |
DonkeySources.source_disconnected c.client_source |
DonkeySources.source_disconnected c.client_source |