Changeset 28715 for trunk/tools/roboczar.pl

Timestamp:

Jul 26, 2010, 12:06:32 PM (16 years ago)

Author:

rhenders

Message:

Checking for Db server error when grabbing labels

File:

• trunk/tools/roboczar.pl (modified) (3 diffs)

trunk/tools/roboczar.pl

@@ -86 +86 @@
     my $reverting = 0;
     my $server = undef;
-
-    my $rows = undef; # TODO just call label
-        my $row;
+    my $rows = undef;
+    my $row = undef;
 
     while (1) {
@@ -94 +93 @@
         updateServerStatus();
         updateLabels();
-        $rows = $czarDb->getCurrentLabels("stdscience");
+        if (!$czarDb->getCurrentLabels("stdscience", \$rows)) {next;}
 
         foreach $stage (@stages) {
-            $totalNew=$totalFaults=$totalFull=0;
 
             $server = $pantasks->getServerForThisStage($stage);
@@ -105 +103 @@
             print "* Checking labels for $stage stage\n";
 
+            $totalNew=$totalFaults=$totalFull=0;
             foreach $row ( @{$rows} ) {
                 my ($label) = @{$row};