Apple-2-SW/contiki
1
0
Fork 0
mirror of https://github.com/oliverschmidt/contiki.git synced 2024-12-23 01:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Added some code to avoid the generation of pcap files starting directly with a

Browse Source 
payload
This commit is contained in:
Mariano Alvira 2011-06-02 07:27:21 -04:00
parent 0becce7f00
commit 14e06a0f42
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tools/rftestrx2pcap.pl
View File

@ -47,6 +47,7 @@ my $network = 230; # 802.15.4 no FCS
my $newpacket = 0;
my $len = 0;
my $file_empty = 1;
print pack('LSSLLLL',($magic,$major,$minor,$zone,$sig,$snaplen,$network));
@ -75,15 +76,21 @@ while(1) {
$newpacket = 0;
print pack('LLLL',($sec,$usec,$len,$len));
print STDERR "new packet: $sec $usec $len " . ($len) . "\n\r";
# This header starts the file
if ($file_empty == 1) {
$file_empty = 0;
}
}
# packet payload (don't start the file with a payload)
if ($file_empty == 0) {
print STDERR "dataline: ";
print STDERR $str . "\n\r";
foreach my $data (@data) {
print pack ('C',hex($data));
}
}
# packet payload
print STDERR "dataline: ";
print STDERR $str . "\n\r";
foreach my $data (@data) {
print pack ('C',hex($data));
}
}
$str = '';
}