kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-03-15 05:08:26 +00:00
Code Issues Projects Releases Wiki Activity

update

Browse Source
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); $socket->mcast_add($ip);
while($socket->recv($data,1024)) { while($socket->recv($data,1024)) {
$data =~ s/^.{8}//;
print $data; print $data;
} }

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

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