Apple-2-SW/contiki
1
0
Fork 0
mirror of https://github.com/oliverschmidt/contiki.git synced 2024-07-16 21:29:32 +00:00
Code Issues Projects Releases Wiki Activity

final rftest2pcap script

Browse Source 
Signed-off-by: Mariano Alvira <mar@devl.org>
This commit is contained in:
Mariano Alvira 2009-06-22 16:23:36 -04:00
parent 56a75f637f
commit 400ea36fce
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rftestrx2pcap.pl
View File

@ -53,28 +53,32 @@ while(1) {
if (defined($count) && ($count != 0)) {
$str .= $c;
# match if ends in \n or \r and process line
if(($str =~ /\n\r$/) ||
($str =~ /\r\n$/)) {
if(($str =~ /\n$/) ||
($str =~ /\r$/)) {
if($str =~ /^rftest/) {
#new packet
($sec, $usec) = gettimeofday;
# print "rftestline: $sec $usec $str\n\r";
print STDERR "rftestline: $sec $usec $str";
} elsif($str =~ /^\s*data/) {
#packet payload
print STDERR "dataline: ";
print STDERR $str;
$str =~ /data: 0x\d+ (.+)/;
my @data = split(' ',$1);
# print "dataline: ";
($len, @data) = @data;
# print "\n\r";
#write out pcap entry
print pack('LLLL',($sec,$usec,scalar(@data),scalar(@data)+2));
print STDERR "new packet: $sec $usec " . scalar(@data) . " " . (scalar(@data)+2) . "\n\r";
@frame = @data[0,1];
print pack ('CC',($frame[1],$frame[0]));
print pack ('CC',(hex($frame[0]),hex($frame[1])));
print STDERR "$frame[0] $frame[1] ";
foreach my $data (@data[2..scalar(@data)-1]) {
print pack ('C',hex($data));
print STDERR "$data ";
}
print STDERR "\n\r";
}
print STDERR "\n\r";
$str = '';
}
}