Changeset 29282

Timestamp:

Sep 30, 2010, 1:47:22 PM (16 years ago)

Author:

rhenders

Message:

Mirroring changes from czartool version: need to share a common class in future

File:

• trunk/ippToPsps/perl/ippToPsps/MySQLDb.pm (modified) (3 diffs)

trunk/ippToPsps/perl/ippToPsps/MySQLDb.pm

@@ -65 +65 @@
 }                                                                               
 
-
 ###########################################################################
 #
-# Returns 'now' as a timestamp
+# Adds the provided interval to the provided time
 #
 ###########################################################################
-sub getIntervalInPast {
-    my ($self, $interval) = @_;
+sub addInterval {
+    my ($self, $time, $interval) = @_;
 
       my $query = $self->{_db}->prepare(<<SQL);
-          SELECT now() - INTERVAL $interval; 
+          SELECT '$time' + INTERVAL $interval; 
 SQL
     $query->execute;
@@ -82 +81 @@
 }
 
+###########################################################################
+#
+# Subtracts the provided interval from the provided time
+#
+###########################################################################
+sub subtractInterval {
+    my ($self, $time, $interval) = @_;
+
+      my $query = $self->{_db}->prepare(<<SQL);
+          SELECT '$time' - INTERVAL $interval; 
+SQL
+    $query->execute;
+
+return scalar $query->fetchrow_array();
+}
+
+###########################################################################
+#
+# Returns whether time1 is before time2
+#
+###########################################################################
+sub isBefore {
+    my ($self, $time1, $time2) = @_;
+
+      my $query = $self->{_db}->prepare(<<SQL);
+          SELECT '$time1' < '$time2'; 
+SQL
+    $query->execute;
+
+return scalar $query->fetchrow_array();
+}
 
 ###########################################################################
@@ -97 +127 @@
 
 return scalar $query->fetchrow_array();
+}
+
+#######################################################################################
+# 
+# Optimizes a table 
+#
+#######################################################################################
+sub optimizeTable {
+    my ($self, $table) = @_;
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    OPTIMIZE TABLE $table; 
+SQL
+
+    my $success = $query->execute;
+
+    print "* ";
+    if (!$success) {print "UN";}
+    print "successfully optimized '$table' table\n";
+
+    return $success;
 }