70 |
|
|
71 |
let send sock deering port message = |
let send sock deering port message = |
72 |
let multicast_addr = deering_addr deering in |
let multicast_addr = deering_addr deering in |
73 |
lprintf "ADDR: %s" (string_of_inet_addr multicast_addr); |
lprintf "ADDR: %s\n" (string_of_inet_addr multicast_addr); |
|
lprint_newline (); |
|
74 |
let to_addr = Unix.ADDR_INET(multicast_addr, port) in |
let to_addr = Unix.ADDR_INET(multicast_addr, port) in |
75 |
let e = sendto sock message 0 (String.length message) [] to_addr in |
let e = sendto sock message 0 (String.length message) [] to_addr in |
76 |
if e < 0 then failwith "sendto" |
if e < 0 then failwith "sendto" |