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

wifi_diag: fixes unintialized sequence number, whitespace

Browse Source
This commit is contained in:
Jed Reynolds
2019-11-26 17:21:58 -08:00
parent 88280615f4
commit d8b5b2892d
2 changed files with 141 additions and 137 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
wifi_diag/Packet.pm
View File

@@ -40,6 +40,7 @@ sub new {
amsdu_frame_count => 0,
ssi_sig_found => 0,
ba_bitmap => "0000000000000000", # empty bitmap
ba_starting_seq => 0, # needs to be initialized
};
bless($self, $class);

11
wifi_diag/Tid.pm
View File

@@ -1,10 +1,13 @@
package Tid;
use warnings;
use strict;
use warnings;
use diagnostics;
use bigint;
use bignum;
use Carp;
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
$SIG{ __WARN__ } = sub { Carp::confess( @_ ) };
my $warn_dup_ba_once = 1;
my $max_pkt_store = 250;
@@ -136,11 +139,11 @@ sub add_pkt {
#print "checking tmp-pkt frame: " . $tmp->{frame_num} . " seqno: " . $tmp->seqno();
#print " transmitter: " . $tmp->transmitter();
#print " pkt-rcvr: " . $pkt->receiver() . "\n";
#print "Starting_seqno:$starting_seqno\n";
if ($tmp->transmitter() eq $pkt->receiver()) {
if ($tmp->seqno() >= $starting_seqno && $tmp->seqno() < ($starting_seqno + 64)) {
if (($tmp->seqno() >= $starting_seqno) && ($tmp->seqno() < ($starting_seqno + 64))) {
# tmp pkt might match this BA bitmap..check closer.
my $diff = $tmp->seqno() - $starting_seqno;
if ($bi_as_long & (1 << $diff)) {
# Found a matching frame.
$bi_mask |= (1 << $diff);