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

Merge pull request #68 from jmrenouard/master

Browse source 
passwordfile: new option for password list file
This commit is contained in:
Major Hayden 2015-06-15 08:57:37 -05:00
commit 184f7709f7
1 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
mysqltuner.pl
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# mysqltuner.pl - Version 1.4.1 # mysqltuner.pl - Version 1.4.2
# 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.1"; my $tunerversion = "1.4.2";
my (@adjvars, @generalrec); my (@adjvars, @generalrec);
# Set defaults # Set defaults
@ -61,6 +61,7 @@ my %opt = (
"skipsize" => 0, "skipsize" => 0,
"checkversion" => 0, "checkversion" => 0,
"buffers" => 0, "buffers" => 0,
"passwordfile" => 0,
); );
# Gather the options from the command line # Gather the options from the command line
@ -82,6 +83,7 @@ GetOptions(\%opt,
'mysqlcmd=s', 'mysqlcmd=s',
'help', 'help',
'buffers', 'buffers',
'passwordfile=s',
); );
if (defined $opt{'help'} && $opt{'help'} == 1) { usage(); } if (defined $opt{'help'} && $opt{'help'} == 1) { usage(); }
@ -114,6 +116,7 @@ sub usage {
" --checkversion Check for updates to MySQLTuner (default: don't check)\n". " --checkversion Check for updates to MySQLTuner (default: don't check)\n".
" --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".
"\n". "\n".
" Output Options:\n". " Output Options:\n".
" --nogood Remove OK responses\n". " --nogood Remove OK responses\n".
@ -126,7 +129,7 @@ sub usage {
} }
my $devnull = File::Spec->devnull(); my $devnull = File::Spec->devnull();
my $basic_password_files=abs_path(dirname(__FILE__))."/basic_passwords.txt"; my $basic_password_files=($opt{passwordfile} eq "0")? abs_path(dirname(__FILE__))."/basic_passwords.txt" : abs_path($opt{passwordfile}) ;
# 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]" ;
@ -544,12 +547,16 @@ sub get_replication_status {
my $slave_status = `$mysqlcmd $mysqllogin -Bse "show slave status\\G"`; my $slave_status = `$mysqlcmd $mysqllogin -Bse "show slave status\\G"`;
my ($io_running) = ($slave_status =~ /slave_io_running\S*\s+(\S+)/i); my ($io_running) = ($slave_status =~ /slave_io_running\S*\s+(\S+)/i);
my ($sql_running) = ($slave_status =~ /slave_sql_running\S*\s+(\S+)/i); my ($sql_running) = ($slave_status =~ /slave_sql_running\S*\s+(\S+)/i);
my ($seconds_behind_master) = ($slave_status =~ /seconds_behind_master\S*\s+(\S+)/i);
if ($io_running eq 'Yes' && $sql_running eq 'Yes') { if ($io_running eq 'Yes' && $sql_running eq 'Yes') {
if ($myvar{'read_only'} eq 'OFF') { if ($myvar{'read_only'} eq 'OFF') {
badprint "This replication slave is running with the read_only option disabled."; badprint "This replication slave is running with the read_only option disabled.";
} else { } else {
goodprint "This replication slave is running with the read_only option enabled."; goodprint "This replication slave is running with the read_only option enabled.";
} }
if ($seconds_behind_master>0) {
badprint "This replication slave is lagging and slave has $seconds_behind_master second(s) behind master host.";
}
} }
} }
@ -1162,15 +1169,15 @@ print "\n >> 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
os_setup; # Set up some OS variables os_setup; # Set up some OS variables
get_all_vars; # Toss variables/status into hashes get_all_vars; # Toss variables/status into hashes
validate_mysql_version; # Check current MySQL version validate_mysql_version; # Check current MySQL version
check_architecture; # Suggest 64-bit upgrade check_architecture; # Suggest 64-bit upgrade
check_storage_engines; # Show enabled storage engines check_storage_engines; # Show enabled storage engines
security_recommendations; # Display some security recommendations 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
# --------------------------------------------------------------------------- # ---------------------------------------------------------------------------
# END 'MAIN' # END 'MAIN'
# --------------------------------------------------------------------------- # ---------------------------------------------------------------------------