Changeset 25562 for trunk/tools/examine_burntool_pcontrol.pl

Timestamp:

Sep 24, 2009, 3:22:13 PM (17 years ago)

Author:

watersc1

Message:

Add -P option to make_ to allow obs_mode = 'Unknown' exposures to be included for PR image purposes.

Increase the limit of exposures examine_ believes you can take in one night from 1000 to 10000. Thanks, 2008-12-02.

File:

• trunk/tools/examine_burntool_pcontrol.pl (modified) (3 diffs)

trunk/tools/examine_burntool_pcontrol.pl

@@ -5 +5 @@
 use Getopt::Std;
 
-getopts('hfcP',\%opt);
+getopts('hfcPv:',\%opt);
 if (exists($opt{h})) {
     print STDERR "Usage: examine_burntool_pcontrol.pl [-f] <pcontrol.pro>\n";
     print STDERR "         -f          Read all burntool entries, even those commented out.\n";
     print STDERR "         -c          Print out the needed mysql statement to do a convert. DOES NOT EXECUTE THIS!\n";
+    print STDERR "         -v <val>    Use this value as the target burntool_state in convert statements.\n";
     print STDERR "         -P          Print out the ipp_apply_burntool.pl commands, even if fully updated.\n";
     print STDERR "\n";
@@ -124 +125 @@
     # Get the data.  The limit is there to keep the database happy.  I don't think you can observe that many
     # images on a single night.
-    $sth = "SELECT exp_id,exp_name,obs_mode,dateobs,class_id,burntool_state,comment FROM rawImfile WHERE dateobs >= '${dmin}' AND dateobs <= '${dmax}' order by dateobs limit 60000";
-
-    $no_sth = "UPDATE rawImfile SET burntool_state = $convert_bt_state WHERE dateobs >= '${dmin}' AND dateobs <= '${dmax}' AND user_1 = 1.0;";
+    $sth = "SELECT exp_id,exp_name,obs_mode,dateobs,class_id,burntool_state,comment FROM rawImfile WHERE dateobs >= '${dmin}' AND dateobs <= '${dmax}' order by dateobs limit 600000";
+
     $data_ref = $db->selectall_arrayref( $sth );
 
@@ -140 +140 @@
     print "#### $sth\n";
     if (exists($opt{c})) {
+        if (exists($opt{v})) {
+            $no_sth = "UPDATE rawImfile SET burntool_state = $opt{v} WHERE dateobs >= '${dmin}' AND dateobs <= '${dmax}';";
+        }
+        else {
+            $no_sth = "UPDATE rawImfile SET burntool_state = $convert_bt_state WHERE dateobs >= '${dmin}' AND dateobs <= '${dmax}';";
+        }
         print "#### $no_sth\n";
     }