/[mldonkey]/mldonkey/src/networks/donkey/donkeyProtoCom.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyProtoCom.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by spiralvoice, Thu Oct 6 10:21:09 2005 UTC revision 1.24 by spiralvoice, Thu Oct 6 14:03:05 2005 UTC
# Line 87  let direct_client_sock_send emule_versio Line 87  let direct_client_sock_send emule_versio
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 ();

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26