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'; |
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; |