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

firemod: handles endp_vals keys Card,Port,Pattern,Endpoint,Type and EID

Browse Source
This commit is contained in:
Jed Reynolds
2020-03-23 17:55:16 -07:00
parent 9467cca9f5
commit fff56c0a10
1 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
lf_firemod.pl
View File

@@ -261,12 +261,9 @@ elsif ($tos eq "VO") {
$tos = 192; $tos = 192;
} }
if (defined $ENV{DEBUG}) { use Data::Dumper;
use Data::Dumper;
}
if ($::debug) { if ($::debug) {
use Data::Dumper;
$ENV{DEBUG} = 1 if (!(defined $ENV{DEBUG})); $ENV{DEBUG} = 1 if (!(defined $ENV{DEBUG}));
} }
@@ -346,8 +343,6 @@ if (grep {$_ eq $::action} split(',', "show_endp,set_endp,create_endp,create_arm
} }
elsif ($::action eq "show_endp") { elsif ($::action eq "show_endp") {
if ((defined $::endp_vals) && ("$::endp_vals" ne "")) { if ((defined $::endp_vals) && ("$::endp_vals" ne "")) {
my %option_map = (); my %option_map = ();
my $option = ''; my $option = '';
for $option (split(',', $::endp_vals)) { for $option (split(',', $::endp_vals)) {
@@ -368,6 +363,12 @@ if (grep {$_ eq $::action} split(',', "show_endp,set_endp,create_endp,create_arm
if ($option =~ /^Rx[ _-]Pkts$/ ) { $option = "Rx-Pkts-Total"; } if ($option =~ /^Rx[ _-]Pkts$/ ) { $option = "Rx-Pkts-Total"; }
if ($option =~ /^Tx[ _-]Pkts$/ ) { $option = "Tx-Pkts-Total"; } if ($option =~ /^Tx[ _-]Pkts$/ ) { $option = "Tx-Pkts-Total"; }
if ($option =~ /^EID$/i ) {
$option_map{ "Shelf" } = '';
$option_map{ "Card" } = '';
$option_map{ "Port" } = '';
}
# we don't know if we're armageddon or layer 3 # we don't know if we're armageddon or layer 3
if ($option =~ /tx_bytes/ ) { if ($option =~ /tx_bytes/ ) {
$option_map{ "Tx-Bytes-Total" } = ''; $option_map{ "Tx-Bytes-Total" } = '';
@@ -401,10 +402,18 @@ if (grep {$_ eq $::action} split(',', "show_endp,set_endp,create_endp,create_arm
} }
my $rh_value_map = $::utils->show_as_hash(\@lines); my $rh_value_map = $::utils->show_as_hash(\@lines);
if ($debug && ($quiet ne "yes")) {
my @keyz = sort keys(%$rh_value_map);
print Dumper(\@keyz);
}
for my $option (keys %option_map) { for my $option (keys %option_map) {
my $val = '-'; my $val = '-';
if (defined $rh_value_map->{$option}) { if ($option =~ /^EID$/i) {
$val = "1.".$rh_value_map->{"Card"}.".".$rh_value_map->{"Port"};
}
elsif (defined $rh_value_map->{$option}) {
$val = $rh_value_map->{$option}; $val = $rh_value_map->{$option};
if ($option =~ /Latency/) { if ($option =~ /Latency/) {