/[mldonkey]/mldonkey/src/networks/direct_connect/dcProtocol.ml
ViewVC logotype

Diff of /mldonkey/src/networks/direct_connect/dcProtocol.ml

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

revision 1.3 by mldonkey, Mon Nov 1 11:23:00 2004 UTC revision 1.4 by spiralvoice, Tue Sep 6 11:24:59 2005 UTC
# Line 857  let buf = Buffer.create 100 Line 857  let buf = Buffer.create 100
857  let server_send debug sock m =  let server_send debug sock m =
858  (*  lprintf "SENDING"; lprint_newline ();  (*  lprintf "SENDING"; lprint_newline ();
859    print m; *)    print m; *)
860    Buffer.clear buf;    Buffer.reset buf;
861    write buf m;    write buf m;
862    Buffer.add_char buf '|';    Buffer.add_char buf '|';
863    let s = Buffer.contents buf in    let s = Buffer.contents buf in
# Line 869  let server_send debug sock m = Line 869  let server_send debug sock m =
869  let debug_server_send sock m =  let debug_server_send sock m =
870    lprintf "SENDING"; lprint_newline ();    lprintf "SENDING"; lprint_newline ();
871    print m;    print m;
872    Buffer.clear buf;    Buffer.reset buf;
873    write buf m;    write buf m;
874    Buffer.add_char buf '|';    Buffer.add_char buf '|';
875    let s = Buffer.contents buf in    let s = Buffer.contents buf in

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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