Changeset 40476 for branches/czw_branch/20170908/tools/regpeek.pl

Timestamp:

Jun 27, 2018, 3:17:00 PM (8 years ago)

Author:

eugene

Message:

merge changes from trunk

Location:

branches/czw_branch/20170908/tools

Files:

• . (modified) (1 prop)
• regpeek.pl (modified) (2 diffs)

branches/czw_branch/20170908/tools/regpeek.pl

@@ -21 +21 @@
 }
 print "Date: $date\n";
-print "CMD: regtool -checkstatus -date $date -class_id ota33 -dbname gpc1 -simple\n";
-chomp(my $bad_exp = `regtool -checkstatus -date $date -class_id ota33 -dbname gpc1 -simple | grep 'stop run' | head -1`);
+print "CMD: regtool -checkstatus -date $date -class_id ota33 -dbname $dbname -simple\n";
+chomp(my $bad_exp = `regtool -checkstatus -date $date -class_id ota33 -dbname $dbname -simple | grep 'stop run' | head -1`);
 my @row = split /\s+/, $bad_exp;
 if ($#row == 18) {
@@ -49 +49 @@
     print "$exp_name  $class_id $bt_state $data_state $uri\t";
     if (($bt_state > -10)&&($data_state eq 'check_burntool')) {
-        print "#??? regtool -updateprocessedimfile -exp_id $exp_id -class_id $class_id -set_state pending_burntool -dbname gpc1";
+        print "#??? regtool -updateprocessedimfile -exp_id $exp_id -class_id $class_id -set_state pending_burntool -dbname $dbname";
     }
     print "\n";