/[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.18 by spiralvoice, Thu Jul 7 00:25:46 2005 UTC revision 1.19 by spiralvoice, Sun Jul 17 16:12:59 2005 UTC
# Line 82  let direct_client_sock_send emule_versio Line 82  let direct_client_sock_send emule_versio
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
# Line 90  let client_send c m = Line 91  let client_send c m =
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;

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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