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

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyProtoCom.ml
diff -u mldonkey/src/networks/donkey/donkeyProtoCom.ml:1.23 
mldonkey/src/networks/donkey/donkeyProtoCom.ml:1.24
--- mldonkey/src/networks/donkey/donkeyProtoCom.ml:1.23 Thu Oct  6 10:21:09 2005
+++ mldonkey/src/networks/donkey/donkeyProtoCom.ml      Thu Oct  6 14:03:05 2005
@@ -87,13 +87,11 @@
 let client_send c m =
   let emule_version = c.client_emule_proto in
   if !verbose_msg_clients || c.client_debug then begin
-      lprintf_n () "Sent to client[%d] %s(%s)" (client_num c)
-        c.client_name (brand_to_string c.client_brand);
+      lprintf_nl () "Sent to client[%d] %s(%s) %s" (client_num c)
+        c.client_name (brand_to_string c.client_brand)
       (match c.client_kind with
-          Indirect_address _ | Invalid_address _ -> ()
-        | Direct_address (ip,port) ->
-            lprintf_nl2 " [%s:%d]" (Ip.to_string ip) port;
-
+          Indirect_address _ | Invalid_address _ -> ""
+        | Direct_address (ip,port) -> Printf.sprintf "[%s:%d]" (Ip.to_string 
ip) port
       );
       DonkeyProtoClient.print m;
       lprint_newline ();