Index: trunk/tools/regpeek.pl
===================================================================
--- trunk/tools/regpeek.pl	(revision 30646)
+++ trunk/tools/regpeek.pl	(revision 30646)
@@ -0,0 +1,50 @@
+#! /usr/bin/perl -w
+
+use DBI;
+
+my $date = shift(@ARGV);
+unless(defined($date)) {
+    my @time = localtime;
+    $date = sprintf("%4d-%02d-%02d",$time[5] + 1900,$time[4] + 1,$time[3]);
+}
+print "Date: $date\n";
+chomp(my $bad_exp = `regtool -checkstatus -date $date -class_id ota33 -dbname gpc1 -simple | grep 'stop run' | head -1`);
+my @row = split /\s+/, $bad_exp;
+if ($#row == 18) {
+    print "     exp_name uri registered Nimfile summit_fault download_state newExp_state rawExp_state imfile_state exp_id exp_type dateobs obs_mode object burntool_state class_id summit_class_id is_downloaded is_registered\n";
+}
+else {
+    print "     exp_name registered Nimfile summit_fault download_state newExp_state exp_id exp_type obs_mode burntool_state summit_class_id is_downloaded is_registered\n";
+}
+print "CheckStatus: $bad_exp\n";
+$bad_exp = (split /\s+/, $bad_exp)[0];
+print "Exposure: $bad_exp is the current problem\n";
+
+my $dbname = 'gpc1';
+my $db = init_gpc_db();
+
+my $query = "select exp_name,class_id,burntool_state,data_state FROM rawImfile where exp_name = '$bad_exp'";
+
+my $data  = $db->selectall_arrayref( $query );
+print "#exp_name   class_id   bt_state   data_state\n";
+foreach my $row (@{ $data }) {
+    my ($exp_name,$class_id,$bt_state,$data_state) = @{ $row };
+    print "$exp_name  $class_id $bt_state $data_state\n";
+}
+
+
+
+
+sub init_gpc_db {
+    use constant DB_SOCKET => '/var/run/mysqld/mysqld.sock';
+    my $dbserver = 'ippdb01';
+    my $dbuser = 'ippuser';
+    my $dbpass = 'ippuser';
+    $db = DBI->connect("DBI:mysql:database=${dbname};host=${dbserver};" .
+                       "mysql_socket=" . DB_SOCKET(),
+                       ${dbuser},${dbpass},
+{ RaiseError => 1, AutoCommit => 1}
+        ) or die "Unable to connect to database $DBI::errstr\n";
+return($db);
+}
+