Changeset 27838 for branches/tap_branches/tools/examine_burntool_pcontrol.pl

Timestamp:

May 3, 2010, 8:41:49 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/tap_branches

Files:

• . (modified) (1 prop)
• tools/examine_burntool_pcontrol.pl (modified) (8 diffs)

branches/tap_branches/tools/examine_burntool_pcontrol.pl

@@ -5 +5 @@
 use Getopt::Std;
 
-getopts('hfcPv:',\%opt);
+getopts('AhfcPv:',\%opt);
 if (exists($opt{h})) {
     print STDERR "Usage: examine_burntool_pcontrol.pl [-f] <pcontrol.pro>\n";
@@ -12 +12 @@
     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 "         -A          Print out the ipp_apply_burntool.pl commands, for every exposure not fully updated.\n";
     print STDERR "\n";
     print STDERR "         Reads in the pcontrol.pro file you're using to run burntool, and uses the\n";
@@ -17 +18 @@
     print STDERR "         status of the processing.  On the OTA grid:\n";
     print STDERR "                  _             Blank chip\n";
-    print STDERR "                  N             Null/zero value for burntool_state. No burntool attempted.\n";
-    print STDERR "                  O             -1 value for burntool_state. Burntool is running.\n";
-    print STDERR "                  E             -2 value for burntool_state. Error!\n";
+    print STDERR "                  O             Null/zero value for burntool_state. No burntool attempted (yet).\n";
+    print STDERR "                  P             -1 value for burntool_state. Burntool is running.\n";
+    print STDERR "                  E             -2 value for burntool_state. Error! (modified raw pixels)\n";
+    print STDERR "                  X             -3 value for burntool_state. Burntool segfaulted on this chip.\n";
     print STDERR "                  B             Current version value for burntool_state. Burntool succeeded.\n";
     print STDERR "                  b             Old version value for burntool_state. Burntool needs to be rerun.\n";
@@ -51 +53 @@
         $burncount++;
     }
-    elsif ($burntool_state == -1) {
+    elsif ($burntool_state == -1) {   # processing
         $char = '[01;33mP[m';
     }
-    elsif ($burntool_state == 0) {
+    elsif ($burntool_state == 0) {    # has not been processed yet
         $char = '[31mO[m';
     }
-    elsif ($burntool_state == -2) {
+    elsif ($burntool_state == -2) {   # modified pixel data
         $char = '[35;01;44;05mE[m';
     }
-    elsif ($burntool_state == -3) {
+    elsif ($burntool_state == -3) {   # previous burntool segfaulted.
         $char = '[34mX[m';
     }
-    else {
+    else {                            # old version
         $char = '[32mb[m';
     }
@@ -77 +79 @@
 # Engauge autoflush, in case the database server is acting up.
 $| = 1;
+
+# Set up the class->host hash
+%host  = ('XY01' => 'ipp014', 'XY02' => 'ipp014', 'XY03' => 'ipp038', 'XY04' => 'ipp038', 
+          'XY05' => 'ipp023', 'XY06' => 'ipp023', 
+          'XY10' => 'ipp039', 'XY11' => 'ipp039', 'XY12' => 'ipp024', 'XY13' => 'ipp024', 
+          'XY14' => 'ipp040', 'XY15' => 'ipp040', 'XY16' => 'ipp026', 'XY17' => 'ipp026', 
+          'XY20' => 'ipp041', 'XY21' => 'ipp041', 'XY22' => 'ipp042', 'XY23' => 'ipp042', 
+          'XY24' => 'ipp043', 'XY25' => 'ipp043', 'XY26' => 'ipp028', 'XY27' => 'ipp028', 
+          'XY30' => 'ipp044', 'XY31' => 'ipp044', 'XY32' => 'ipp029', 'XY33' => 'ipp029', 
+          'XY34' => 'ipp045', 'XY35' => 'ipp045', 'XY36' => 'ipp030', 'XY37' => 'ipp030', 
+          'XY40' => 'ipp046', 'XY41' => 'ipp046', 'XY42' => 'ipp031', 'XY43' => 'ipp031', 
+          'XY44' => 'ipp047', 'XY45' => 'ipp047', 'XY46' => 'ipp032', 'XY47' => 'ipp032', 
+          'XY50' => 'ipp048', 'XY51' => 'ipp048', 'XY52' => 'ipp033', 'XY53' => 'ipp033', 
+          'XY54' => 'ipp049', 'XY55' => 'ipp049', 'XY56' => 'ipp034', 'XY57' => 'ipp034', 
+          'XY60' => 'ipp050', 'XY61' => 'ipp050', 'XY62' => 'ipp035', 'XY63' => 'ipp035', 
+          'XY64' => 'ipp051', 'XY65' => 'ipp051', 'XY66' => 'ipp036', 'XY67' => 'ipp036', 
+          'XY71' => 'ipp052', 'XY72' => 'ipp052', 'XY73' => 'ipp015', 'XY74' => 'ipp015', 
+          'XY75' => 'ipp053', 'XY76' => 'ipp053');
 
 # Load the pcontrol.pro file, and create arrays of the dates included
@@ -129 +149 @@
     $data_ref = $db->selectall_arrayref( $sth );
 
-
     # Reset
     $cur_exp_id = -99;
@@ -185 +204 @@
                 printf("%6d %11s %11s %19s %2d %64s %s\n",
                        $cur_exp_id,$cur_exp_name,$cur_obs_mode,$cur_dateobs,$burncount, $V,$cur_comment);
+
+                if (($burncount != 60)&&(exists($opt{A}))) {
+                    for ($j = 0; $j < 64; $j++) {
+#           printf("%d %s %d\n",$j, $vector[$j], ($vector[$j] !~ /B/));
+                        if (($vector[$j] !~ /B/)&&(exists($opt{A}))) {
+                            if ($vector[$j] ne '_') {
+                                $id = sprintf("XY%d%d",int($j / 8),$j % 8);
+                                print "#### ssh ipp\@$host{$id} && ipp_apply_burntool.pl --class_id $id  --dateobs_begin $dmin --dateobs_end $dmax --dbname gpc1 --logfile burntool_logs/${id}.${dmin}.log\n";
+                            }
+                        }
+                    }
+                }
+
                 $burncount = 0;
                 for ($j = 0; $j < 64; $j++) {
@@ -213 +245 @@
                 if ($vector[$j] ne '_') {
                     $id = sprintf("XY%d%d",int($j / 8),$j % 8);
-                    print "#### ipp_apply_burntool.pl --class_id $id  --dateobs_begin $dmin --dateobs_end $dmax --dbname gpc1 --logfile ${id}.${dmin}.log\n";
+                    print "#### ssh ipp\@$host{$id} && ipp_apply_burntool.pl --class_id $id  --dateobs_begin $dmin --dateobs_end $dmax --dbname gpc1 --logfile burntool_logs/${id}.${dmin}.log\n";
                 }
             }