[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyClient.ml

[mldonkey-commits]

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