82 |
let client_send c m = |
let client_send c m = |
83 |
let emule_version = c.client_emule_proto in |
let emule_version = c.client_emule_proto in |
84 |
if !verbose_msg_clients || c.client_debug then begin |
if !verbose_msg_clients || c.client_debug then begin |
85 |
|
CommonGlobals.print_localtime (); |
86 |
lprintf "Sent to client[%d] %s(%s)" (client_num c) |
lprintf "Sent to client[%d] %s(%s)" (client_num c) |
87 |
c.client_name (brand_to_string c.client_brand); |
c.client_name (brand_to_string c.client_brand); |
88 |
(match c.client_kind with |
(match c.client_kind with |
91 |
lprintf " [%s:%d]" (Ip.to_string ip) port; |
lprintf " [%s:%d]" (Ip.to_string ip) port; |
92 |
|
|
93 |
); |
); |
|
CommonGlobals.print_localtime (); |
|
94 |
DonkeyProtoClient.print m; |
DonkeyProtoClient.print m; |
95 |
lprintf_nl ""; |
lprintf_nl ""; |
96 |
end; |
end; |