87 |
let client_send c m = |
let client_send c m = |
88 |
let emule_version = c.client_emule_proto in |
let emule_version = c.client_emule_proto in |
89 |
if !verbose_msg_clients || c.client_debug then begin |
if !verbose_msg_clients || c.client_debug then begin |
90 |
lprintf_n () "Sent to client[%d] %s(%s)" (client_num c) |
lprintf_nl () "Sent to client[%d] %s(%s) %s" (client_num c) |
91 |
c.client_name (brand_to_string c.client_brand); |
c.client_name (brand_to_string c.client_brand) |
92 |
(match c.client_kind with |
(match c.client_kind with |
93 |
Indirect_address _ | Invalid_address _ -> () |
Indirect_address _ | Invalid_address _ -> "" |
94 |
| Direct_address (ip,port) -> |
| Direct_address (ip,port) -> Printf.sprintf "[%s:%d]" (Ip.to_string ip) port |
|
lprintf_nl2 " [%s:%d]" (Ip.to_string ip) port; |
|
|
|
|
95 |
); |
); |
96 |
DonkeyProtoClient.print m; |
DonkeyProtoClient.print m; |
97 |
lprint_newline (); |
lprint_newline (); |