scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-31 02:38:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

wifi-diag: Parse newer tshark output properly, retransmit improvements.

Browse Source 
Newer tshark had a different text output, so needed to modify the script to
parse that properly.

Report big vs all retransmits (big frames are likely Data, small ones may
just be null-data frames or similar).
This commit is contained in:
Ben Greear
2019-01-04 15:43:21 -08:00
parent 4075b122e9
commit d41cc2f3ca
4 changed files with 123 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
wifi_diag/Packet.pm
View File

@@ -15,6 +15,7 @@ sub new {
wmm_info => "",
raw_pkt => "",
seqno => -1, # block-ack will not have a seqno
bytes_on_wire => 0,
acked_by => -1,
block_acked_by => -1,
retrans => 0,
@@ -24,6 +25,7 @@ sub new {
dummy_rx_pkts => 0,
is_last_ampdu => 0,
is_ampdu => 0,
is_msdu => 0,
is_malformed => 0,
type_subtype => "UNKNOWN",
receiver => "UNKNOWN",
@@ -67,16 +69,21 @@ sub append {
elsif ($ln =~ /^.* = Payload Type: A-MSDU/) {
$self->{is_ampdu} = 1;
}
elsif ($ln =~ /^.* = Payload Type: MSDU/) {
$self->{is_msdu} = 1;
}
elsif ($ln =~ /^\s*\[Time delta from previous captured frame:\s+(\S+)/) {
$self->{timedelta} = $1;
}
elsif ($ln =~ /^\s*Receiver address: .*\((\S+)\)/) {
$self->{receiver} = $1;
}
elsif ($ln =~ /^\s*Fragment number: (\d+)/) {
elsif (($ln =~ /^\s*Fragment number: (\d+)/) ||
($ln =~ /^.*\s+=\s+Fragment number: (\d+)/)) {
$self->{fragno} = $1;
}
elsif ($ln =~ /^\s*Sequence number: (\d+)/) {
elsif (($ln =~ /^\s*Sequence number: (\d+)/) ||
($ln =~ /^.*\s+=\s+Sequence number: (\d+)/)) {
$self->{seqno} = $1;
}
elsif ($ln =~ /^\s*Type\/Subtype: (.*)/) {
@@ -128,7 +135,8 @@ sub append {
$self->{datarate} = 0;
}
}
elsif ($ln =~ /^\s*SSI Signal: (.*)/) {
elsif (($ln =~ /^\s*SSI Signal: (.*)/) ||
($ln =~ /^\s*Antenna signal: (.*)/)) {
if ($self->{ssi_sig_found} == 0) {
$self->{ssi_combined} = $1;
$self->{ssi_sig_found}++;