Changeset 33415 for branches/meh_branches/ppstack_test/tools/regpeek.pl

Timestamp:

Mar 5, 2012, 5:19:48 PM (14 years ago)

Author:

mhuber

Message:

merging latest r33407 trunk changes to meh_branches/ppstack_test

Location:

branches/meh_branches/ppstack_test

Files:

• . (modified) (1 prop)
• tools/regpeek.pl (modified) (1 diff)

branches/meh_branches/ppstack_test/tools/regpeek.pl

@@ -43 +43 @@
 foreach my $row (@{ $data }) {
     my ($exp_name,$class_id,$bt_state,$data_state,$uri,$exp_id) = @{ $row };
-    print "$exp_name  $class_id $bt_state $data_state $uri\n";
+    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 "\n";
     if ($logs) {
         $reg_log = $uri;