/[mldonkey]/mldonkey/src/utils/net/multicast.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/multicast.ml

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

revision 1.1 by simon_mld, Tue Apr 22 22:33:40 2003 UTC revision 1.2 by spiralvoice, Mon Jun 20 18:38:49 2005 UTC
# Line 70  let recv sock buffer = Line 70  let recv sock buffer =
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"

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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