Changeset 29374

Timestamp:

Oct 11, 2010, 3:11:38 PM (16 years ago)

Author:

rhenders

Message:

removed redundant method

File:

• trunk/tools/roboczar.pl (modified) (1 diff)

trunk/tools/roboczar.pl

@@ -63 +63 @@
 ###########################################################################
 #
-#  Checks the status of a given label
-#
-###########################################################################
-sub checkLabel {
-    my ($label, $interval) = @_;
-
-    my $faultsNow;
-    my $faultsInPast;
-    my $newFaults;
-    my $pendingNow;
-    my $processedRecently;
-    my $stage = undef;
-
-    print "* Checking all stages for label $label\n";
-
-    foreach $stage (@stages) {
-
-        # check for increasing faults
-        $faultsNow = $czarDb->countFaultsInPast($label, $stage, "0 MINUTE");
-        $faultsInPast = $czarDb->countFaultsInPast($label, $stage, $interval);
-        if ($faultsNow > $faultsInPast) {
-            $newFaults = $faultsNow - $faultsInPast;
-            print "There have been $newFaults new faults in the last $interval (label='$label', stage='$stage')\n";
-        }
-
-        # check for lack of processing
-        $pendingNow =  $czarDb->countPendingNow($label, $stage);
-        $processedRecently = $czarDb->countProcessed($label, $stage, $interval);
-        if ($pendingNow > 0 && $processedRecently < 1) {
-
-            print "Only $processedRecently exposures have processed out of $pendingNow($faultsNow) pending in the last $interval (label='$label', stage='$stage')\n";
-
-        }
-    }
-    #sendEmail("roydhenderson\@gmail.com", "roboczar\@ipp.com", "Roboczar update", "Some content");
-}
-
-###########################################################################
-#
 # Sends an email 
 #