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

update rftest parser to new output format

Browse Source
This commit is contained in:
Mariano Alvira 2010-12-29 18:10:45 -08:00
parent d8d8c77a2c
commit 5660024bcd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/rftestrx2pcap.pl
View File

@ -59,13 +59,13 @@ while(1) {
#new packet
($sec, $usec) = gettimeofday;
print STDERR "rftestline: $sec $usec $str";
} elsif($str =~ /^\s*data/) {
} elsif($str =~ /^\w+/) {
#packet payload
print STDERR "dataline: ";
print STDERR $str;
$str =~ /data: 0x\d+ (.+)/;
chomp $str;
$str =~ /(.+)/;
my @data = split(' ',$1);
($len, @data) = @data;
#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";