Modified: freeswitch/trunk/scripts/perl/multicast/recv.pl (17232 => 17233)
--- freeswitch/trunk/scripts/perl/multicast/recv.pl 2010-04-07 05:05:03 UTC (rev 17232)
+++ freeswitch/trunk/scripts/perl/multicast/recv.pl 2010-04-07 06:44:56 UTC (rev 17233)
@@ -8,6 +8,5 @@
$socket->mcast_add($ip);
while($socket->recv($data,1024)) {
- $data =~ s/^.{8}//;
print $data;
}
Modified: freeswitch/trunk/scripts/perl/multicast/send.pl (17232 => 17233)
--- freeswitch/trunk/scripts/perl/multicast/send.pl 2010-04-07 05:05:03 UTC (rev 17232)
+++ freeswitch/trunk/scripts/perl/multicast/send.pl 2010-04-07 06:44:56 UTC (rev 17233)
@@ -13,5 +13,5 @@
my $buf = <I>;
close(I);
-$socket->send("00000000$buf\n");
+$socket->send("$buf\n");