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

firemod: change variables for use_ports, whitespace

Browse Source
This commit is contained in:
Jed Reynolds
2020-02-17 16:42:22 -08:00
parent 3f7b296b8c
commit abdd4958ab
1 changed files with 10 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
lf_firemod.pl
View File

@@ -180,6 +180,8 @@ my $cmd;
my $log_cli = "unset"; # use ENV{LOG_CLI} elsewhere my $log_cli = "unset"; # use ENV{LOG_CLI} elsewhere
my $show_help = 0; my $show_help = 0;
my $use_speeds_str;
my $use_ports_str;
our @use_ports = (); our @use_ports = ();
our @use_speeds = (); our @use_speeds = ();
@@ -219,7 +221,8 @@ GetOptions
'stats_from_file=s' => \$::stats_from_file, 'stats_from_file=s' => \$::stats_from_file,
'ttl=i' => \$::ttl, 'ttl=i' => \$::ttl,
'use_csums=s' => \$::use_csums, 'use_csums=s' => \$::use_csums,
'use_ports=s' => \@::use_ports, 'use_ports=s' => \$::use_ports_str,
'use_speeds=s' => \$::use_speeds_str,
'test_mgr=s' => \$::test_mgr, 'test_mgr=s' => \$::test_mgr,
'tos=s' => \$::tos, 'tos=s' => \$::tos,
@@ -493,28 +496,6 @@ if (grep {$_ eq $::action} split(',', "show_endp,set_endp,create_endp,create_arm
$option_map{ $end_val } = $value; $option_map{ $end_val } = $value;
$endval_done++; $endval_done++;
} }
# This below just does not work right, for instance with L3 endp and these values: RealRxRate,RealTxRate,MinTxRate
# --Ben
#@parts = ($match =~ m/( *[^ ]+):( *\S+ [^ #]*)(?! #|\S+:)/g);
#for (my $i=0; $i < @parts; $i+=2) {
# $option = $parts[$i];
# $option =~ s/^\s*(.*)\s*$/$1/; # Trim whitespace
# print " parts[$option] ";
# if (defined $option_map{ $option } ) {
# my $value = $parts[ $i + 1 ];
# if ($value =~ /^\s*([^ ]+):\s+/) {
# $value = "-";
# }
# else {
# $value =~ s/^\s*(.*)\s*$/$1/;
# }
# #print "\n D end_val[$end_val] option[$option] now ".$value."\n";
# $option_map{ $option } = $value;
# $endval_done++;
# last;
# }
#}
} }
} # ~matches } # ~matches
} # ~endp_vals } # ~endp_vals