Debugging Multicast

BBC Text Stream

A text stream to enable basic debugging using systems with text based output or access only to receive multicast test traffic exists. This is on the group address 233.122.227.0, and a perl script to receive this is below.

#!/usr/bin/perl -w

# Receiver client tester

use IO::Socket;

use IO::Socket::Multicast;

$port=4001;

 $group = '233.122.227.0';   #AS31459

my $sock = IO::Socket::Multicast->new(LocalPort=>$port) || die "socket: $!\n";

$sock->mcast_add($group) || die "mcast_add: $!\n";

while (1) {

        my ($message, $peer);

        $peer = recv($sock, $message, 1024, 0) || die "recv: $!\n";

        my ($peerport, $peeraddr) = sockaddr_in($peer);

        print inet_ntoa($peeraddr) . ": $message\n";