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

lf_gui_cmd.pl: adds switch for setting default report verbosity

Browse Source 
Signed-off-by: Jed Reynolds <jed@candelatech.com>
This commit is contained in:
Jed Reynolds
2021-05-17 13:21:00 -07:00
parent 3f047763bb
commit 5399796755
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lf_gui_cmd.pl
View File

@@ -32,6 +32,7 @@ my $scenario = "";
my $tconfig = ""; # test config my $tconfig = ""; # test config
my $rpt_dest = ""; my $rpt_dest = "";
my $show_help = 0; my $show_help = 0;
my $verbosity = -1;
my @modifiers_key = (); my @modifiers_key = ();
my @modifiers_val = (); my @modifiers_val = ();
@@ -50,6 +51,7 @@ my $usage = qq($0 [--manager { hostname or address of LANforge GUI machine } ]
[--tconfig {test configuration name, use defaults if not specified} ] [--tconfig {test configuration name, use defaults if not specified} ]
[--rpt_dest {Copy report to destination once it is complete} ] [--rpt_dest {Copy report to destination once it is complete} ]
[--cmd { command to send to the GUI } ] [--cmd { command to send to the GUI } ]
[--verbosity { report verbosity 1 - 11 } ]
[--modifier " [--modifier "
Example: Example:
@@ -75,6 +77,7 @@ GetOptions (
'rpt_dest=s' => \$rpt_dest, 'rpt_dest=s' => \$rpt_dest,
'port=s' => \$port, 'port=s' => \$port,
'cmd|c=s' => \$cmd, 'cmd|c=s' => \$cmd,
'verbosity|v=i' => \$verbosity,
) || die("$usage"); ) || die("$usage");
if ($show_help) { if ($show_help) {
@@ -141,6 +144,9 @@ if ($ttype ne "") {
if ($tconfig ne "") { if ($tconfig ne "") {
print doCmd("cv load '$tname' '$tconfig'"); print doCmd("cv load '$tname' '$tconfig'");
} }
if ($verbosity >= 1) {
print doCmd("cv set '$tname' 'VERBOSITY' '$verbosity'");
}
print doCmd("cv click '$tname' 'Auto Save Report'"); print doCmd("cv click '$tname' 'Auto Save Report'");
for ($i = 0; $i<@modifiers_key; $i++) { for ($i = 0; $i<@modifiers_key; $i++) {