[svn:p5ee] r6847 - p5ee/trunk/App-Repository/lib/App/Repository

Author: spadkins
Date: Mon Sep  4 11:55:47 2006
New Revision: 6847

Modified:
   p5ee/trunk/App-Repository/lib/App/Repository/MySQL.pm

Log:
clean MySQL explain

Modified: p5ee/trunk/App-Repository/lib/App/Repository/MySQL.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/MySQL.pm	(original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/MySQL.pm	Mon Sep  4 11:55:47 2006
@@ -416,19 +416,34 @@
             # do nothing
         }
         if ($sql =~ /^select/i) {
-            my ($rows);
+            my ($rows, $posskeys, $key, $keylen);
             eval {
                 $rows = $dbh->selectall_arrayref("explain $sql");
             };
             print "EXPLAIN_SQL: $DBI::errstr\n";
             if ($rows) {
-                print "+----+-------------+-------+-------+---------------------------------------+--------------------+---------+-------------+-------+\n";
-                print "| id | select_type | table | type  | possible_keys                         | key                | key_len | ref         |  rows | Extra\n";
-                print "+----+-------------+-------+-------+---------------------------------------+--------------------+---------+-------------+-------+\n";
+                print "+----+-------------+----------------------+-------+----------------------+---------+----------+\n";
+                print "| id | select_type | table                | type  | key                  | key_len |     rows |\n";
+                print "+----+-------------+----------------------+-------+----------------------+---------+----------+\n";
                 foreach my $row (@$rows) {
-                    printf("|%3s | %-12s| %-6s| %-6s| %-38s| %-19s|%8d | %-12s|%6d | %s\n", @$row);
+                    $key = $row->[5];
+                    $keylen = length($key);
+                    if ($keylen > 21) {
+                       $key = substr($key,0,12) . ".." . substr($key,$keylen-7,7);
+                    }
+                    printf("|%3s | %-12s| %-21s| %-6s| %-21s|%8d |%9d | %s\n", @{$row}[0,1,2,3], $key, @{$row}[6,8]);
                 }
-                print "+----+-------------+-------+-------+---------------------------------------+--------------------+---------+-------------+-------+\n";
+                print "+----+----------------------------------------------------------------------------------------+\n";
+                print "| id | possible_keys/ref/extra\n";
+                print "+----+----------------------------------------------------------------------------------------+\n";
+                foreach my $row (@$rows) {
+                    $key = $row->[5];
+                    $posskeys = $row->[4];
+                    $posskeys =~ s/\b($key)\b/[$key]/;
+                    printf("|%3s | posskeys: %s\n", $row->[0], $posskeys);
+                    printf("|%3s | ref:      %s; extra: %s\n", @{$row}[0,7,9]);
+                }
+                print "+---------------------------------------------------------------------------------------------+\n";
             }
         }
         else {