sune_ahlgren
New User
Apr 2, 2009, 7:50 AM
Post #1 of 1
(181 views)
|
|
Simple IPv6 multicast server won't work
|
Can't Post
|
|
Hi all!
Why don't these 15 lines of server code catch IPv6 multicast messages?
I have no clue... Anyone?
#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::Multicast6;
my $MAX_LEN=65535;
my ($server, $recv);
my $s6 = IO::Socket::Multicast6->new(Domain=>AF_INET6,
LocalAddress=>'FF02::C',
LocalPort=>3702);
# Add a multicast group to eth1 device
$s6->mcast_add('FF02::C');
# now receive some multicast data
$s6->recv($recv,$MAX_LEN);
print "$recv\n";
# Drop a multicast group
$s6->mcast_drop('FF02::C');
|
MAIN
SEARCH
WHO'S 
LOG 