Telecominfraproject/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2026-01-27 10:23:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

Improve gui cmd script.

Browse Source
This commit is contained in:
Ben Greear
2019-10-13 05:27:49 -07:00
parent be5e05fe38
commit a4041a11c9
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lf_gui_cmd.pl
View File

@@ -85,20 +85,20 @@ if ($cmd ne "") {
}
if ($ttype ne "") {
doCmd("cv create '$ttype' '$tname'");
print doCmd("cv create '$ttype' '$tname'");
if ($tconfig ne "") {
doCmd("cv load 'tname' '$tconfig'");
print doCmd("cv load '$tname' '$tconfig'");
}
doCmd("cv click '$tname' 'Auto Save Report'");
doCmd("cv click '$tname' 'Start'");
print doCmd("cv click '$tname' 'Auto Save Report'");
print doCmd("cv click '$tname' 'Start'");
while (1) {
my $rslt = doCmd("cv get '$tname' 'Report Location:'");
print "Result-:$rslt:-\n";
#print "Result-:$rslt:-\n";
if ($rslt =~ /^\s*Report Location:::(.*)/) {
my $loc = $1;
if ($loc eq "") {
# Wait longer
sleep(1);
sleep(3);
}
else {
# Copy some place it can be seen easily?
@@ -110,6 +110,9 @@ if ($ttype ne "") {
last;
}
}
else {
sleep(3);
}
}
}