Changeset 25624 for branches/eam_branches/20090715/tools/make_burntool_pcontrol.pl

Timestamp:

Sep 27, 2009, 11:34:07 AM (17 years ago)

Author:

eugene

Message:

merge changes from trunk

File:

• branches/eam_branches/20090715/tools/make_burntool_pcontrol.pl (modified) (4 diffs)

branches/eam_branches/20090715/tools/make_burntool_pcontrol.pl

@@ -8 +8 @@
 use constant DB_SOCKET => '/var/run/mysqld/mysqld.sock';
 
-getopts('hbQ:d:',\%opt);
+getopts('hbPQ:d:',\%opt);
 if (exists($opt{h})) {
     print STDERR "Usage: make_burntool_pcontrol.pl -b {-Q <SQL_WHERE> | -d <DATE> | DATE_MIN0 DATE_MAX0 DATE_MIN1 DATE_MAX1 [...]}\n";
@@ -16 +16 @@
     print STDERR "         -d DATE           Specify a single day to look for.\n";
     print STDERR "         -b                Only print burntool lines.\n";
+    print STDERR "         -P                PR images have bad obs_mode values. Work around that.\n";
     print STDERR "\n";
     print STDERR "         Scans the GPC1 database, and identifies \"science\" observations based on the obs_mode.\n";
@@ -37 +38 @@
 %science = ('MD' => 1, '3PI' => 1, 'STS' => 1, 'CAL' => 1, 'M31' => 1, 'SS' => 1,
             'ENGINEERING' => 0, 'NULL' => 0, 'Unknown' => 0, ' ' => 0);
-
+if (exists($opt{P})) {
+    $science{Unknown} = 1;
+}
 # Zero the arrays.
 @dates_min = ();
@@ -135 +138 @@
             $science{$obs_mode} = 0;
         }
-
-        if (($science{$obs_mode} == 1)&&($comment !~ /Daytime/)) {
+#%science = ('MD' => 1, '3PI' => 1, 'STS' => 1, 'CAL' => 1, 'M31' => 1, 'SS' => 1,
+#           'ENGINEERING' => 0, 'NULL' => 0, 'Unknown' => 0, ' ' => 0);
+# I don't like this bit, but we need to work around the bad values of obs_mode that periodically crop up.
+# This isn't the most robust solution (which would of course be "having trustworthy obs_mode values"), but
+# it'll probably work for now.
+        if ((($science{$obs_mode} == 1)&&($comment !~ /Daytime/))||
+            (($science{$obs_mode} == 0)&&(
+                                          ($comment =~ /MD/)||($comment =~ /ThreePi/)||
+                                          ($comment =~ /STS/)||($comment =~ /M31/)||
+                                          ($comment =~ /CAL/)||($comment =~ /SS/))))                                      
+        {
             if ($start_s[-1] == 0) {
                 $start_s[-1] = $et - 1800;