Changeset 29281

Timestamp:

Sep 30, 2010, 9:22:46 AM (16 years ago)

Author:

rhenders

Message:

Added method to check whether a server has been down for a defined amount of time; new method to optimize all large tables

File:

• trunk/tools/czartool/CzarDb.pm (modified) (1 diff)

trunk/tools/czartool/CzarDb.pm

@@ -682 +682 @@
         $fromTime = $toTime;
     }
+}
+
+###########################################################################
+#
+# Optimizes all tables that need to be optimized 
+#
+###########################################################################
+sub optimize {
+        my ($self) = @_;
+
+    my $stage = undef;
+    foreach $stage (@stages) {
+
+        $self->optimizeTable($stage);
+    }
+
+    $self->optimizeTable("cluster_space");
+    $self->optimizeTable("servers");
+}
+
+###########################################################################
+#
+# Returns if a particular server has been down for a certain interval 
+#
+###########################################################################
+sub isServerDown {
+    my ($self, $server, $interval) = @_;
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    SELECT COUNT(*) 
+        FROM servers
+        WHERE server = "$server" 
+        AND timestamp > now() - INTERVAL $interval
+SQL
+
+    $query->execute;
+    my $numOfReadings = scalar $query->fetchrow_array();
+
+    if ($numOfReadings == 0) {return 0;}
+
+    $query = $self->{_db}->prepare(<<SQL);
+    SELECT COUNT(*) 
+        FROM servers
+        WHERE server = "$server" 
+        AND timestamp > now() - INTERVAL $interval
+        AND !running
+SQL
+
+    $query->execute;
+    my $numNotRunning = scalar $query->fetchrow_array();
+
+    if ($numOfReadings == $numNotRunning) {return 1;}
+
+    return 0;
 }