Index: trunk/tools/roboczar.pl
===================================================================
--- trunk/tools/roboczar.pl	(revision 28926)
+++ trunk/tools/roboczar.pl	(revision 29059)
@@ -12,4 +12,5 @@
 use czartool::Nebulous;
 use czartool::Czarplot;
+use czartool::Burntool;
 
 my $period = 60;
@@ -27,7 +28,9 @@
 my $pantasks = new czartool::Pantasks();
 my $czarplot = new czartool::Czarplot($czarDb, "%Y%m%d-%H%M%S", "png font \"/usr/share/fonts/corefonts/arial.ttf\" 8", "/tmp", $save_temps); # TODO hardcoded font path
+my $burntool = new czartool::Burntool();
+
 $czarDb->setDateFormat("%Y%m%d-%H%i%s");
 
-my @stages = ("chip", "cam", "fake", "warp", "stack", "diff", "magic", "magicDS", "dist");
+my @stages = ("burntool", "chip", "cam", "fake", "warp", "stack", "diff", "magic", "magicDS", "dist");
 
 
@@ -105,5 +108,5 @@
 
         # sort out times
-        $begin =  strftime('%Y-%m-%d 07:00',localtime);
+        $begin =  strftime('%Y-%m-%d 06:30',localtime);
         $end = $czarDb->getNowTimestamp();
 
@@ -233,8 +236,19 @@
             chomp($label);
 
-            $new = $gpc1Db->countExposures($label, $stage, $newState);
-            $full = $gpc1Db->countExposures($label, $stage, "full");
-            $faults = $gpc1Db->countFaults($label, $stage, $newState);
-
+            if ($stage eq "burntool") {
+
+                if ($labelServer eq "stdscience") {
+
+                    $burntool->getPendingAndProcessed($label, \$new, \$full);
+                    $faults = 0;
+                }
+                else { $new = $full = $faults = 0;}
+            }
+            else {
+
+                $new = $gpc1Db->countExposures($label, $stage, $newState);
+                $full = $gpc1Db->countExposures($label, $stage, "full");
+                $faults = $gpc1Db->countFaults($label, $stage, $newState);
+            }
             #printf("%s  %s, %s, %d, %d\n", $labelServer, $label, $stage, $new, $faults);
             $totalNew += $new;