[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyClient.
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyClient.ml |
Date: |
Mon, 08 Aug 2005 12:47:35 -0400 |
Index: mldonkey/src/networks/donkey/donkeyClient.ml
diff -u mldonkey/src/networks/donkey/donkeyClient.ml:1.56
mldonkey/src/networks/donkey/donkeyClient.ml:1.57
--- mldonkey/src/networks/donkey/donkeyClient.ml:1.56 Mon Aug 1 20:26:06 2005
+++ mldonkey/src/networks/donkey/donkeyClient.ml Mon Aug 8 16:47:30 2005
@@ -1339,7 +1339,7 @@
try
let file = find_file t.Q.md4 in
received_client_bitmap c file t.Q.chunks
- with e ->
+ with e -> if !verbose then
lprintf_nl () "Exception %s in Query Chunks Reply file-md4: %s
client was %s"
(Printexc2.to_string e) (Md4.to_string t.Q.md4)
(full_client_identifier c)
@@ -2153,9 +2153,12 @@
}
)
- with e ->
- lprintf_nl () "Exception %s in client connection"
- (Printexc2.to_string e);
+ with
+ Unix.Unix_error (Unix.ENETUNREACH,_,_) ->
+ lprintf_nl () "Network unreachable for IP %s:%d"
(Ip.to_string ip) port
+ | e ->
+ lprintf_nl () "Exception %s in client connection to IP
%s:%d"
+ (Printexc2.to_string e) (Ip.to_string ip) port;
(* connection_failed c.client_connection_control; *)
set_client_disconnected c (Closed_for_exception e);
DonkeySources.source_disconnected c.client_source