/[mldonkey]/mldonkey/src/im/yahoo/yahoo.ml
ViewVC logotype

Diff of /mldonkey/src/im/yahoo/yahoo.ml

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

revision 1.3 by spiralvoice, Wed Mar 2 20:37:09 2005 UTC revision 1.4 by spiralvoice, Tue Sep 6 11:24:59 2005 UTC
# Line 534  let cut_messages parse f sock nread = Line 534  let cut_messages parse f sock nread =
534  let buf = Buffer.create 30000  let buf = Buffer.create 30000
535                
536  let send_message sock pkt =  let send_message sock pkt =
537    Buffer.clear buf;    Buffer.reset buf;
538    Buffer.add_char buf 'Y';      Buffer.add_char buf 'Y';  
539    Buffer.add_char buf 'M';      Buffer.add_char buf 'M';  
540    Buffer.add_char buf 'S';      Buffer.add_char buf 'S';  
# Line 547  let send_message sock pkt = Line 547  let send_message sock pkt =
547    buf_int32 buf pkt.id;    buf_int32 buf pkt.id;
548    Buffer.add_string buf pkt.payload;    Buffer.add_string buf pkt.payload;
549    let s = Buffer.contents buf in    let s = Buffer.contents buf in
550    Buffer.clear buf;    Buffer.reset buf;
551    lprintf "SENDING MESSAGE:"; lprint_newline ();    lprintf "SENDING MESSAGE:"; lprint_newline ();
552    dump s; lprint_newline ();    dump s; lprint_newline ();
553    write_string sock s;    write_string sock s;
554    ()    ()
555        
556  let yahoo_send_message sock pkt =  let yahoo_send_message sock pkt =
557    Buffer.clear buf;    Buffer.reset buf;
558    List.iter (fun (key, data) ->    List.iter (fun (key, data) ->
559        Printf.bprintf buf "%d" key;        Printf.bprintf buf "%d" key;
560        buf_int8 buf 0xc0;        buf_int8 buf 0xc0;

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