Changeset 32560

Timestamp:

Oct 19, 2011, 2:22:44 PM (15 years ago)

Author:

watersc1

Message:

suggest a fix for things that may be broken

File:

• tags/ipp-20110622/tools/regpeek.pl (modified) (1 diff)

tags/ipp-20110622/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;