Preston_PLB
/
freeswitch
forked from Mirrors/freeswitch
1
0
Fork 0
Code Pull Requests Activity

update

This commit is contained in:
Anthony Minessale 2010-04-07 01:44:56 -05:00
parent ec8ab06c66
commit 7095887bad
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scripts/perl/multicast/recv.pl
View File

@ -8,6 +8,5 @@ my $socket = IO::Socket::Multicast->new( LocalPort => $port, ReuseAddr => 1 );
$socket->mcast_add($ip);
while($socket->recv($data,1024)) {
$data =~ s/^.{8}//;
print $data;
}

2
scripts/perl/multicast/send.pl
View File

@ -13,5 +13,5 @@ $/ = undef;
my $buf = <I>;
close(I);
$socket->send("00000000$buf\n");
$socket->send("$buf\n");