Changeset 29515 for branches/eam_branches/ipp-20100823/tools/czartool/MySQLDb.pm

Timestamp:

Oct 21, 2010, 2:45:13 PM (16 years ago)

Author:

eugene

Message:

merge changes from trunk

File:

• branches/eam_branches/ipp-20100823/tools/czartool/MySQLDb.pm (modified) (3 diffs)

branches/eam_branches/ipp-20100823/tools/czartool/MySQLDb.pm

@@ -64 +64 @@
     return $self->{_dbHost};                                                 
 }                                                                               
+###########################################################################
+#
+# Adds the provided interval to the provided time
+#
+###########################################################################
+sub getFormattedDate {
+    my ($self, $time) = @_;
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    SELECT DATE_FORMAT('$time','$self->{_dateFormat}'); 
+SQL
+    $query->execute;
+
+    return scalar $query->fetchrow_array();
+}
 
 ###########################################################################
@@ -83 +98 @@
 ###########################################################################
 #
+# Finds the difference of two times
+#
+###########################################################################
+sub diffTimes {
+    my ($self, $time1, $time2) = @_;
+
+      my $query = $self->{_db}->prepare(<<SQL);
+         SELECT TIMEDIFF('$time1','$time2'); 
+SQL
+
+    $query->execute;
+    return scalar $query->fetchrow_array();
+}
+
+###########################################################################
+#
+# Finds the difference of two times in seconds
+#
+###########################################################################
+sub diffTimesInSecs {
+    my ($self, $time1, $time2) = @_;
+
+      my $query = $self->{_db}->prepare(<<SQL);
+         SELECT TIME_TO_SEC(TIMEDIFF('$time1','$time2')); 
+SQL
+
+    $query->execute;
+    return scalar $query->fetchrow_array();
+}
+
+###########################################################################
+#
+# Returns whether the first interval is larger than the second
+#
+###########################################################################
+sub isIntervalGreaterThan {
+    my ($self, $interval1, $interval2) = @_;
+
+      my $query = $self->{_db}->prepare(<<SQL);
+          SELECT INTERVAL('$interval1', '$interval2'); 
+SQL
+    $query->execute;
+
+return scalar $query->fetchrow_array();
+}
+
+###########################################################################
+#
 # Subtracts the provided interval from the provided time
 #
@@ -127 +190 @@
 
 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;
 }