mirror of
https://github.com/Telecominfraproject/wlan-lanforge-scripts.git
synced 2025-10-31 18:58:01 +00:00
834 lines
29 KiB
Perl
Executable File
834 lines
29 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# Read in a decoded pcap file and generate report
|
|
# Usage: tshark -V -r wifi.pcap | ./wifi_pcap_diag.pl
|
|
|
|
use strict;
|
|
use warnings;
|
|
# Un-buffer output
|
|
$| = 1;
|
|
use Cwd qw(getcwd);
|
|
my $cwd = getcwd();
|
|
if (defined $ENV{'DEBUG'} && $ENV{'DEBUG'} eq "1") {
|
|
use diagnostics;
|
|
use Carp;
|
|
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
|
|
$SIG{ __WARN__ } = sub { Carp::confess( @_ ) };
|
|
}
|
|
# this is pedantic necessity for the following use statements
|
|
use lib '/home/lanforge/scripts';
|
|
if ( $cwd =~ q(.*LANforge-Server\scripts$)) {
|
|
use lib '/home/lanforge/scripts/LANforge';
|
|
use lib '/home/lanforge/scripts/wifi_diag';
|
|
} else {
|
|
if ( -d "wifi_diag" ) {
|
|
use lib '.';
|
|
} else {
|
|
use lib '.';
|
|
}
|
|
}
|
|
use PeerConn;
|
|
use Packet;
|
|
use Getopt::Long;
|
|
|
|
my %peer_conns = ();
|
|
|
|
my $input_line_count = 0;
|
|
my $pkts_sofar = 0;
|
|
my $start_time = time();
|
|
|
|
my $cur_pkt = Packet->new(raw_pkt => "", frame_num => -1, dbg => "cur_pkt");
|
|
my $last_pkt = Packet->new(raw_pkt => "", frame_num => -1, is_rx => 0, dbg => "last_pkt");
|
|
my $first_ampdu_pkt = Packet->new(raw_pkt => "", frame_num => -1, dbg => "first_ampdu_pkt");
|
|
my $last_ba_rx_pkt = Packet->new(raw_pkt => "", frame_num => -1, dbg => "last_ba_rx_pkt");
|
|
my $last_ba_tx_pkt = Packet->new(raw_pkt => "", frame_num => -1, dbg => "last_ba_tx_pkt");
|
|
|
|
|
|
my $glb_fh_ba_tx;
|
|
my $glb_fh_ba_rx;
|
|
my $glb_fh_mcs_ps;
|
|
my $glb_fh_mcs_tx;
|
|
my $glb_fh_mcs_rx;
|
|
my $glb_fh_rtx_tx;
|
|
my $glb_fh_rtx_rx;
|
|
|
|
my $tx_no_ack_found_big = 0;
|
|
my $rx_no_ack_found_big = 0;
|
|
my $tx_no_ack_found_all = 0;
|
|
my $rx_no_ack_found_all = 0;
|
|
|
|
my %glb_mcs_tx_hash = ();
|
|
my %glb_mcs_rx_hash = ();
|
|
my %glb_pkt_type_tx_hash = ();
|
|
my %glb_pkt_type_rx_hash = ();
|
|
my %glb_ampdu_pkt_count_rx_hash = ();
|
|
my %glb_ampdu_pkt_count_tx_hash = ();
|
|
|
|
my $ampdu_pkt_count_total_tx = 0;
|
|
my $ampdu_pkt_count_total_rx = 0;
|
|
my $wmm_info = "";
|
|
|
|
my $dut = "";
|
|
our $report_prefix = "wifi-diag-";
|
|
my $non_dut_frames = 0;
|
|
my $show_help = 0;
|
|
my $gen_report = 0;
|
|
my $report_html = "";
|
|
my $html_table_border = "border=1";
|
|
|
|
my $usage = "$0
|
|
--dut {bssid-of-DUT} # Orient reports with this as upstream peer (lower-case MAC address)
|
|
--gen_report # Generate report off previously generated global data
|
|
--report_prefix {string} # Prefix used for report files (default is $report_prefix)
|
|
--help # Show this help info.
|
|
|
|
Example:
|
|
mkdir -p netgear-up-5s && tshark -V -r /tmp/udp-up-20sta-netgear-5sec.pcapng | ./wifi_pcap_diag.pl --report_prefix \"netgear-up-5s/\" --dut dc:ef:09:e3:b8:7d > netgear-up-5s/foo.txt
|
|
|
|
View {report-prefix}/index.html for the report, and {report-prefix}/foo.txt for notes and warnings.
|
|
|
|
";
|
|
|
|
|
|
GetOptions
|
|
(
|
|
'help|h' => \$show_help,
|
|
'dut=s' => \$dut,
|
|
'report_prefix=s' => \$::report_prefix,
|
|
'gen_report' => \$gen_report,
|
|
) || (print STDERR $usage && exit(1));
|
|
|
|
|
|
if ($show_help) {
|
|
print $usage;
|
|
exit 0
|
|
}
|
|
$::report_prefix .= "/"
|
|
if ($report_prefix !~ m{/$});
|
|
my $glb_ba_tx_fname = $::report_prefix . "glb-ba-tx-rpt.txt";
|
|
my $glb_ba_rx_fname = $::report_prefix . "glb-ba-rx-rpt.txt";
|
|
my $glb_mcs_ps_fname = $::report_prefix . "glb-mcs-ps-rpt.txt";
|
|
my $glb_mcs_tx_fname = $::report_prefix . "glb-mcs-tx-rpt.txt";
|
|
my $glb_mcs_rx_fname = $::report_prefix . "glb-mcs-rx-rpt.txt";
|
|
my $glb_rtx_tx_fname = $::report_prefix . "glb-rtx-tx-rpt.txt";
|
|
my $glb_rtx_rx_fname = $::report_prefix . "glb-rtx-rx-rpt.txt";
|
|
|
|
if ($gen_report) {
|
|
$report_html .= genGlobalReports();
|
|
saveHtmlReport();
|
|
exit 0;
|
|
}
|
|
|
|
open($glb_fh_ba_tx, ">", $glb_ba_tx_fname) or die("Can't open $glb_ba_tx_fname for writing: $!\n");
|
|
open($glb_fh_ba_rx, ">", $glb_ba_rx_fname) or die("Can't open $glb_ba_rx_fname for writing: $!\n");
|
|
open($glb_fh_mcs_ps, ">", $glb_mcs_ps_fname) or die("Can't open $glb_mcs_ps_fname for writing: $!\n");
|
|
open($glb_fh_mcs_tx, ">", $glb_mcs_tx_fname) or die("Can't open $glb_mcs_tx_fname for writing: $!\n");
|
|
open($glb_fh_mcs_rx, ">", $glb_mcs_rx_fname) or die("Can't open $glb_mcs_rx_fname for writing: $!\n");
|
|
open($glb_fh_rtx_tx, ">", $glb_rtx_tx_fname) or die("Can't open $glb_rtx_tx_fname for writing: $!\n");
|
|
open($glb_fh_rtx_rx, ">", $glb_rtx_rx_fname) or die("Can't open $glb_rtx_rx_fname for writing: $!\n");
|
|
|
|
my $hdr = "#timestamp\ttid\ttime_diff\tperiod_tot_pkts_ps\t" .
|
|
"period_rx_pkts_ps\tperiod_rx_retrans_pkts_ps\tperiod_rx_amsdu_pkts_ps\tperiod_rx_retrans_amsdu_pkts_ps\tperiod_dummy_rx_pkts_ps\t" .
|
|
"period_tx_pkts_ps\tperiod_tx_retrans_pkts_ps\tperiod_tx_amsdu_pkts_ps\tperiod_tx_retrans_amsdu_pkts_ps\tperiod_dummy_tx_pkts_ps\n";
|
|
print $glb_fh_mcs_ps $hdr;
|
|
|
|
# Global stats logic.
|
|
my $delta_time_rx_count = 0;
|
|
my $delta_time_rx = 0;
|
|
my $delta_time_tx_count = 0;
|
|
my $delta_time_tx = 0;
|
|
my $ampdu_chain_rx_count = 0;
|
|
my $ampdu_chain_rx_time = 0;
|
|
my $ampdu_chain_tx_count = 0;
|
|
my $ampdu_chain_tx_time = 0;
|
|
|
|
my $dup_ba_rx = 0;
|
|
my $dup_ba_tx = 0;
|
|
my $ba_ampdu_gap_rx = 0;
|
|
my $ba_ampdu_gap_tx = 0;
|
|
my $ba_ampdu_gap_rx_count = 0;
|
|
my $ba_ampdu_gap_tx_count = 0;
|
|
|
|
my $delta_ba_to_ampdu_rx = 0;
|
|
my $delta_ba_to_ampdu_tx = 0;
|
|
my $delta_ba_to_ampdu_rx_count = 0;
|
|
my $delta_ba_to_ampdu_tx_count = 0;
|
|
|
|
my $last_ps_timestamp = 0;
|
|
my $tot_pkts = 0;
|
|
my $rx_pkts = 0;
|
|
my $rx_amsdu_pkts = 0;
|
|
my $rx_retrans_pkts_all = 0;
|
|
my $rx_retrans_pkts_big = 0;
|
|
my $rx_amsdu_retrans_pkts = 0;
|
|
my $dummy_rx_pkts = 0;
|
|
my $tx_pkts = 0;
|
|
my $tx_amsdu_pkts = 0;
|
|
my $tx_retrans_pkts_all = 0;
|
|
my $tx_retrans_pkts_big = 0;
|
|
my $tx_amsdu_retrans_pkts = 0;
|
|
my $dummy_tx_pkts = 0;
|
|
|
|
my $last_tot_pkts = 0;
|
|
my $last_rx_pkts = 0;
|
|
my $last_rx_amsdu_pkts = 0;
|
|
my $last_rx_retrans_pkts_all = 0;
|
|
my $last_rx_amsdu_retrans_pkts = 0;
|
|
my $last_dummy_rx_pkts = 0;
|
|
my $last_tx_pkts = 0;
|
|
my $last_tx_amsdu_pkts = 0;
|
|
my $last_tx_retrans_pkts_all = 0;
|
|
my $last_tx_amsdu_retrans_pkts = 0;
|
|
my $last_dummy_tx_pkts = 0;
|
|
|
|
while (<>) {
|
|
my $ln = $_;
|
|
$input_line_count++;
|
|
if ($ln =~ /^Frame (\d+):\s+(\d+) bytes on wire/) {
|
|
if ($cur_pkt->raw_pkt() ne "") {
|
|
processPkt($cur_pkt);
|
|
}
|
|
$cur_pkt = Packet->new(frame_num => $1,
|
|
bytes_on_wire => $2,
|
|
raw_pkt => $ln,
|
|
dbg => "main-$1");
|
|
} else {
|
|
$cur_pkt->append($ln);
|
|
}
|
|
|
|
#if ($pkts_sofar > 1500) {
|
|
# last;
|
|
#}
|
|
}
|
|
|
|
if ($cur_pkt->raw_pkt() ne "") {
|
|
processPkt($cur_pkt);
|
|
}
|
|
|
|
printProgress();
|
|
|
|
# Sum up some stats
|
|
for my $conn (values %peer_conns) {
|
|
$conn->notify_done();
|
|
$tx_no_ack_found_big += $conn->tx_no_ack_found_big();
|
|
$rx_no_ack_found_big += $conn->rx_no_ack_found_big();
|
|
$tx_no_ack_found_all += $conn->tx_no_ack_found_all();
|
|
$rx_no_ack_found_all += $conn->rx_no_ack_found_all();
|
|
}
|
|
|
|
$report_html .= genGlobalReports();
|
|
|
|
# Print out all peer-conns we found
|
|
for my $conn (values %peer_conns) {
|
|
$conn->printme();
|
|
$conn->gen_graphs();
|
|
}
|
|
|
|
saveHtmlReport();
|
|
|
|
if ($dut ne "") {
|
|
print "NON-DUT frames in capture: $non_dut_frames\n";
|
|
}
|
|
|
|
exit 0;
|
|
|
|
sub saveHtmlReport {
|
|
my $html = qq(<!DOCTYPE html><html lang=\"en\">
|
|
<head>
|
|
<meta charset="utf-8" />
|
|
<title>WiFi Diag Report</title>
|
|
<style>
|
|
body {
|
|
font-family: Arial, Helvetica,sans-serif;
|
|
font-size: 14px;
|
|
color: #204020;
|
|
}
|
|
table {
|
|
border-collapse: collapse;
|
|
background: #e0e0e0;
|
|
}
|
|
table, td, th {
|
|
border: 1px solid gray;
|
|
padding: 4px;
|
|
}
|
|
td {
|
|
background: white;
|
|
}
|
|
td.ar {
|
|
text-align: right;
|
|
}
|
|
|
|
h1, h2, th {
|
|
color: rgb(42,91,41);
|
|
text-align: center;
|
|
}
|
|
</style>
|
|
</head>
|
|
<body >
|
|
|
|
<h1>WiFi Diag Report</h1>
|
|
<P>
|
|
);
|
|
|
|
$html .= $report_html;
|
|
|
|
$html .= "</body>
|
|
</html>\n";
|
|
|
|
my $tmp = "$::report_prefix/index.html";
|
|
$tmp =~ s{//}{/}g;
|
|
open(my $IDX, ">", $tmp) or die("Can't open $tmp for writing: $!\n");
|
|
print $IDX $html;
|
|
close $IDX;
|
|
|
|
print STDERR "Report saved to: $tmp\n";
|
|
}
|
|
|
|
sub genTimeGnuplot {
|
|
my $ylabel = shift;
|
|
my $title = shift;
|
|
my $cols = shift;
|
|
my $graph_data = shift;
|
|
|
|
my $text =qq(#!/usr/bin/gnuplot
|
|
# auto-generated gnuplot script
|
|
reset
|
|
set terminal png
|
|
|
|
set xdata time
|
|
set timefmt '\%s'
|
|
set format x '\%M:\%S'
|
|
|
|
set xlabel "Date"
|
|
set ylabel '$ylabel'
|
|
|
|
set title '$title'
|
|
set key below
|
|
set grid
|
|
plot '$graph_data' using $cols title '$title'
|
|
);
|
|
return $text;
|
|
}
|
|
|
|
sub doTimeGraph {
|
|
my $ylabel = shift;
|
|
my $title = shift;
|
|
my $cols = shift;
|
|
my $data_file = shift;
|
|
my $out_file = shift;
|
|
|
|
my $html = "";
|
|
|
|
my $text = genTimeGnuplot($ylabel, $title, $cols, $data_file);
|
|
my $png_fname = "$::report_prefix/$out_file";
|
|
$png_fname =~ s{//}{/}g;
|
|
my $tmp = $report_prefix . "_gnuplot_tmp_script.txt";
|
|
$tmp =~ s{//}{/}g;
|
|
open(my $GP, ">", $tmp) or die("Can't open $tmp for writing: $!\n");
|
|
print $GP $text;
|
|
close $GP;
|
|
my $cmd = "gnuplot $tmp > $png_fname";
|
|
print "cmd: $cmd\n";
|
|
system($cmd);
|
|
|
|
$html .= qq(<img src="$out_file" alt="$title"><br>\n);
|
|
return $html;
|
|
}
|
|
|
|
sub htmlMcsHistogram {
|
|
my $html = "";
|
|
|
|
if ($rx_pkts) {
|
|
$html .= "RX (All) Retransmit percentage: $rx_retrans_pkts_all/$rx_pkts == " . ($rx_retrans_pkts_all * 100.0) / $rx_pkts . "<br>\n";
|
|
} else {
|
|
$html .= "RX (All) Retransmit percentage: $rx_retrans_pkts_all/$rx_pkts == 0<br>\n";
|
|
}
|
|
$html .= "RX (Big) Retransmit count: $rx_retrans_pkts_big<br>\n";
|
|
if ($tx_pkts) {
|
|
$html .= "TX (All) Retransmit percentage: $tx_retrans_pkts_all/$tx_pkts == " . ($tx_retrans_pkts_all * 100.0) / $tx_pkts . "<br>\n";
|
|
} else {
|
|
$html .= "TX (All) Retransmit percentage: $tx_retrans_pkts_all/$tx_pkts == 0<br>\n";
|
|
}
|
|
$html .= "TX (Big) Retransmit count: $tx_retrans_pkts_big<br>\n";
|
|
|
|
$html .= "RX (All) no-ack-found: $rx_no_ack_found_all<br>\n";
|
|
$html .= "RX (Big) no-ack-found: $rx_no_ack_found_big<br>\n";
|
|
$html .= "TX (All) no-ack-found: $tx_no_ack_found_all<br>\n";
|
|
$html .= "TX (Big) no-ack-found: $tx_no_ack_found_big<br>\n";
|
|
|
|
if ($delta_time_tx_count) {
|
|
$html .= "TX average gap between AMPDU frames (ms): " . (($delta_time_tx * 1000.0) / $delta_time_tx_count) . "<br>\n";
|
|
}
|
|
if ($delta_time_rx_count) {
|
|
$html .= "RX average gap between AMPDU frames (ms): " . (($delta_time_rx * 1000.0) / $delta_time_rx_count) . "<br><P>\n";
|
|
}
|
|
if ($ampdu_chain_tx_count) {
|
|
$html .= "TX average AMPDU chain time (ms): " . (($ampdu_chain_tx_time * 1000.0) / $ampdu_chain_tx_count) . "<br>\n";
|
|
}
|
|
if ($ampdu_chain_rx_count) {
|
|
$html .= "RX average AMPDU chain time (ms): " . (($ampdu_chain_rx_time * 1000.0) / $ampdu_chain_rx_count) . "<br>\n";
|
|
}
|
|
|
|
if ($ba_ampdu_gap_rx_count) {
|
|
$html .= "TX BA to RX AMPDU average gap (ms): " . (($ba_ampdu_gap_rx * 1000.0) / $ba_ampdu_gap_rx_count) . "<br>\n";
|
|
}
|
|
if ($ba_ampdu_gap_tx_count) {
|
|
$html .= "RX BA to TX AMPDU average gap (ms): " . (($ba_ampdu_gap_tx * 1000.0) / $ba_ampdu_gap_tx_count) . "<br>\n";
|
|
}
|
|
|
|
$html .= "Duplicate TX BA without AMPDU between them: $dup_ba_tx<br>\n";
|
|
$html .= "Duplicate RX BA without AMPDU between them: $dup_ba_rx<br>\n";
|
|
|
|
if ($wmm_info ne "") {
|
|
$html .= "WMM Info from DUT Beacon<br><pre>\n$wmm_info</pre>";
|
|
}
|
|
|
|
$html .= "<h4>TX Encoding rate histogram.</h4>\n
|
|
<table $html_table_border><tr><th>Rate Mbps</th><th>Packets</th><th>Percentage</th></tr>";
|
|
foreach my $name (sort {$a <=> $b} keys %glb_mcs_tx_hash) {
|
|
$html .= sprintf(qq(<tr><td>%s</td><td class="ar">%s</td><td class="ar">%f</td></tr>\n), $name, $glb_mcs_tx_hash{$name}, ($glb_mcs_tx_hash{$name} * 100.0) / $tx_pkts);
|
|
}
|
|
$html .= "</table><P>\n";
|
|
|
|
$html .= "<h4>RX Encoding rate histogram</h4>\n
|
|
<table $html_table_border><tr><th>Rate Mbps</th><th>Packets</th><th>Percentage</th></tr>";
|
|
foreach my $name (sort {$a <=> $b} keys %glb_mcs_rx_hash) {
|
|
$html .= sprintf(qq(<tr><td>%s</td><td class="ar">%s</td><td class="ar">%f</td></tr>\n), $name, $glb_mcs_rx_hash{$name}, ($glb_mcs_rx_hash{$name} * 100.0) / $rx_pkts);
|
|
}
|
|
$html .= "</table>\n";
|
|
|
|
$html .= "<h4>TX Packet Type histogram</h4>\n
|
|
<table $html_table_border><tr><th>Type</th><th>Packets</th><th>Percentage</th></tr>";
|
|
foreach my $name (sort keys %glb_pkt_type_tx_hash) {
|
|
$html .= sprintf(qq(<tr><td>%s</td><td class="ar">%s</td><td class="ar">%f</td></tr>\n), $name, $glb_pkt_type_tx_hash{$name}, ($glb_pkt_type_tx_hash{$name} * 100.0) / $tx_pkts);
|
|
}
|
|
$html .= "</table>\n";
|
|
|
|
$html .= "<h4>RX Packet Type histogram</h4>\n
|
|
<table $html_table_border><tr><th>Type</th><th>Packets</th><th>Percentage</th></tr>";
|
|
foreach my $name (sort keys %glb_pkt_type_rx_hash) {
|
|
$html .= sprintf(qq(<tr><td>%s</td><td class="ar">%s</td><td class="ar">%f</td></tr>\n), $name, $glb_pkt_type_rx_hash{$name}, ($glb_pkt_type_rx_hash{$name} * 100.0) / $rx_pkts);
|
|
}
|
|
$html .= "</table><P>\n";
|
|
|
|
if ($ampdu_chain_tx_count) {
|
|
$html .= "<h4>TX AMPDU chain count histogram<h4>Average: " . $ampdu_pkt_count_total_tx / $ampdu_chain_tx_count . "\n";
|
|
$html .= "<table $html_table_border><tr><th>Chain Count</th><th>Packets</th><th>Percentage</th></tr>";
|
|
foreach my $name (sort {$a <=> $b} keys %glb_ampdu_pkt_count_tx_hash) {
|
|
$html .= sprintf(qq(<tr><td>%s</td><td class="ar">%s</td><td class="ar">%f</td></tr>\n), $name, $glb_ampdu_pkt_count_tx_hash{$name}, ($glb_ampdu_pkt_count_tx_hash{$name} * 100.0) / $ampdu_chain_tx_count);
|
|
}
|
|
$html .= "</table>\n";
|
|
}
|
|
|
|
if ($ampdu_chain_rx_count) {
|
|
$html .= "<h4>RX AMPDU chain count histogram</h4> Average: " . $ampdu_pkt_count_total_rx / $ampdu_chain_rx_count . "\n";
|
|
$html .= "<table $html_table_border><tr><th>Chain Count</th><th>Packets</th><th>Percentage</th></tr>";
|
|
foreach my $name (sort {$a <=> $b} keys %glb_ampdu_pkt_count_rx_hash) {
|
|
$html .= sprintf(qq(<tr><td>%s</td><td class="ar">%s</td><td class="ar">%f</td></tr>\n), $name, $glb_ampdu_pkt_count_rx_hash{$name}, ($glb_ampdu_pkt_count_rx_hash{$name} * 100.0) / $ampdu_chain_rx_count);
|
|
}
|
|
$html .= "</table>\n";
|
|
}
|
|
|
|
return $html;
|
|
}
|
|
|
|
sub genGlobalReports {
|
|
my $html = "";
|
|
|
|
$html .= htmlMcsHistogram();
|
|
|
|
# General idea is to write out gnumeric scripts and run them.
|
|
|
|
$html .= "\n\n<P>MCS/Encoding Rates over time<P>\n";
|
|
$html .= doTimeGraph("Encoding Rate Mbps", "TX Packet encoding rate over time", "1:2", $glb_mcs_tx_fname, "glb-mcs-tx.png");
|
|
$html .= doTimeGraph("Encoding Rate Mbps", "RX Packet encoding rate over time", "1:2", $glb_mcs_rx_fname, "glb-mcs-rx.png");
|
|
$html .= doTimeGraph("TX Retransmits", "TX Packet Retransmits over time", "1:2", $glb_rtx_tx_fname, "glb-mcs-tx-retrans.png");
|
|
$html .= doTimeGraph("RX Retransmits", "RX Packet Retransmits over time", "1:2", $glb_rtx_rx_fname, "glb-mcs-rx-retrans.png");
|
|
|
|
# Global per-second stats
|
|
$html .= doTimeGraph("Total-pps", "Total Packet per sec", "1:4", $glb_mcs_ps_fname, "glb-mcs-tot-ps.png");
|
|
$html .= doTimeGraph("RX-pps", "RX Packet per sec", "1:5", $glb_mcs_ps_fname, "glb-mcs-rx-ps.png");
|
|
$html .= doTimeGraph("RX-retrans-ps", "RX Retrans per sec", "1:6", $glb_mcs_ps_fname, "glb-mcs-rx-amsdu-ps.png");
|
|
$html .= doTimeGraph("RX-amsdu-pps", "RX AMSDU per sec", "1:7", $glb_mcs_ps_fname, "glb-mcs-rx-amsdu-ps.png");
|
|
$html .= doTimeGraph("RX-retrans-amsdu-pps", "RX Retrans AMSDU per sec", "1:8", $glb_mcs_ps_fname, "glb-mcs-rx-rtx-amsdu-ps.png");
|
|
$html .= doTimeGraph("RX-dummy pps", "RX Dummy Packets per sec", "1:9", $glb_mcs_ps_fname, "glb-mcs-rx-dummy-pps.png");
|
|
$html .= doTimeGraph("TX-pps", "TX Packet per sec", "1:10", $glb_mcs_ps_fname, "glb-mcs-tx-ps.png");
|
|
$html .= doTimeGraph("TX-retrans-ps", "TX Retrans per sec", "1:11", $glb_mcs_ps_fname, "glb-mcs-tx-amsdu-ps.png");
|
|
$html .= doTimeGraph("TX-amsdu-pps", "TX AMSDU per sec", "1:12", $glb_mcs_ps_fname, "glb-mcs-tx-amsdu-ps.png");
|
|
$html .= doTimeGraph("TX-retrans-amsdu-pps", "TX Retrans AMSDU per sec", "1:13", $glb_mcs_ps_fname, "glb-mcs-tx-rtx-amsdu-ps.png");
|
|
$html .= doTimeGraph("TX-dummy pps", "TX Dummy Packets per sec", "1:14", $glb_mcs_ps_fname, "glb-mcs-tx-dummy-pps.png");
|
|
|
|
# Local peer sending BA back to DUT
|
|
$html .= "\n\n<P>Block-Acks sent from all local endpoints to DUT.<P>\n";
|
|
$html .= doTimeGraph("BA Latency", "TX Block-Ack latency from last known frame", "1:6", $glb_ba_tx_fname, "glb-ba-tx-latency.png");
|
|
$html .= doTimeGraph("Packets Acked", "TX Block-Ack packets Acked per Pkt", "1:3", $glb_ba_tx_fname, "glb-ba-tx-pkts-per-ack.png");
|
|
$html .= doTimeGraph("Duplicate Packets Acked", "TX Block-Ack packets DUP-Acked per Pkt", "1:4", $glb_ba_tx_fname, "glb-ba-tx-pkts-dup-per-ack.png");
|
|
|
|
# DUT sending BA to local peer
|
|
$html .= "\n\n<P>Block-Acks sent from DUT to all local endpoints.<P>\n";
|
|
$html .= doTimeGraph("BA Latency", "RX Block-Ack latency from last known frame", "1:6", $glb_ba_rx_fname, "glb-ba-rx-latency.png");
|
|
$html .= doTimeGraph("Packets Acked", "RX Block-Ack packets Acked per Pkt", "1:3", $glb_ba_rx_fname, "glb-ba-rx-pkts-per-ack.png");
|
|
$html .= doTimeGraph("Duplicate Packets Acked", "RX Block-Ack packets DUP-Acked per Pkt", "1:4", $glb_ba_rx_fname, "glb-ba-rx-pkts-dup-per-ack.png");
|
|
|
|
return $html;
|
|
}
|
|
|
|
sub printProgress {
|
|
my $now = time();
|
|
my $diff_sec = $now - $start_time;
|
|
my $hour = int($diff_sec / (60 * 60));
|
|
my $min = int($diff_sec / 60);
|
|
my $sec = $diff_sec - ($hour * 60 * 60 + $min * 60);
|
|
my $pps = 0;
|
|
if ($diff_sec != 0) {
|
|
$pps = int($pkts_sofar / $diff_sec);
|
|
}
|
|
print STDERR "NOTE: Processed $pkts_sofar packets and $input_line_count input lines in $hour:$min:$sec so far ($pps pps).\n";
|
|
}
|
|
|
|
sub processPkt {
|
|
my $pkt = shift;
|
|
|
|
# Find which station (or AP) sent this pkt.
|
|
# Add graph point for mcs vs time
|
|
# Add graph point for retransmits
|
|
# Check sequence-no gap
|
|
|
|
# Skip malformed packets, cannot trust the contents anyway
|
|
if ($pkt->{is_malformed}) {
|
|
return;
|
|
}
|
|
|
|
#print "processPkt, frame: " . $pkt->{frame_num} . " seqno: " . $pkt->seqno() . " transmitter: " . $pkt->transmitter()
|
|
# . " receiver: " . $pkt->receiver() . "\n";
|
|
|
|
$pkts_sofar++;
|
|
if (($pkts_sofar % 10000) == 0) {
|
|
printProgress();
|
|
}
|
|
|
|
# If pkt is an ACK, it will not have a sender address. Guess based on
|
|
# previous packet.
|
|
if ($pkt->type_subtype() eq "Acknowledgement (0x001d)") {
|
|
if ($last_pkt->transmitter() eq $pkt->receiver()) {
|
|
$pkt->set_transmitter($last_pkt->receiver());
|
|
if ($last_pkt->acked_by() != -1) {
|
|
print "WARNING: ack frame: " . $pkt->frame_num() . " acking frame: " .
|
|
$last_pkt->frame_num() . " already acked by frame: " . $last_pkt->acked_by() . "\n";
|
|
} elsif ($last_pkt->block_acked_by() != -1) {
|
|
print "WARNING: ack frame: " . $pkt->frame_num() . " acking frame: " .
|
|
$last_pkt->frame_num() . " already block-acked by frame: " . $last_pkt->block_acked_by() . "\n";
|
|
} else {
|
|
$last_pkt->set_acked_by($pkt->frame_num());
|
|
}
|
|
} else {
|
|
print "ERROR: Frame " . $pkt->frame_num() . " is ACK for unknown packet.\n";
|
|
$non_dut_frames++;
|
|
#$last_pkt = $pkt;
|
|
return;
|
|
}
|
|
}
|
|
|
|
if ($dut ne "") {
|
|
# Ignore frames not to/from DUT
|
|
if (!(($dut eq $pkt->receiver()) ||
|
|
($dut eq $pkt->transmitter()))) {
|
|
$non_dut_frames++;
|
|
return;
|
|
}
|
|
|
|
if ($wmm_info eq "") {
|
|
if ($pkt->type_subtype() eq "Beacon frame (0x0008)") {
|
|
$wmm_info = $pkt->{wmm_info};
|
|
}
|
|
}
|
|
}
|
|
|
|
my $hash = $pkt->receiver() . "." . $pkt->transmitter();
|
|
my $hash2 = $pkt->transmitter() . "." . $pkt->receiver();
|
|
|
|
my $peer_conn;
|
|
if (exists $peer_conns{$hash}) {
|
|
$peer_conn = $peer_conns{$hash};
|
|
} else {
|
|
if (exists $peer_conns{$hash2}) {
|
|
$peer_conn = $peer_conns{$hash2};
|
|
} else {
|
|
if ($dut eq $pkt->receiver()) {
|
|
$peer_conn = PeerConn->new(glb_fh_ba_tx => $glb_fh_ba_tx,
|
|
glb_fh_ba_rx => $glb_fh_ba_rx,
|
|
report_prefix => $report_prefix,
|
|
local_addr => $pkt->transmitter(),
|
|
peer_addr => $pkt->receiver());
|
|
} else {
|
|
$peer_conn = PeerConn->new(glb_fh_ba_tx => $glb_fh_ba_tx,
|
|
glb_fh_ba_rx => $glb_fh_ba_rx,
|
|
report_prefix => $report_prefix,
|
|
local_addr => $pkt->receiver(),
|
|
peer_addr => $pkt->transmitter());
|
|
}
|
|
$peer_conns{$hash} = $peer_conn;
|
|
}
|
|
}
|
|
|
|
$peer_conn->add_pkt($pkt);
|
|
|
|
# Gather some global stats
|
|
|
|
# Add mcs to histogram.
|
|
my $delta = -1;
|
|
if ($last_pkt->seqno() + 1 == $pkt->seqno()) {
|
|
#print "seqno seq match...\n";
|
|
#print "last_pkt is rx: " . $last_pkt->{is_rx} . "\n";
|
|
#print "pkt is rx: " . $pkt->{is_rx} . "\n";
|
|
#print "last pkt tid: " . $last_pkt->{tid} . "\n";
|
|
#print "pkt tid: " . $pkt->{tid} . "\n";
|
|
if (($last_pkt->{is_rx} == $pkt->{is_rx}) && $last_pkt->{tid} == $pkt->{tid}) {
|
|
# We have two packets in an AMPDU train most likely
|
|
#print "timedelta: " . $pkt->{timedelta} . "\n";
|
|
$delta = $pkt->{timedelta};
|
|
}
|
|
}
|
|
|
|
my $this_ampdu_pkt_count;
|
|
my $ampdu_chain_time;
|
|
my $is_last_ampdu = 0;
|
|
if ($pkt->{is_ampdu} || $pkt->{is_msdu}) {
|
|
if ($last_pkt->frame_num() != -1 && (!($last_pkt->{is_ampdu} || $last_pkt->{is_msdu}))) {
|
|
# This is first ampdu since a non-ampdu frame. Calculate diff between that and last BA
|
|
if ($pkt->{is_rx} && ($last_ba_tx_pkt->{ba_valid})) {
|
|
my $diff = $pkt->timestamp() - $last_ba_tx_pkt->timestamp();
|
|
$ba_ampdu_gap_rx += $diff;
|
|
$ba_ampdu_gap_rx_count++;
|
|
if ($diff > 0.001) {
|
|
print "INFO: TX BA to RX AMPDU gap: $diff between frames: " . $last_ba_tx_pkt->frame_num() . " and: " . $pkt->frame_num() . "\n";
|
|
}
|
|
$last_ba_tx_pkt->{ba_valid} = 0;
|
|
} elsif ((!$pkt->{is_rx}) && ($last_ba_rx_pkt->{ba_valid})) {
|
|
my $diff = $pkt->timestamp() - $last_ba_rx_pkt->timestamp();
|
|
$ba_ampdu_gap_tx += $diff;
|
|
$ba_ampdu_gap_tx_count++;
|
|
if ($diff > 0.001) {
|
|
print "INFO: RX BA to TX AMPDU gap: $diff between frames: " . $last_ba_rx_pkt->frame_num() . " and: " . $pkt->frame_num() . "\n";
|
|
}
|
|
$last_ba_rx_pkt->{ba_valid} = 0;
|
|
}
|
|
}
|
|
|
|
if ($first_ampdu_pkt->seqno() != -1) {
|
|
if (($first_ampdu_pkt->{is_rx} == $pkt->{is_rx}) && $pkt->{tid} == $first_ampdu_pkt->{tid}) {
|
|
# Belongs to same tid, so must be part of the same pkt chain.
|
|
# Calculate pkt count based on seqno, since sniffer probably misses a lot of frames
|
|
# at high speed.
|
|
if ($pkt->seqno() < $first_ampdu_pkt->seqno()) {
|
|
# Looks like we have a wrap.
|
|
$this_ampdu_pkt_count = 4096 - $first_ampdu_pkt->seqno();
|
|
$this_ampdu_pkt_count += $pkt->seqno();
|
|
} else {
|
|
$this_ampdu_pkt_count = $pkt->seqno() - $first_ampdu_pkt->seqno();
|
|
$this_ampdu_pkt_count++; # range is inclusive
|
|
}
|
|
if ($pkt->{is_last_ampdu}) {
|
|
$is_last_ampdu = 1;
|
|
$ampdu_chain_time = $pkt->timestamp() - $first_ampdu_pkt->timestamp();
|
|
print "First ampdu pkt: " . $first_ampdu_pkt->frame_num() . " seqno: " . $first_ampdu_pkt->seqno()
|
|
. " last: " . $pkt->frame_num() . " seqno: " . $pkt->seqno()
|
|
. " chain-time: $ampdu_chain_time, chain-count: $this_ampdu_pkt_count.\n";
|
|
$first_ampdu_pkt->{seqno} = -1; # Initialize to invalid again.
|
|
}
|
|
} else {
|
|
# We must have not captured the last one, so skip accounting this one.
|
|
$first_ampdu_pkt->{seqno} = -1; # Initialize to invalid again.
|
|
}
|
|
} else {
|
|
if (! $pkt->{is_last_ampdu}) {
|
|
$this_ampdu_pkt_count = 1;
|
|
$first_ampdu_pkt = $pkt;
|
|
}
|
|
}
|
|
} else {
|
|
# Not an ampdu frame
|
|
# One way or another, we are done with ampdu frame sequence, zero this out
|
|
# in case we didn't sniff the last one.
|
|
# We must have not captured the last one, so skip accounting this one.
|
|
$first_ampdu_pkt->{seqno} = -1; # Initialize to invalid again.
|
|
if ($pkt->type_subtype() eq "802.11 Block Ack (0x0019)") {
|
|
# Only grab the initial BA in case we have one side ignoring BA
|
|
if ($pkt->{is_rx}) {
|
|
if (!$last_ba_rx_pkt->{ba_valid}) {
|
|
$last_ba_rx_pkt = $pkt;
|
|
$last_ba_rx_pkt->{ba_valid} = 1;
|
|
} else {
|
|
print "NOTE: Multiple RX block-acks seen without ampdu between them, first BA frame: " . $last_ba_rx_pkt->frame_num()
|
|
. " this BA frame num: " . $pkt->frame_num() . "\n";
|
|
$dup_ba_rx++;
|
|
}
|
|
} else {
|
|
if (!$last_ba_tx_pkt->{ba_valid}) {
|
|
$last_ba_tx_pkt = $pkt;
|
|
$last_ba_tx_pkt->{ba_valid} = 1;
|
|
} else {
|
|
print "NOTE: Multiple TX block-acks seen without ampdu between them, first BA frame: " . $last_ba_tx_pkt->frame_num()
|
|
. " this BA frame num: " . $pkt->frame_num() . "\n";
|
|
$dup_ba_tx++;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
$tot_pkts++;
|
|
my $dr = $pkt->{datarate};
|
|
if ($pkt->{is_rx}) {
|
|
if ($delta != -1) {
|
|
$delta_time_rx_count++;
|
|
$delta_time_rx += $delta;
|
|
}
|
|
|
|
if ($is_last_ampdu) {
|
|
$ampdu_chain_rx_count++;
|
|
$ampdu_chain_rx_time += $ampdu_chain_time;
|
|
$ampdu_pkt_count_total_rx += $this_ampdu_pkt_count;
|
|
|
|
if (exists $glb_ampdu_pkt_count_rx_hash{$this_ampdu_pkt_count}) {
|
|
$glb_ampdu_pkt_count_rx_hash{$this_ampdu_pkt_count}++;
|
|
} else {
|
|
$glb_ampdu_pkt_count_rx_hash{$this_ampdu_pkt_count} = 1;
|
|
}
|
|
}
|
|
|
|
if (exists $glb_mcs_rx_hash{$dr}) {
|
|
$glb_mcs_rx_hash{$dr}++;
|
|
} else {
|
|
$glb_mcs_rx_hash{$dr} = 1;
|
|
}
|
|
$dr = $pkt->type_subtype() . $pkt->{priority};
|
|
if (exists $glb_pkt_type_rx_hash{$dr}) {
|
|
$glb_pkt_type_rx_hash{$dr}++;
|
|
} else {
|
|
$glb_pkt_type_rx_hash{$dr} = 1;
|
|
}
|
|
$rx_pkts++;
|
|
$rx_amsdu_pkts += $pkt->{amsdu_frame_count};
|
|
if ($pkt->retrans()) {
|
|
$rx_retrans_pkts_all++;
|
|
if ($pkt->{bytes_on_wire} > 1000) {
|
|
print "Frame " . $pkt->{frame_num} . " is a BIG RX retransmit frame.\n";
|
|
$rx_retrans_pkts_big++;
|
|
}
|
|
else {
|
|
print "Frame " . $pkt->{frame_num} . " is an RX retransmit frame.\n";
|
|
}
|
|
|
|
$rx_amsdu_retrans_pkts += $pkt->{amsdu_frame_count};
|
|
}
|
|
my $ln = "" . $pkt->timestamp() . "\t" . $pkt->datarate() . "\n";
|
|
print $glb_fh_mcs_rx $ln;
|
|
if ($pkt->retrans()) {
|
|
$ln = "" . $pkt->timestamp() . "\t" . $pkt->retrans() . "\n";
|
|
print $glb_fh_rtx_rx $ln;
|
|
}
|
|
} else {
|
|
if ($delta != -1) {
|
|
$delta_time_tx_count++;
|
|
$delta_time_tx += $delta;
|
|
}
|
|
|
|
if ($is_last_ampdu) {
|
|
$ampdu_chain_tx_count++;
|
|
$ampdu_chain_tx_time += $ampdu_chain_time;
|
|
$ampdu_pkt_count_total_tx += $this_ampdu_pkt_count;
|
|
|
|
if (exists $glb_ampdu_pkt_count_tx_hash{$this_ampdu_pkt_count}) {
|
|
$glb_ampdu_pkt_count_tx_hash{$this_ampdu_pkt_count}++;
|
|
} else {
|
|
$glb_ampdu_pkt_count_tx_hash{$this_ampdu_pkt_count} = 1;
|
|
}
|
|
}
|
|
|
|
if (exists $glb_mcs_tx_hash{$dr}) {
|
|
$glb_mcs_tx_hash{$dr}++;
|
|
} else {
|
|
$glb_mcs_tx_hash{$dr} = 1;
|
|
}
|
|
$dr = $pkt->type_subtype() . $pkt->{priority};
|
|
if (exists $glb_pkt_type_tx_hash{$dr}) {
|
|
$glb_pkt_type_tx_hash{$dr}++;
|
|
} else {
|
|
$glb_pkt_type_tx_hash{$dr} = 1;
|
|
}
|
|
$tx_pkts++;
|
|
$tx_amsdu_pkts += $pkt->{amsdu_frame_count};
|
|
if ($pkt->retrans()) {
|
|
$tx_retrans_pkts_all++;
|
|
if ($pkt->{bytes_on_wire} > 1000) {
|
|
print "Frame " . $pkt->{frame_num} . " is a BIG TX retransmit frame.\n";
|
|
$tx_retrans_pkts_big++;
|
|
}
|
|
else {
|
|
print "Frame " . $pkt->{frame_num} . " is a TX retransmit frame.\n";
|
|
}
|
|
$tx_amsdu_retrans_pkts += $pkt->{amsdu_frame_count};
|
|
}
|
|
my $ln = "" . $pkt->timestamp() . "\t" . $pkt->datarate() . "\n";
|
|
print $glb_fh_mcs_tx $ln;
|
|
if ($pkt->retrans()) {
|
|
$ln = "" . $pkt->timestamp() . "\t" . $pkt->retrans() . "\n";
|
|
print $glb_fh_rtx_tx $ln;
|
|
}
|
|
}
|
|
|
|
$dummy_rx_pkts += $pkt->{dummy_rx_pkts};
|
|
$dummy_tx_pkts += $pkt->{dummy_tx_pkts};
|
|
|
|
my $gen_ps = ($last_ps_timestamp + 1.0) < $pkt->{timestamp};
|
|
if ($gen_ps) {
|
|
my $diff = $pkt->{timestamp} - $last_ps_timestamp;
|
|
my $period_tot_pkts = $tot_pkts - $last_tot_pkts;
|
|
my $period_rx_pkts = $rx_pkts - $last_rx_pkts;
|
|
my $period_rx_amsdu_pkts = $rx_amsdu_pkts - $last_rx_amsdu_pkts;
|
|
my $period_rx_retrans_pkts_all = $rx_retrans_pkts_all - $last_rx_retrans_pkts_all;
|
|
my $period_rx_retrans_amsdu_pkts = $rx_amsdu_retrans_pkts - $last_rx_amsdu_retrans_pkts;
|
|
my $period_tx_pkts = $tx_pkts - $last_tx_pkts;
|
|
my $period_tx_amsdu_pkts = $tx_amsdu_pkts - $last_tx_amsdu_pkts;
|
|
my $period_tx_retrans_pkts_all = $tx_retrans_pkts_all - $last_tx_retrans_pkts_all;
|
|
my $period_tx_retrans_amsdu_pkts = $tx_amsdu_retrans_pkts - $last_tx_amsdu_retrans_pkts;
|
|
my $period_dummy_rx_pkts = $dummy_rx_pkts - $last_dummy_rx_pkts;
|
|
my $period_dummy_tx_pkts = $dummy_tx_pkts - $last_dummy_tx_pkts;
|
|
|
|
my $period_tot_pkts_ps = ($period_tot_pkts + $period_dummy_tx_pkts + $period_dummy_rx_pkts) / $diff;
|
|
my $period_rx_pkts_ps = ($period_rx_pkts + $period_dummy_rx_pkts) / $diff;
|
|
my $period_rx_amsdu_pkts_ps = $period_rx_amsdu_pkts / $diff;
|
|
my $period_rx_retrans_pkts_ps = $period_rx_retrans_pkts_all / $diff;
|
|
my $period_rx_retrans_amsdu_pkts_ps = $period_rx_retrans_amsdu_pkts / $diff;
|
|
my $period_tx_pkts_ps = ($period_tx_pkts + $period_dummy_tx_pkts) / $diff;
|
|
my $period_tx_amsdu_pkts_ps = $period_tx_amsdu_pkts / $diff;
|
|
my $period_tx_retrans_pkts_ps = $period_tx_retrans_pkts_all / $diff;
|
|
my $period_tx_retrans_amsdu_pkts_ps = $period_tx_retrans_amsdu_pkts / $diff;
|
|
my $period_dummy_rx_pkts_ps = $period_dummy_rx_pkts / $diff;
|
|
my $period_dummy_tx_pkts_ps = $period_dummy_tx_pkts / $diff;
|
|
|
|
$last_ps_timestamp = $pkt->timestamp();
|
|
$last_tot_pkts = $tot_pkts;
|
|
$last_rx_pkts = $rx_pkts;
|
|
$last_rx_amsdu_pkts = $rx_amsdu_pkts;
|
|
$last_rx_retrans_pkts_all = $rx_retrans_pkts_all;
|
|
$last_rx_amsdu_retrans_pkts = $rx_amsdu_retrans_pkts;
|
|
$last_tx_pkts = $tx_pkts;
|
|
$last_tx_amsdu_pkts = $tx_amsdu_pkts;
|
|
$last_tx_retrans_pkts_all = $tx_retrans_pkts_all;
|
|
$last_tx_amsdu_retrans_pkts = $tx_amsdu_retrans_pkts;
|
|
$last_dummy_rx_pkts = $dummy_rx_pkts;
|
|
$last_dummy_tx_pkts = $dummy_tx_pkts;
|
|
|
|
# 'tidno is -1 here, keeping format similar to the per-tid data to make generating reports easier.
|
|
my $ln = "" . $pkt->timestamp() . "\t-1\t$diff\t$period_tot_pkts_ps\t" .
|
|
"$period_rx_pkts_ps\t$period_rx_retrans_pkts_ps\t$period_rx_amsdu_pkts_ps\t$period_rx_retrans_amsdu_pkts_ps\t$period_dummy_rx_pkts_ps\t" .
|
|
"$period_tx_pkts_ps\t$period_tx_retrans_pkts_ps\t$period_tx_amsdu_pkts_ps\t$period_tx_retrans_amsdu_pkts_ps\t$period_dummy_tx_pkts_ps\n";
|
|
print $glb_fh_mcs_ps $ln;
|
|
}
|
|
|
|
$last_pkt = $pkt;
|
|
|
|
#print "pkt: rcvr: " . $pkt->receiver() . " transmitter: " . $pkt->transmitter() . "\n";
|
|
}
|