Changeset 29280

Timestamp:

Sep 30, 2010, 9:21:35 AM (16 years ago)

Author:

rhenders

Message:

Added a methid to optimize a table and report on success/failure

File:

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

trunk/tools/czartool/MySQLDb.pm

@@ -131 +131 @@
 #######################################################################################
 # 
+# 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;
+}
+
+#######################################################################################
+# 
 # Checks whether a certain table exists 
 #