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

adding --reportfile for file output result

Browse source
This commit is contained in:
root 2015-06-16 23:38:17 +02:00
parent 5ae4a7dddd
commit 0736ef7c56
1 changed files with 42 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
mysqltuner.pl
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# mysqltuner.pl - Version 1.4.3 # mysqltuner.pl - Version 1.4.4
# High Performance MySQL Tuning Script # High Performance MySQL Tuning Script
# Copyright (C) 2006-2014 Major Hayden - major@mhtx.net # Copyright (C) 2006-2014 Major Hayden - major@mhtx.net
# #
@ -42,7 +42,7 @@ use Getopt::Long;
use File::Basename; use File::Basename;
use Cwd 'abs_path'; use Cwd 'abs_path';
# Set up a few variables for use in the script # Set up a few variables for use in the script
my $tunerversion = "1.4.3"; my $tunerversion = "1.4.4";
my (@adjvars, @generalrec); my (@adjvars, @generalrec);
# Set defaults # Set defaults
@ -62,6 +62,7 @@ my %opt = (
"checkversion" => 0, "checkversion" => 0,
"buffers" => 0, "buffers" => 0,
"passwordfile" => 0, "passwordfile" => 0,
"reportfile" => 0,
); );
# Gather the options from the command line # Gather the options from the command line
@ -84,6 +85,8 @@ GetOptions(\%opt,
'help', 'help',
'buffers', 'buffers',
'passwordfile=s', 'passwordfile=s',
'reportfile=s',
'silent',
); );
if (defined $opt{'help'} && $opt{'help'} == 1) { usage(); } if (defined $opt{'help'} && $opt{'help'} == 1) { usage(); }
@ -117,6 +120,7 @@ sub usage {
" --forcemem <size> Amount of RAM installed in megabytes\n". " --forcemem <size> Amount of RAM installed in megabytes\n".
" --forceswap <size> Amount of swap memory configured in megabytes\n". " --forceswap <size> Amount of swap memory configured in megabytes\n".
" --passwordfile <path>Path to a password file list(one password by line)\n". " --passwordfile <path>Path to a password file list(one password by line)\n".
" --reportfile <path> Path to a report txt file\n".
"\n". "\n".
" Output Options:\n". " Output Options:\n".
" --nogood Remove OK responses\n". " --nogood Remove OK responses\n".
@ -131,15 +135,26 @@ sub usage {
my $devnull = File::Spec->devnull(); my $devnull = File::Spec->devnull();
my $basic_password_files=($opt{passwordfile} eq "0")? abs_path(dirname(__FILE__))."/basic_passwords.txt" : abs_path($opt{passwordfile}) ; my $basic_password_files=($opt{passwordfile} eq "0")? abs_path(dirname(__FILE__))."/basic_passwords.txt" : abs_path($opt{passwordfile}) ;
#
my $reportfile=undef;
$reportfile=abs_path($opt{reportfile}) unless $opt{reportfile} eq "0";
my $fh=undef;
open($fh, '>', $reportfile) or die("Fail opening $reportfile") if defined($reportfile);
# Setting up the colors for the print styles # Setting up the colors for the print styles
my $good = ($opt{nocolor} == 0)? "[\e[0;32mOK\e[0m]" : "[OK]" ; my $good = ($opt{nocolor} == 0)? "[\e[0;32mOK\e[0m]" : "[OK]" ;
my $bad = ($opt{nocolor} == 0)? "[\e[0;31m!!\e[0m]" : "[!!]" ; my $bad = ($opt{nocolor} == 0)? "[\e[0;31m!!\e[0m]" : "[!!]" ;
my $info = ($opt{nocolor} == 0)? "[\e[0;34m--\e[0m]" : "[--]" ; my $info = ($opt{nocolor} == 0)? "[\e[0;34m--\e[0m]" : "[--]" ;
# Functions that handle the print styles # Functions that handle the print styles
sub goodprint { print $good." ".$_[0] unless ($opt{nogood} == 1); } sub prettyprint {
sub infoprint { print $info." ".$_[0] unless ($opt{noinfo} == 1); } print $_[0];
sub badprint { print $bad." ".$_[0] unless ($opt{nobad} == 1); } print $fh $_[0] if defined($fh);
}
sub goodprint { prettyprint $good." ".$_[0] unless ($opt{nogood} == 1); }
sub infoprint { prettyprint $info." ".$_[0] unless ($opt{noinfo} == 1); }
sub badprint { prettyprint $bad. " ".$_[0] unless ($opt{nobad} == 1); }
sub redwrap { return ($opt{nocolor} == 0) ? "\e[0;31m".$_[0]."\e[0m" : $_[0] ; } sub redwrap { return ($opt{nocolor} == 0) ? "\e[0;31m".$_[0]."\e[0m" : $_[0] ; }
sub greenwrap { return ($opt{nocolor} == 0) ? "\e[0;32m".$_[0]."\e[0m" : $_[0] ; } sub greenwrap { return ($opt{nocolor} == 0) ? "\e[0;32m".$_[0]."\e[0m" : $_[0] ; }
@ -468,7 +483,7 @@ sub get_basic_passwords {
} }
sub security_recommendations { sub security_recommendations {
print "\n-------- Security Recommendations -------------------------------------------\n"; prettyprint "\n-------- Security Recommendations -------------------------------------------\n";
# Looking for Anonymous users # Looking for Anonymous users
my @mysqlstatlist = `$mysqlcmd $mysqllogin -Bse "SELECT CONCAT(user, '\@', host) FROM mysql.user WHERE TRIM(USER) = '' OR USER IS NULL ;"`; my @mysqlstatlist = `$mysqlcmd $mysqllogin -Bse "SELECT CONCAT(user, '\@', host) FROM mysql.user WHERE TRIM(USER) = '' OR USER IS NULL ;"`;
if (@mysqlstatlist) { if (@mysqlstatlist) {
@ -620,12 +635,12 @@ sub check_architecture {
my (%enginestats,%enginecount,$fragtables); my (%enginestats,%enginecount,$fragtables);
sub check_storage_engines { sub check_storage_engines {
if ($opt{skipsize} eq 1) { if ($opt{skipsize} eq 1) {
print "\n-------- Storage Engine Statistics -------------------------------------------\n"; prettyprint "\n-------- Storage Engine Statistics -------------------------------------------\n";
infoprint "Skipped due to --skipsize option\n"; infoprint "Skipped due to --skipsize option\n";
return; return;
} }
print "\n-------- Storage Engine Statistics -------------------------------------------\n"; prettyprint "\n-------- Storage Engine Statistics -------------------------------------------\n";
infoprint "Status: ";
my $engines; my $engines;
if (mysql_version_ge(5, 1)) { if (mysql_version_ge(5, 1)) {
my @engineresults = `$mysqlcmd $mysqllogin -Bse "SELECT ENGINE,SUPPORT FROM information_schema.ENGINES WHERE ENGINE NOT IN ('performance_schema','MyISAM','MERGE','MEMORY') ORDER BY ENGINE ASC"`; my @engineresults = `$mysqlcmd $mysqllogin -Bse "SELECT ENGINE,SUPPORT FROM information_schema.ENGINES WHERE ENGINE NOT IN ('performance_schema','MyISAM','MERGE','MEMORY') ORDER BY ENGINE ASC"`;
@ -642,7 +657,7 @@ sub check_storage_engines {
$engines .= (defined $myvar{'have_isam'} && $myvar{'have_isam'} eq "YES")? greenwrap "+ISAM " : redwrap "-ISAM " ; $engines .= (defined $myvar{'have_isam'} && $myvar{'have_isam'} eq "YES")? greenwrap "+ISAM " : redwrap "-ISAM " ;
$engines .= (defined $myvar{'have_ndbcluster'} && $myvar{'have_ndbcluster'} eq "YES")? greenwrap "+NDBCluster " : redwrap "-NDBCluster " ; $engines .= (defined $myvar{'have_ndbcluster'} && $myvar{'have_ndbcluster'} eq "YES")? greenwrap "+NDBCluster " : redwrap "-NDBCluster " ;
} }
print "$engines\n"; infoprint "Status: $engines\n";
if (mysql_version_ge(5)) { if (mysql_version_ge(5)) {
# MySQL 5 servers can have table sizes calculated quickly from information schema # MySQL 5 servers can have table sizes calculated quickly from information schema
my @templist = `$mysqlcmd $mysqllogin -Bse "SELECT ENGINE,SUM(DATA_LENGTH),COUNT(ENGINE) FROM information_schema.TABLES WHERE TABLE_SCHEMA NOT IN ('information_schema','mysql') AND ENGINE IS NOT NULL GROUP BY ENGINE ORDER BY ENGINE ASC;"`; my @templist = `$mysqlcmd $mysqllogin -Bse "SELECT ENGINE,SUM(DATA_LENGTH),COUNT(ENGINE) FROM information_schema.TABLES WHERE TABLE_SCHEMA NOT IN ('information_schema','mysql') AND ENGINE IS NOT NULL GROUP BY ENGINE ORDER BY ENGINE ASC;"`;
@ -890,7 +905,7 @@ sub calculations {
} }
sub mysql_stats { sub mysql_stats {
print "\n-------- Performance Metrics -------------------------------------------------\n"; prettyprint "\n-------- Performance Metrics -------------------------------------------------\n";
# Show uptime, queries per second, connections, traffic stats # Show uptime, queries per second, connections, traffic stats
my $qps; my $qps;
if ($mystat{'Uptime'} > 0) { $qps = sprintf("%.3f",$mystat{'Questions'}/$mystat{'Uptime'}); } if ($mystat{'Uptime'} > 0) { $qps = sprintf("%.3f",$mystat{'Questions'}/$mystat{'Uptime'}); }
@ -1152,10 +1167,10 @@ sub mysql_stats {
and ( and (
($myvar{'innodb_buffer_pool_size'}/$myvar{'innodb_buffer_pool_instances'}) < 1024*1024*924 ($myvar{'innodb_buffer_pool_size'}/$myvar{'innodb_buffer_pool_instances'}) < 1024*1024*924
or ($myvar{'innodb_buffer_pool_size'}/$myvar{'innodb_buffer_pool_instances'}) > 1024*1024*1124 ) ) { or ($myvar{'innodb_buffer_pool_size'}/$myvar{'innodb_buffer_pool_instances'}) > 1024*1024*1124 ) ) {
badprint "InnoDB buffer pool is greater than 1Go and each InnoDB buffer pool instance must manage 900Mo to 1.1Go buffer pool size"; badprint "InnoDB buffer pool is greater than 1Go and each InnoDB buffer pool instance must manage 900Mo to 1.1Go buffer pool size.\n";
push(@adjvars,"innodb_buffer_pool_instances must be calculated with innodb_buffer_pool_size / 1Go "); push(@adjvars,"innodb_buffer_pool_instances must be calculated with innodb_buffer_pool_size / 1Go ");
} else { } else {
goodprint "InnoDB buffer pool instances is configurated for managing around 1Go Buffer pool size."; goodprint "InnoDB buffer pool instances is configurated for managing around 1Go Buffer pool size.\n";
} }
} }
} }
@ -1163,29 +1178,28 @@ sub mysql_stats {
# Take the two recommendation arrays and display them at the end of the output # Take the two recommendation arrays and display them at the end of the output
sub make_recommendations { sub make_recommendations {
print "\n-------- Recommendations -----------------------------------------------------\n"; prettyprint "\n-------- Recommendations -----------------------------------------------------\n";
if (@generalrec > 0) { if (@generalrec > 0) {
print "General recommendations:\n"; prettyprint "General recommendations:\n";
foreach (@generalrec) { print " ".$_."\n"; } foreach (@generalrec) { prettyprint " ".$_."\n"; }
} }
if (@adjvars > 0) { if (@adjvars > 0) {
print "Variables to adjust:\n"; prettyprint "Variables to adjust:\n";
if ($mycalc{'pct_physical_memory'} > 90) { if ($mycalc{'pct_physical_memory'} > 90) {
print " *** MySQL's maximum memory usage is dangerously high ***\n". prettyprint " *** MySQL's maximum memory usage is dangerously high ***\n".
" *** Add RAM before increasing MySQL buffer variables ***\n"; " *** Add RAM before increasing MySQL buffer variables ***\n";
} }
foreach (@adjvars) { print " ".$_."\n"; } foreach (@adjvars) { prettyprint " ".$_."\n"; }
} }
if (@generalrec == 0 && @adjvars ==0) { if (@generalrec == 0 && @adjvars ==0) {
print "No additional performance recommendations are available.\n" prettyprint "No additional performance recommendations are available.\n"
} }
print "\n";
} }
# --------------------------------------------------------------------------- # ---------------------------------------------------------------------------
# BEGIN 'MAIN' # BEGIN 'MAIN'
# --------------------------------------------------------------------------- # ---------------------------------------------------------------------------
print "\n >> MySQLTuner $tunerversion - Major Hayden <major\@mhtx.net>\n". prettyprint " >> MySQLTuner $tunerversion - Major Hayden <major\@mhtx.net>\n".
" >> Bug reports, feature requests, and downloads at http://mysqltuner.com/\n". " >> Bug reports, feature requests, and downloads at http://mysqltuner.com/\n".
" >> Run with '--help' for additional options and output filtering\n"; " >> Run with '--help' for additional options and output filtering\n";
mysql_setup; # Gotta login first mysql_setup; # Gotta login first
@ -1198,6 +1212,8 @@ security_recommendations; # Display some security recommendations
calculations; # Calculate everything we need calculations; # Calculate everything we need
mysql_stats; # Print the server stats mysql_stats; # Print the server stats
make_recommendations; # Make recommendations based on stats make_recommendations; # Make recommendations based on stats
close($fh) if defined($fh);
# --------------------------------------------------------------------------- # ---------------------------------------------------------------------------
# END 'MAIN' # END 'MAIN'
# --------------------------------------------------------------------------- # ---------------------------------------------------------------------------