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

wifi-diag: Normalize whitespace.

Browse Source 
Some of Jed's changes had some funky whitespace.  Back to xemacs
standards.
This commit is contained in:
Ben Greear
2018-11-26 09:11:26 -08:00
parent 785e8da48b
commit 15b742a290
1 changed files with 25 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
wifi_diag/wifi_pcap_diag.pl
View File

@@ -10,24 +10,22 @@ $| = 1;
use Cwd qw(getcwd); use Cwd qw(getcwd);
my $cwd = getcwd(); my $cwd = getcwd();
if (defined $ENV{'DEBUG'} && $ENV{'DEBUG'} eq "1") { if (defined $ENV{'DEBUG'} && $ENV{'DEBUG'} eq "1") {
use diagnostics; use diagnostics;
use Carp; use Carp;
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) }; $SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
$SIG{ __WARN__ } = sub { Carp::confess( @_ ) }; $SIG{ __WARN__ } = sub { Carp::confess( @_ ) };
} }
# this is pedantic necessity for the following use statements # this is pedantic necessity for the following use statements
use lib '/home/lanforge/scripts'; use lib '/home/lanforge/scripts';
if ( $cwd =~ q(.*LANforge-Server\scripts$)) { if ( $cwd =~ q(.*LANforge-Server\scripts$)) {
use lib '/home/lanforge/scripts/LANforge'; use lib '/home/lanforge/scripts/LANforge';
use lib '/home/lanforge/scripts/wifi_diag'; use lib '/home/lanforge/scripts/wifi_diag';
} } else {
else { if ( -d "wifi_diag" ) {
if ( -d "wifi_diag" ) { use lib '.';
use lib '.'; } else {
} use lib '.';
else { }
use lib '.';
}
} }
use PeerConn; use PeerConn;
use Packet; use Packet;
@@ -88,20 +86,20 @@ View {report-prefix}/index.html for the report, and {report-prefix}/foo.txt for
GetOptions GetOptions
( (
'help|h' => \$show_help, 'help|h' => \$show_help,
'dut=s' => \$dut, 'dut=s' => \$dut,
'report_prefix=s' => \$::report_prefix, 'report_prefix=s' => \$::report_prefix,
'gen_report' => \$gen_report, 'gen_report' => \$gen_report,
) || (print STDERR $usage && exit(1)); ) || (print STDERR $usage && exit(1));
if ($show_help) { if ($show_help) {
print $usage; print $usage;
exit 0 exit 0
} }
$::report_prefix .= "/" $::report_prefix .= "/"
if ($report_prefix !~ m{/$}); if ($report_prefix !~ m{/$});
my $glb_ba_tx_fname = $::report_prefix . "glb-ba-tx-rpt.txt"; 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_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_ps_fname = $::report_prefix . "glb-mcs-ps-rpt.txt";
@@ -125,8 +123,8 @@ open($glb_fh_rtx_tx, ">", $glb_rtx_tx_fname) or die("Can't open $glb_rtx_tx_fnam
open($glb_fh_rtx_rx, ">", $glb_rtx_rx_fname) or die("Can't open $glb_rtx_rx_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" . 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_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"; "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; print $glb_fh_mcs_ps $hdr;
# Global stats logic. # Global stats logic.
@@ -184,9 +182,8 @@ while (<>) {
processPkt($cur_pkt); processPkt($cur_pkt);
} }
$cur_pkt = Packet->new(frame_num => $1, $cur_pkt = Packet->new(frame_num => $1,
raw_pkt => $ln); raw_pkt => $ln);
} } else {
else {
$cur_pkt->append($ln); $cur_pkt->append($ln);
} }
} }