hhf/MySQLTuner-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Check tables are all innodb table and check all table gets pk #150

Browse source
This commit is contained in:
Jean-Marie RENOUARDjmrenouard@gmail.com 2016-04-04 12:32:35 -04:00
parent 3ef98d83c1
commit 2d483e6b75
1 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
mysqltuner.pl
View file

@ -3041,7 +3041,25 @@ sub mariadb_galera {
foreach my $gstatus ( keys %mystat ) { foreach my $gstatus ( keys %mystat ) {
next unless $gstatus =~ /^wsrep.*/; next unless $gstatus =~ /^wsrep.*/;
infoprint "\t".trim($gstatus). " = ".$mystat{$gstatus}; infoprint "\t".trim($gstatus). " = ".$mystat{$gstatus};
} }
my @primaryKeysNbTables=select_array("select CONCAT(table_schema,CONCAT('.', table_name)) from information_schema.columns where table_schema not in ('mysql', 'information_schema', 'performance_schema') group by table_schema,table_name having sum(if(column_key in ('PRI','UNI'), 1,0)) = 0");
if (scalar (@primaryKeysNbTables) > 0 ) {
badprint "Following table(s) don't have primary key:";
foreach my $badtable( @primaryKeysNbTables ) {
badprint "\t$badtable";
}
} else {
goodprint "All tables get a primary key";
}
my @nonInnoDbTables=select_array("select CONCAT(table_schema,CONCAT('.', table_name)) from information_schema.tables where ENGINE <> 'InnoDb' and table_schema not in ('mysql', 'performance_schema', 'information_schema')");
if (scalar (@nonInnoDbTables) > 0 ) {
badprint "Following table(s) are not InnoDB table:";
foreach my $badtable( @nonInnoDbTables ) {
badprint "\t$badtable";
}
} else {
goodprint "All tables are InnoDB tables";
}
} }