Index: trunk/tools/regpeek.pl
===================================================================
--- trunk/tools/regpeek.pl	(revision 31382)
+++ trunk/tools/regpeek.pl	(revision 32419)
@@ -43,5 +43,9 @@
 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;