Index: trunk/ippMonitor/czartool/roboczar.pl
===================================================================
--- trunk/ippMonitor/czartool/roboczar.pl	(revision 38267)
+++ trunk/ippMonitor/czartool/roboczar.pl	(revision 38276)
@@ -34,4 +34,9 @@
 #       "chipbackground"
 
+# XXX Currently the code to check for stuck stages is commented out.
+# Now the function StageMetrics needs a database so declare one.
+# This functionality is not tested.
+my $dbname = 'gpc1';
+
 my @interestedServers = $config->getRoboczarInterestedServers();
 
@@ -52,5 +57,5 @@
         $anythingToReport = 1;
     }
-#    if (anyStuckStages("2 HOUR", \$stuckMessage)) {
+#    if (anyStuckStages($dbname, "2 HOUR", \$stuckMessage)) {
 
  #       $message .= "\n\n" . $stuckMessage;
@@ -80,5 +85,5 @@
 ###########################################################################
 sub anyStuckStages {
-    my ($interval, $message) = @_;
+    my ($dbname, $interval, $message) = @_;
 
     my $end = $czarDb->getNowTimestamp();
@@ -96,7 +101,7 @@
     foreach $stage (@stages) {
 
-    my $stageMetrics = new czartool::StageMetrics($stage, "all_stdscience_labels", $begin, $end);
+    my $stageMetrics = new czartool::StageMetrics($stage, "all_stdscience_labels", $dbname, $begin, $end);
 
-    if ($czarDb->runAnalysis($stageMetrics)) {$stageMetrics->printMe();}
+    if ($czarDb->runAnalysis($stageMetrics, $dbname)) {$stageMetrics->printMe();}
 
         if ($stageMetrics->getStuck() && $stage eq "burntool" && !$worryAboutBurntool) {next;}