Index: /trunk/tools/examine_burntool_pcontrol.pl
===================================================================
--- /trunk/tools/examine_burntool_pcontrol.pl	(revision 27069)
+++ /trunk/tools/examine_burntool_pcontrol.pl	(revision 27070)
@@ -5,5 +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,4 +12,5 @@
     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,4 +80,22 @@
 $| = 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,4 +204,17 @@
 		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,5 +245,5 @@
 		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";
 		}
 	    }