let socketserver = U.socket U.PF_INET U.SOCK_DGRAM 0 in
let rec contact_server () =
let n =
- Printf.printf "sending %s to server...\n" string_to_send;
- flush stdout;
U.sendto socketserver string_to_send 0 (String.length string_to_send)
[] (U.ADDR_INET(U.inet_addr_any,portserver))
in