Changeset 27070

Timestamp:

Feb 24, 2010, 4:52:49 PM (16 years ago)

Author:

watersc1

Message:

added host information to make manual running easier

File:

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

trunk/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";
@@ -79 +80 @@
 $| = 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
 $file = shift(@ARGV);
@@ -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";
                 }
             }