From a4041a11c98bdca3cb2e0f7fb26265b56c4ba02c Mon Sep 17 00:00:00 2001
From: Ben Greear <greearb@candelatech.com>
Date: Sun, 13 Oct 2019 05:27:49 -0700
Subject: [PATCH] Improve gui cmd script.

---
 lf_gui_cmd.pl | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/lf_gui_cmd.pl b/lf_gui_cmd.pl
index 745a4af2..59950e95 100755
--- a/lf_gui_cmd.pl
+++ b/lf_gui_cmd.pl
@@ -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);
+    }
   }
 }