Index: /trunk/ippToPsps/perl/ippToPsps/MySQLDb.pm
===================================================================
--- /trunk/ippToPsps/perl/ippToPsps/MySQLDb.pm	(revision 29281)
+++ /trunk/ippToPsps/perl/ippToPsps/MySQLDb.pm	(revision 29282)
@@ -65,15 +65,14 @@
 }                                                                               
 
-
 ###########################################################################
 #
-# 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,4 +81,35 @@
 }
 
+###########################################################################
+#
+# 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,4 +127,25 @@
 
 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;
 }