Index: trunk/tools/regpeek.pl
===================================================================
--- trunk/tools/regpeek.pl	(revision 40455)
+++ trunk/tools/regpeek.pl	(revision 40459)
@@ -21,6 +21,6 @@
 }
 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,5 +49,5 @@
     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";