safeguard-devise 0.0.2
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +15 -0
- data/.vagrant/machines/default/virtualbox/action_provision +1 -0
- data/.vagrant/machines/default/virtualbox/action_set_name +1 -0
- data/.vagrant/machines/default/virtualbox/id +1 -0
- data/Gemfile +25 -0
- data/Gemfile.lock +186 -0
- data/Rakefile +51 -0
- data/VERSION +1 -0
- data/Vagrantfile +128 -0
- data/app/controllers/devise/devise_safeguard_controller.rb +56 -0
- data/app/views/devise/verify_safeguard.html.erb +9 -0
- data/app/views/devise/verify_safeguard.html.haml +7 -0
- data/config/locales/pt-BR.yml +5 -0
- data/lib/devise-safeguard/controllers/helpers.rb +54 -0
- data/lib/devise-safeguard/hooks/safeguard_authenticatable.rb +7 -0
- data/lib/devise-safeguard/models/safeguard_authenticatable.rb +18 -0
- data/lib/devise-safeguard/rails.rb +7 -0
- data/lib/devise-safeguard/routes.rb +17 -0
- data/lib/generators/active_record/devise_safeguard_generator.rb +13 -0
- data/lib/generators/active_record/templates/migration.rb +15 -0
- data/lib/generators/devise_safeguard/devise_safeguard_generator.rb +30 -0
- data/lib/generators/devise_safeguard/install_generator.rb +44 -0
- data/lib/safeguard-devise.rb +24 -0
- data/puppet/manifests/default.pp +66 -0
- data/puppet/modules/elasticsearch/CHANGELOG +62 -0
- data/puppet/modules/elasticsearch/CONTRIBUTORS +20 -0
- data/puppet/modules/elasticsearch/LICENSE +13 -0
- data/puppet/modules/elasticsearch/Modulefile +9 -0
- data/puppet/modules/elasticsearch/README.md +147 -0
- data/puppet/modules/elasticsearch/Rakefile +5 -0
- data/puppet/modules/elasticsearch/manifests/config.pp +64 -0
- data/puppet/modules/elasticsearch/manifests/init.pp +208 -0
- data/puppet/modules/elasticsearch/manifests/java.pp +50 -0
- data/puppet/modules/elasticsearch/manifests/package.pp +84 -0
- data/puppet/modules/elasticsearch/manifests/params.pp +103 -0
- data/puppet/modules/elasticsearch/manifests/plugin.pp +97 -0
- data/puppet/modules/elasticsearch/manifests/python.pp +34 -0
- data/puppet/modules/elasticsearch/manifests/service.pp +114 -0
- data/puppet/modules/elasticsearch/manifests/template.pp +118 -0
- data/puppet/modules/elasticsearch/metadata.json +41 -0
- data/puppet/modules/elasticsearch/spec/classes/elasticsearch_init_spec.rb +596 -0
- data/puppet/modules/elasticsearch/spec/defines/template_spec.rb +66 -0
- data/puppet/modules/elasticsearch/spec/spec_helper.rb +2 -0
- data/puppet/modules/elasticsearch/templates/etc/default/elasticsearch.erb +5 -0
- data/puppet/modules/elasticsearch/templates/etc/elasticsearch/elasticsearch.yml.erb +93 -0
- data/puppet/modules/memcached/.gitignore +2 -0
- data/puppet/modules/memcached/Modulefile +8 -0
- data/puppet/modules/memcached/README.md +29 -0
- data/puppet/modules/memcached/manifests/init.pp +33 -0
- data/puppet/modules/memcached/manifests/params.pp +21 -0
- data/puppet/modules/memcached/templates/memcached.conf.erb +46 -0
- data/puppet/modules/memcached/templates/memcached_sysconfig.erb +5 -0
- data/puppet/modules/mysql/.fixtures.yml +3 -0
- data/puppet/modules/mysql/.gemfile +5 -0
- data/puppet/modules/mysql/LICENSE +201 -0
- data/puppet/modules/mysql/Modulefile +8 -0
- data/puppet/modules/mysql/README.md +124 -0
- data/puppet/modules/mysql/files/mysqltuner.pl +966 -0
- data/puppet/modules/mysql/lib/puppet/parser/functions/mysql_password.rb +15 -0
- data/puppet/modules/mysql/lib/puppet/provider/database/mysql.rb +42 -0
- data/puppet/modules/mysql/lib/puppet/provider/database_grant/mysql.rb +177 -0
- data/puppet/modules/mysql/lib/puppet/provider/database_user/mysql.rb +42 -0
- data/puppet/modules/mysql/lib/puppet/type/database.rb +17 -0
- data/puppet/modules/mysql/lib/puppet/type/database_grant.rb +75 -0
- data/puppet/modules/mysql/lib/puppet/type/database_user.rb +25 -0
- data/puppet/modules/mysql/manifests/backup.pp +68 -0
- data/puppet/modules/mysql/manifests/config.pp +122 -0
- data/puppet/modules/mysql/manifests/db.pp +77 -0
- data/puppet/modules/mysql/manifests/init.pp +24 -0
- data/puppet/modules/mysql/manifests/java.pp +24 -0
- data/puppet/modules/mysql/manifests/params.pp +91 -0
- data/puppet/modules/mysql/manifests/python.pp +26 -0
- data/puppet/modules/mysql/manifests/ruby.pp +28 -0
- data/puppet/modules/mysql/manifests/server/account_security.pp +13 -0
- data/puppet/modules/mysql/manifests/server/monitor.pp +19 -0
- data/puppet/modules/mysql/manifests/server/mysqltuner.pp +22 -0
- data/puppet/modules/mysql/manifests/server.pp +52 -0
- data/puppet/modules/mysql/templates/my.cnf.erb +42 -0
- data/puppet/modules/mysql/templates/my.cnf.pass.erb +6 -0
- data/puppet/modules/mysql/templates/mysqlbackup.sh.erb +23 -0
- data/puppet/modules/postgresql/GPL-3 +674 -0
- data/puppet/modules/postgresql/Modulefile +13 -0
- data/puppet/modules/postgresql/README.md +156 -0
- data/puppet/modules/postgresql/lib/puppet/provider/pg_database/debian_postgresql.rb +30 -0
- data/puppet/modules/postgresql/lib/puppet/provider/pg_database/default.rb +17 -0
- data/puppet/modules/postgresql/lib/puppet/provider/pg_user/debian_postgresql.rb +63 -0
- data/puppet/modules/postgresql/lib/puppet/provider/pg_user/default.rb +17 -0
- data/puppet/modules/postgresql/lib/puppet/type/pg_database.rb +29 -0
- data/puppet/modules/postgresql/lib/puppet/type/pg_user.rb +45 -0
- data/puppet/modules/postgresql/manifests/db.pp +20 -0
- data/puppet/modules/postgresql/manifests/init.pp +12 -0
- data/puppet/modules/postgresql/manifests/params.pp +15 -0
- data/puppet/modules/postgresql/manifests/server.pp +47 -0
- data/puppet/modules/postgresql/templates/pg_hba.conf.erb +105 -0
- data/puppet/modules/postgresql/templates/postgresql.conf.erb +559 -0
- data/puppet/modules/redis/CHANGELOG +41 -0
- data/puppet/modules/redis/Gemfile +7 -0
- data/puppet/modules/redis/Gemfile.lock +18 -0
- data/puppet/modules/redis/Modulefile +10 -0
- data/puppet/modules/redis/README.md +34 -0
- data/puppet/modules/redis/Rakefile +6 -0
- data/puppet/modules/redis/manifests/init.pp +153 -0
- data/puppet/modules/redis/manifests/params.pp +39 -0
- data/puppet/modules/redis/metadata.json +31 -0
- data/puppet/modules/redis/spec/spec_helper.rb +17 -0
- data/puppet/modules/redis/templates/redis.debian.conf.erb +217 -0
- data/puppet/modules/redis/templates/redis.logrotate.erb +9 -0
- data/puppet/modules/redis/templates/redis.rhel.conf.erb +547 -0
- data/puppet/modules/redis/tests/init.pp +8 -0
- data/puppet/upgrade-puppet.sh +16 -0
- data/safeguard-devise.gemspec +249 -0
- data/spec/controllers/safeguard_devise_controller_spec.rb +67 -0
- data/spec/devise/safeguard_authenticatable_spec.rb +71 -0
- data/spec/orm/active_record.rb +4 -0
- data/spec/routing/routes_spec.rb +13 -0
- data/spec/safeguard-devise-test-app/.gitignore +16 -0
- data/spec/safeguard-devise-test-app/Gemfile +14 -0
- data/spec/safeguard-devise-test-app/Gemfile.lock +119 -0
- data/spec/safeguard-devise-test-app/README.rdoc +28 -0
- data/spec/safeguard-devise-test-app/Rakefile +6 -0
- data/spec/safeguard-devise-test-app/app/assets/images/.keep +0 -0
- data/spec/safeguard-devise-test-app/app/assets/javascripts/application.js +13 -0
- data/spec/safeguard-devise-test-app/app/assets/stylesheets/application.css +13 -0
- data/spec/safeguard-devise-test-app/app/controllers/application_controller.rb +5 -0
- data/spec/safeguard-devise-test-app/app/controllers/concerns/.keep +0 -0
- data/spec/safeguard-devise-test-app/app/controllers/home_controller.rb +6 -0
- data/spec/safeguard-devise-test-app/app/helpers/application_helper.rb +2 -0
- data/spec/safeguard-devise-test-app/app/mailers/.keep +0 -0
- data/spec/safeguard-devise-test-app/app/models/.keep +0 -0
- data/spec/safeguard-devise-test-app/app/models/concerns/.keep +0 -0
- data/spec/safeguard-devise-test-app/app/models/user.rb +6 -0
- data/spec/safeguard-devise-test-app/app/views/devise/devise_safeguard/verify_safeguard.html.erb +9 -0
- data/spec/safeguard-devise-test-app/app/views/devise/devise_safeguard/verify_safeguard.html.haml +6 -0
- data/spec/safeguard-devise-test-app/app/views/home/index.html.erb +1 -0
- data/spec/safeguard-devise-test-app/app/views/layouts/application.html.erb +14 -0
- data/spec/safeguard-devise-test-app/bin/bundle +3 -0
- data/spec/safeguard-devise-test-app/bin/rails +4 -0
- data/spec/safeguard-devise-test-app/bin/rake +4 -0
- data/spec/safeguard-devise-test-app/config/application.rb +31 -0
- data/spec/safeguard-devise-test-app/config/boot.rb +4 -0
- data/spec/safeguard-devise-test-app/config/database.yml +25 -0
- data/spec/safeguard-devise-test-app/config/environment.rb +5 -0
- data/spec/safeguard-devise-test-app/config/environments/development.rb +29 -0
- data/spec/safeguard-devise-test-app/config/environments/production.rb +80 -0
- data/spec/safeguard-devise-test-app/config/environments/test.rb +36 -0
- data/spec/safeguard-devise-test-app/config/initializers/backtrace_silencers.rb +7 -0
- data/spec/safeguard-devise-test-app/config/initializers/devise.rb +259 -0
- data/spec/safeguard-devise-test-app/config/initializers/filter_parameter_logging.rb +4 -0
- data/spec/safeguard-devise-test-app/config/initializers/inflections.rb +16 -0
- data/spec/safeguard-devise-test-app/config/initializers/mime_types.rb +5 -0
- data/spec/safeguard-devise-test-app/config/initializers/secret_token.rb +12 -0
- data/spec/safeguard-devise-test-app/config/initializers/session_store.rb +3 -0
- data/spec/safeguard-devise-test-app/config/initializers/wrap_parameters.rb +14 -0
- data/spec/safeguard-devise-test-app/config/locales/devise.en.yml +59 -0
- data/spec/safeguard-devise-test-app/config/locales/devise.safeguard.pt-BR.yml +5 -0
- data/spec/safeguard-devise-test-app/config/locales/en.yml +23 -0
- data/spec/safeguard-devise-test-app/config/routes.rb +59 -0
- data/spec/safeguard-devise-test-app/config.ru +4 -0
- data/spec/safeguard-devise-test-app/db/migrate/20140220191103_create_users.rb +9 -0
- data/spec/safeguard-devise-test-app/db/migrate/20140220191247_add_devise_to_users.rb +49 -0
- data/spec/safeguard-devise-test-app/db/migrate/20140220191522_devise_safeguard_add_to_users.rb +15 -0
- data/spec/safeguard-devise-test-app/db/schema.rb +37 -0
- data/spec/safeguard-devise-test-app/db/seeds.rb +7 -0
- data/spec/safeguard-devise-test-app/lib/assets/.keep +0 -0
- data/spec/safeguard-devise-test-app/lib/tasks/.keep +0 -0
- data/spec/safeguard-devise-test-app/log/.keep +0 -0
- data/spec/safeguard-devise-test-app/public/404.html +58 -0
- data/spec/safeguard-devise-test-app/public/422.html +58 -0
- data/spec/safeguard-devise-test-app/public/500.html +57 -0
- data/spec/safeguard-devise-test-app/public/favicon.ico +0 -0
- data/spec/safeguard-devise-test-app/public/robots.txt +5 -0
- data/spec/safeguard-devise-test-app/test/controllers/.keep +0 -0
- data/spec/safeguard-devise-test-app/test/fixtures/.keep +0 -0
- data/spec/safeguard-devise-test-app/test/fixtures/users.yml +9 -0
- data/spec/safeguard-devise-test-app/test/helpers/.keep +0 -0
- data/spec/safeguard-devise-test-app/test/integration/.keep +0 -0
- data/spec/safeguard-devise-test-app/test/mailers/.keep +0 -0
- data/spec/safeguard-devise-test-app/test/models/.keep +0 -0
- data/spec/safeguard-devise-test-app/test/models/user_test.rb +7 -0
- data/spec/safeguard-devise-test-app/test/test_helper.rb +15 -0
- data/spec/safeguard-devise-test-app/vendor/assets/javascripts/.keep +0 -0
- data/spec/safeguard-devise-test-app/vendor/assets/stylesheets/.keep +0 -0
- data/spec/spec_helper.rb +31 -0
- data/spec/tests_helper/helpers.rb +34 -0
- metadata +381 -0
@@ -0,0 +1,966 @@
|
|
1
|
+
#!/usr/bin/perl -w
|
2
|
+
# mysqltuner.pl - Version 1.2.0
|
3
|
+
# High Performance MySQL Tuning Script
|
4
|
+
# Copyright (C) 2006-2011 Major Hayden - major@mhtx.net
|
5
|
+
#
|
6
|
+
# For the latest updates, please visit http://mysqltuner.com/
|
7
|
+
# Git repository available at http://github.com/rackerhacker/MySQLTuner-perl
|
8
|
+
#
|
9
|
+
# This program is free software: you can redistribute it and/or modify
|
10
|
+
# it under the terms of the GNU General Public License as published by
|
11
|
+
# the Free Software Foundation, either version 3 of the License, or
|
12
|
+
# (at your option) any later version.
|
13
|
+
#
|
14
|
+
# This program is distributed in the hope that it will be useful,
|
15
|
+
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
16
|
+
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
17
|
+
# GNU General Public License for more details.
|
18
|
+
#
|
19
|
+
# You should have received a copy of the GNU General Public License
|
20
|
+
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
21
|
+
#
|
22
|
+
# This project would not be possible without help from:
|
23
|
+
# Matthew Montgomery Paul Kehrer Dave Burgess
|
24
|
+
# Jonathan Hinds Mike Jackson Nils Breunese
|
25
|
+
# Shawn Ashlee Luuk Vosslamber Ville Skytta
|
26
|
+
# Trent Hornibrook Jason Gill Mark Imbriaco
|
27
|
+
# Greg Eden Aubin Galinotti Giovanni Bechis
|
28
|
+
# Bill Bradford Ryan Novosielski Michael Scheidell
|
29
|
+
# Blair Christensen Hans du Plooy Victor Trac
|
30
|
+
# Everett Barnes Tom Krouper Gary Barrueto
|
31
|
+
# Simon Greenaway Adam Stein Isart Montane
|
32
|
+
# Baptiste M.
|
33
|
+
#
|
34
|
+
# Inspired by Matthew Montgomery's tuning-primer.sh script:
|
35
|
+
# http://forge.mysql.com/projects/view.php?id=44
|
36
|
+
#
|
37
|
+
use strict;
|
38
|
+
use warnings;
|
39
|
+
use diagnostics;
|
40
|
+
use File::Spec;
|
41
|
+
use Getopt::Long;
|
42
|
+
|
43
|
+
# Set up a few variables for use in the script
|
44
|
+
my $tunerversion = "1.2.0";
|
45
|
+
my (@adjvars, @generalrec);
|
46
|
+
|
47
|
+
# Set defaults
|
48
|
+
my %opt = (
|
49
|
+
"nobad" => 0,
|
50
|
+
"nogood" => 0,
|
51
|
+
"noinfo" => 0,
|
52
|
+
"nocolor" => 0,
|
53
|
+
"forcemem" => 0,
|
54
|
+
"forceswap" => 0,
|
55
|
+
"host" => 0,
|
56
|
+
"socket" => 0,
|
57
|
+
"port" => 0,
|
58
|
+
"user" => 0,
|
59
|
+
"pass" => 0,
|
60
|
+
"skipsize" => 0,
|
61
|
+
"checkversion" => 0,
|
62
|
+
);
|
63
|
+
|
64
|
+
# Gather the options from the command line
|
65
|
+
GetOptions(\%opt,
|
66
|
+
'nobad',
|
67
|
+
'nogood',
|
68
|
+
'noinfo',
|
69
|
+
'nocolor',
|
70
|
+
'forcemem=i',
|
71
|
+
'forceswap=i',
|
72
|
+
'host=s',
|
73
|
+
'socket=s',
|
74
|
+
'port=i',
|
75
|
+
'user=s',
|
76
|
+
'pass=s',
|
77
|
+
'skipsize',
|
78
|
+
'checkversion',
|
79
|
+
'help',
|
80
|
+
);
|
81
|
+
|
82
|
+
if (defined $opt{'help'} && $opt{'help'} == 1) { usage(); }
|
83
|
+
|
84
|
+
sub usage {
|
85
|
+
# Shown with --help option passed
|
86
|
+
print "\n".
|
87
|
+
" MySQLTuner $tunerversion - MySQL High Performance Tuning Script\n".
|
88
|
+
" Bug reports, feature requests, and downloads at http://mysqltuner.com/\n".
|
89
|
+
" Maintained by Major Hayden (major\@mhtx.net) - Licensed under GPL\n".
|
90
|
+
"\n".
|
91
|
+
" Important Usage Guidelines:\n".
|
92
|
+
" To run the script with the default options, run the script without arguments\n".
|
93
|
+
" Allow MySQL server to run for at least 24-48 hours before trusting suggestions\n".
|
94
|
+
" Some routines may require root level privileges (script will provide warnings)\n".
|
95
|
+
" You must provide the remote server's total memory when connecting to other servers\n".
|
96
|
+
"\n".
|
97
|
+
" Connection and Authentication\n".
|
98
|
+
" --host <hostname> Connect to a remote host to perform tests (default: localhost)\n".
|
99
|
+
" --socket <socket> Use a different socket for a local connection\n".
|
100
|
+
" --port <port> Port to use for connection (default: 3306)\n".
|
101
|
+
" --user <username> Username to use for authentication\n".
|
102
|
+
" --pass <password> Password to use for authentication\n".
|
103
|
+
"\n".
|
104
|
+
" Performance and Reporting Options\n".
|
105
|
+
" --skipsize Don't enumerate tables and their types/sizes (default: on)\n".
|
106
|
+
" (Recommended for servers with many tables)\n".
|
107
|
+
" --checkversion Check for updates to MySQLTuner (default: don't check)\n".
|
108
|
+
" --forcemem <size> Amount of RAM installed in megabytes\n".
|
109
|
+
" --forceswap <size> Amount of swap memory configured in megabytes\n".
|
110
|
+
"\n".
|
111
|
+
" Output Options:\n".
|
112
|
+
" --nogood Remove OK responses\n".
|
113
|
+
" --nobad Remove negative/suggestion responses\n".
|
114
|
+
" --noinfo Remove informational responses\n".
|
115
|
+
" --nocolor Don't print output in color\n".
|
116
|
+
"\n";
|
117
|
+
exit;
|
118
|
+
}
|
119
|
+
|
120
|
+
my $devnull = File::Spec->devnull();
|
121
|
+
|
122
|
+
# Setting up the colors for the print styles
|
123
|
+
my $good = ($opt{nocolor} == 0)? "[\e[0;32mOK\e[0m]" : "[OK]" ;
|
124
|
+
my $bad = ($opt{nocolor} == 0)? "[\e[0;31m!!\e[0m]" : "[!!]" ;
|
125
|
+
my $info = ($opt{nocolor} == 0)? "[\e[0;34m--\e[0m]" : "[--]" ;
|
126
|
+
|
127
|
+
# Functions that handle the print styles
|
128
|
+
sub goodprint { print $good." ".$_[0] unless ($opt{nogood} == 1); }
|
129
|
+
sub infoprint { print $info." ".$_[0] unless ($opt{noinfo} == 1); }
|
130
|
+
sub badprint { print $bad." ".$_[0] unless ($opt{nobad} == 1); }
|
131
|
+
sub redwrap { return ($opt{nocolor} == 0)? "\e[0;31m".$_[0]."\e[0m" : $_[0] ; }
|
132
|
+
sub greenwrap { return ($opt{nocolor} == 0)? "\e[0;32m".$_[0]."\e[0m" : $_[0] ; }
|
133
|
+
|
134
|
+
# Calculates the parameter passed in bytes, and then rounds it to one decimal place
|
135
|
+
sub hr_bytes {
|
136
|
+
my $num = shift;
|
137
|
+
if ($num >= (1024**3)) { #GB
|
138
|
+
return sprintf("%.1f",($num/(1024**3)))."G";
|
139
|
+
} elsif ($num >= (1024**2)) { #MB
|
140
|
+
return sprintf("%.1f",($num/(1024**2)))."M";
|
141
|
+
} elsif ($num >= 1024) { #KB
|
142
|
+
return sprintf("%.1f",($num/1024))."K";
|
143
|
+
} else {
|
144
|
+
return $num."B";
|
145
|
+
}
|
146
|
+
}
|
147
|
+
|
148
|
+
# Calculates the parameter passed in bytes, and then rounds it to the nearest integer
|
149
|
+
sub hr_bytes_rnd {
|
150
|
+
my $num = shift;
|
151
|
+
if ($num >= (1024**3)) { #GB
|
152
|
+
return int(($num/(1024**3)))."G";
|
153
|
+
} elsif ($num >= (1024**2)) { #MB
|
154
|
+
return int(($num/(1024**2)))."M";
|
155
|
+
} elsif ($num >= 1024) { #KB
|
156
|
+
return int(($num/1024))."K";
|
157
|
+
} else {
|
158
|
+
return $num."B";
|
159
|
+
}
|
160
|
+
}
|
161
|
+
|
162
|
+
# Calculates the parameter passed to the nearest power of 1000, then rounds it to the nearest integer
|
163
|
+
sub hr_num {
|
164
|
+
my $num = shift;
|
165
|
+
if ($num >= (1000**3)) { # Billions
|
166
|
+
return int(($num/(1000**3)))."B";
|
167
|
+
} elsif ($num >= (1000**2)) { # Millions
|
168
|
+
return int(($num/(1000**2)))."M";
|
169
|
+
} elsif ($num >= 1000) { # Thousands
|
170
|
+
return int(($num/1000))."K";
|
171
|
+
} else {
|
172
|
+
return $num;
|
173
|
+
}
|
174
|
+
}
|
175
|
+
|
176
|
+
# Calculates uptime to display in a more attractive form
|
177
|
+
sub pretty_uptime {
|
178
|
+
my $uptime = shift;
|
179
|
+
my $seconds = $uptime % 60;
|
180
|
+
my $minutes = int(($uptime % 3600) / 60);
|
181
|
+
my $hours = int(($uptime % 86400) / (3600));
|
182
|
+
my $days = int($uptime / (86400));
|
183
|
+
my $uptimestring;
|
184
|
+
if ($days > 0) {
|
185
|
+
$uptimestring = "${days}d ${hours}h ${minutes}m ${seconds}s";
|
186
|
+
} elsif ($hours > 0) {
|
187
|
+
$uptimestring = "${hours}h ${minutes}m ${seconds}s";
|
188
|
+
} elsif ($minutes > 0) {
|
189
|
+
$uptimestring = "${minutes}m ${seconds}s";
|
190
|
+
} else {
|
191
|
+
$uptimestring = "${seconds}s";
|
192
|
+
}
|
193
|
+
return $uptimestring;
|
194
|
+
}
|
195
|
+
|
196
|
+
# Retrieves the memory installed on this machine
|
197
|
+
my ($physical_memory,$swap_memory,$duflags);
|
198
|
+
sub os_setup {
|
199
|
+
sub memerror {
|
200
|
+
badprint "Unable to determine total memory/swap; use '--forcemem' and '--forceswap'\n";
|
201
|
+
exit;
|
202
|
+
}
|
203
|
+
my $os = `uname`;
|
204
|
+
$duflags = ($os =~ /Linux/) ? '-b' : '';
|
205
|
+
if ($opt{'forcemem'} > 0) {
|
206
|
+
$physical_memory = $opt{'forcemem'} * 1048576;
|
207
|
+
infoprint "Assuming $opt{'forcemem'} MB of physical memory\n";
|
208
|
+
if ($opt{'forceswap'} > 0) {
|
209
|
+
$swap_memory = $opt{'forceswap'} * 1048576;
|
210
|
+
infoprint "Assuming $opt{'forceswap'} MB of swap space\n";
|
211
|
+
} else {
|
212
|
+
$swap_memory = 0;
|
213
|
+
badprint "Assuming 0 MB of swap space (use --forceswap to specify)\n";
|
214
|
+
}
|
215
|
+
} else {
|
216
|
+
if ($os =~ /Linux/) {
|
217
|
+
$physical_memory = `free -b | grep Mem | awk '{print \$2}'` or memerror;
|
218
|
+
$swap_memory = `free -b | grep Swap | awk '{print \$2}'` or memerror;
|
219
|
+
} elsif ($os =~ /Darwin/) {
|
220
|
+
$physical_memory = `sysctl -n hw.memsize` or memerror;
|
221
|
+
$swap_memory = `sysctl -n vm.swapusage | awk '{print \$3}' | sed 's/\..*\$//'` or memerror;
|
222
|
+
} elsif ($os =~ /NetBSD|OpenBSD/) {
|
223
|
+
$physical_memory = `sysctl -n hw.physmem` or memerror;
|
224
|
+
if ($physical_memory < 0) {
|
225
|
+
$physical_memory = `sysctl -n hw.physmem64` or memerror;
|
226
|
+
}
|
227
|
+
$swap_memory = `swapctl -l | grep '^/' | awk '{ s+= \$2 } END { print s }'` or memerror;
|
228
|
+
} elsif ($os =~ /BSD/) {
|
229
|
+
$physical_memory = `sysctl -n hw.realmem`;
|
230
|
+
$swap_memory = `swapinfo | grep '^/' | awk '{ s+= \$2 } END { print s }'`;
|
231
|
+
} elsif ($os =~ /SunOS/) {
|
232
|
+
$physical_memory = `/usr/sbin/prtconf | grep Memory | cut -f 3 -d ' '` or memerror;
|
233
|
+
chomp($physical_memory);
|
234
|
+
$physical_memory = $physical_memory*1024*1024;
|
235
|
+
} elsif ($os =~ /AIX/) {
|
236
|
+
$physical_memory = `lsattr -El sys0 | grep realmem | awk '{print \$2}'` or memerror;
|
237
|
+
chomp($physical_memory);
|
238
|
+
$physical_memory = $physical_memory*1024;
|
239
|
+
$swap_memory = `lsps -as | awk -F"(MB| +)" '/MB /{print \$2}'` or memerror;
|
240
|
+
chomp($swap_memory);
|
241
|
+
$swap_memory = $swap_memory*1024*1024;
|
242
|
+
}
|
243
|
+
}
|
244
|
+
chomp($physical_memory);
|
245
|
+
}
|
246
|
+
|
247
|
+
# Checks to see if a MySQL login is possible
|
248
|
+
my ($mysqllogin,$doremote,$remotestring);
|
249
|
+
sub mysql_setup {
|
250
|
+
$doremote = 0;
|
251
|
+
$remotestring = '';
|
252
|
+
my $command = `which mysqladmin`;
|
253
|
+
chomp($command);
|
254
|
+
if (! -e $command) {
|
255
|
+
badprint "Unable to find mysqladmin in your \$PATH. Is MySQL installed?\n";
|
256
|
+
exit;
|
257
|
+
}
|
258
|
+
# Are we being asked to connect via a socket?
|
259
|
+
if ($opt{socket} ne 0) {
|
260
|
+
$remotestring = " -S $opt{socket}";
|
261
|
+
}
|
262
|
+
# Are we being asked to connect to a remote server?
|
263
|
+
if ($opt{host} ne 0) {
|
264
|
+
chomp($opt{host});
|
265
|
+
$opt{port} = ($opt{port} eq 0)? 3306 : $opt{port} ;
|
266
|
+
# If we're doing a remote connection, but forcemem wasn't specified, we need to exit
|
267
|
+
if ($opt{'forcemem'} eq 0) {
|
268
|
+
badprint "The --forcemem option is required for remote connections\n";
|
269
|
+
exit;
|
270
|
+
}
|
271
|
+
infoprint "Performing tests on $opt{host}:$opt{port}\n";
|
272
|
+
$remotestring = " -h $opt{host} -P $opt{port}";
|
273
|
+
$doremote = 1;
|
274
|
+
}
|
275
|
+
# Did we already get a username and password passed on the command line?
|
276
|
+
if ($opt{user} ne 0 and $opt{pass} ne 0) {
|
277
|
+
$mysqllogin = "-u $opt{user} -p'$opt{pass}'".$remotestring;
|
278
|
+
my $loginstatus = `mysqladmin ping $mysqllogin 2>&1`;
|
279
|
+
if ($loginstatus =~ /mysqld is alive/) {
|
280
|
+
goodprint "Logged in using credentials passed on the command line\n";
|
281
|
+
return 1;
|
282
|
+
} else {
|
283
|
+
badprint "Attempted to use login credentials, but they were invalid\n";
|
284
|
+
exit 0;
|
285
|
+
}
|
286
|
+
}
|
287
|
+
if ( -r "/etc/psa/.psa.shadow" and $doremote == 0 ) {
|
288
|
+
# It's a Plesk box, use the available credentials
|
289
|
+
$mysqllogin = "-u admin -p`cat /etc/psa/.psa.shadow`";
|
290
|
+
my $loginstatus = `mysqladmin ping $mysqllogin 2>&1`;
|
291
|
+
unless ($loginstatus =~ /mysqld is alive/) {
|
292
|
+
badprint "Attempted to use login credentials from Plesk, but they failed.\n";
|
293
|
+
exit 0;
|
294
|
+
}
|
295
|
+
} elsif ( -r "/etc/mysql/debian.cnf" and $doremote == 0 ){
|
296
|
+
# We have a debian maintenance account, use it
|
297
|
+
$mysqllogin = "--defaults-file=/etc/mysql/debian.cnf";
|
298
|
+
my $loginstatus = `mysqladmin $mysqllogin ping 2>&1`;
|
299
|
+
if ($loginstatus =~ /mysqld is alive/) {
|
300
|
+
goodprint "Logged in using credentials from debian maintenance account.\n";
|
301
|
+
return 1;
|
302
|
+
} else {
|
303
|
+
badprint "Attempted to use login credentials from debian maintenance account, but they failed.\n";
|
304
|
+
exit 0;
|
305
|
+
}
|
306
|
+
} else {
|
307
|
+
# It's not Plesk or debian, we should try a login
|
308
|
+
my $loginstatus = `mysqladmin $remotestring ping 2>&1`;
|
309
|
+
if ($loginstatus =~ /mysqld is alive/) {
|
310
|
+
# Login went just fine
|
311
|
+
$mysqllogin = " $remotestring ";
|
312
|
+
# Did this go well because of a .my.cnf file or is there no password set?
|
313
|
+
my $userpath = `printenv HOME`;
|
314
|
+
if (length($userpath) > 0) {
|
315
|
+
chomp($userpath);
|
316
|
+
}
|
317
|
+
unless ( -e "${userpath}/.my.cnf" ) {
|
318
|
+
badprint "Successfully authenticated with no password - SECURITY RISK!\n";
|
319
|
+
}
|
320
|
+
return 1;
|
321
|
+
} else {
|
322
|
+
print STDERR "Please enter your MySQL administrative login: ";
|
323
|
+
my $name = <>;
|
324
|
+
print STDERR "Please enter your MySQL administrative password: ";
|
325
|
+
system("stty -echo >$devnull 2>&1");
|
326
|
+
my $password = <>;
|
327
|
+
system("stty echo >$devnull 2>&1");
|
328
|
+
chomp($password);
|
329
|
+
chomp($name);
|
330
|
+
$mysqllogin = "-u $name";
|
331
|
+
if (length($password) > 0) {
|
332
|
+
$mysqllogin .= " -p'$password'";
|
333
|
+
}
|
334
|
+
$mysqllogin .= $remotestring;
|
335
|
+
my $loginstatus = `mysqladmin ping $mysqllogin 2>&1`;
|
336
|
+
if ($loginstatus =~ /mysqld is alive/) {
|
337
|
+
print STDERR "\n";
|
338
|
+
if (! length($password)) {
|
339
|
+
# Did this go well because of a .my.cnf file or is there no password set?
|
340
|
+
my $userpath = `ls -d ~`;
|
341
|
+
chomp($userpath);
|
342
|
+
unless ( -e "$userpath/.my.cnf" ) {
|
343
|
+
badprint "Successfully authenticated with no password - SECURITY RISK!\n";
|
344
|
+
}
|
345
|
+
}
|
346
|
+
return 1;
|
347
|
+
} else {
|
348
|
+
print "\n".$bad." Attempted to use login credentials, but they were invalid.\n";
|
349
|
+
exit 0;
|
350
|
+
}
|
351
|
+
exit 0;
|
352
|
+
}
|
353
|
+
}
|
354
|
+
}
|
355
|
+
|
356
|
+
# Populates all of the variable and status hashes
|
357
|
+
my (%mystat,%myvar,$dummyselect);
|
358
|
+
sub get_all_vars {
|
359
|
+
# We need to initiate at least one query so that our data is useable
|
360
|
+
$dummyselect = `mysql $mysqllogin -Bse "SELECT VERSION();"`;
|
361
|
+
my @mysqlvarlist = `mysql $mysqllogin -Bse "SHOW /*!50000 GLOBAL */ VARIABLES;"`;
|
362
|
+
foreach my $line (@mysqlvarlist) {
|
363
|
+
$line =~ /([a-zA-Z_]*)\s*(.*)/;
|
364
|
+
$myvar{$1} = $2;
|
365
|
+
}
|
366
|
+
my @mysqlstatlist = `mysql $mysqllogin -Bse "SHOW /*!50000 GLOBAL */ STATUS;"`;
|
367
|
+
foreach my $line (@mysqlstatlist) {
|
368
|
+
$line =~ /([a-zA-Z_]*)\s*(.*)/;
|
369
|
+
$mystat{$1} = $2;
|
370
|
+
}
|
371
|
+
# Workaround for MySQL bug #59393 wrt. ignore-builtin-innodb
|
372
|
+
if (($myvar{'ignore_builtin_innodb'} || "") eq "ON") {
|
373
|
+
$myvar{'have_innodb'} = "NO";
|
374
|
+
}
|
375
|
+
# have_* for engines is deprecated and will be removed in MySQL 5.6;
|
376
|
+
# check SHOW ENGINES and set corresponding old style variables.
|
377
|
+
# Also works around MySQL bug #59393 wrt. skip-innodb
|
378
|
+
my @mysqlenginelist = `mysql $mysqllogin -Bse "SHOW ENGINES;" 2>$devnull`;
|
379
|
+
foreach my $line (@mysqlenginelist) {
|
380
|
+
if ($line =~ /^([a-zA-Z_]+)\s+(\S+)/) {
|
381
|
+
my $engine = lc($1);
|
382
|
+
if ($engine eq "federated" || $engine eq "blackhole") {
|
383
|
+
$engine .= "_engine";
|
384
|
+
} elsif ($engine eq "berkeleydb") {
|
385
|
+
$engine = "bdb";
|
386
|
+
}
|
387
|
+
my $val = ($2 eq "DEFAULT") ? "YES" : $2;
|
388
|
+
$myvar{"have_$engine"} = $val;
|
389
|
+
}
|
390
|
+
}
|
391
|
+
}
|
392
|
+
|
393
|
+
sub security_recommendations {
|
394
|
+
print "\n-------- Security Recommendations -------------------------------------------\n";
|
395
|
+
my @mysqlstatlist = `mysql $mysqllogin -Bse "SELECT CONCAT(user, '\@', host) FROM mysql.user WHERE password = '' OR password IS NULL;"`;
|
396
|
+
if (@mysqlstatlist) {
|
397
|
+
foreach my $line (sort @mysqlstatlist) {
|
398
|
+
chomp($line);
|
399
|
+
badprint "User '".$line."' has no password set.\n";
|
400
|
+
}
|
401
|
+
} else {
|
402
|
+
goodprint "All database users have passwords assigned\n";
|
403
|
+
}
|
404
|
+
}
|
405
|
+
|
406
|
+
sub get_replication_status {
|
407
|
+
my $slave_status = `mysql $mysqllogin -Bse "show slave status\\G"`;
|
408
|
+
my ($io_running) = ($slave_status =~ /slave_io_running\S*\s+(\S+)/i);
|
409
|
+
my ($sql_running) = ($slave_status =~ /slave_sql_running\S*\s+(\S+)/i);
|
410
|
+
if ($io_running eq 'Yes' && $sql_running eq 'Yes') {
|
411
|
+
if ($myvar{'read_only'} eq 'OFF') {
|
412
|
+
badprint "This replication slave is running with the read_only option disabled.";
|
413
|
+
} else {
|
414
|
+
goodprint "This replication slave is running with the read_only option enabled.";
|
415
|
+
}
|
416
|
+
}
|
417
|
+
}
|
418
|
+
|
419
|
+
# Checks for updates to MySQLTuner
|
420
|
+
sub validate_tuner_version {
|
421
|
+
print "\n-------- General Statistics --------------------------------------------------\n";
|
422
|
+
if ($opt{checkversion} eq 0) {
|
423
|
+
infoprint "Skipped version check for MySQLTuner script\n";
|
424
|
+
return;
|
425
|
+
}
|
426
|
+
my $update;
|
427
|
+
my $url = "http://mysqltuner.com/versioncheck.php?v=$tunerversion";
|
428
|
+
if (-e "/usr/bin/curl") {
|
429
|
+
$update = `/usr/bin/curl --connect-timeout 5 '$url' 2>$devnull`;
|
430
|
+
chomp($update);
|
431
|
+
} elsif (-e "/usr/bin/wget") {
|
432
|
+
$update = `/usr/bin/wget -e timestamping=off -T 5 -O - '$url' 2>$devnull`;
|
433
|
+
chomp($update);
|
434
|
+
}
|
435
|
+
if ($update eq 1) {
|
436
|
+
badprint "There is a new version of MySQLTuner available\n";
|
437
|
+
} elsif ($update eq 0) {
|
438
|
+
goodprint "You have the latest version of MySQLTuner\n";
|
439
|
+
} else {
|
440
|
+
infoprint "Unable to check for the latest MySQLTuner version\n";
|
441
|
+
}
|
442
|
+
}
|
443
|
+
|
444
|
+
# Checks for supported or EOL'ed MySQL versions
|
445
|
+
my ($mysqlvermajor,$mysqlverminor);
|
446
|
+
sub validate_mysql_version {
|
447
|
+
($mysqlvermajor,$mysqlverminor) = $myvar{'version'} =~ /(\d)\.(\d)/;
|
448
|
+
if (!mysql_version_ge(5)) {
|
449
|
+
badprint "Your MySQL version ".$myvar{'version'}." is EOL software! Upgrade soon!\n";
|
450
|
+
} elsif (mysql_version_ge(6)) {
|
451
|
+
badprint "Currently running unsupported MySQL version ".$myvar{'version'}."\n";
|
452
|
+
} else {
|
453
|
+
goodprint "Currently running supported MySQL version ".$myvar{'version'}."\n";
|
454
|
+
}
|
455
|
+
}
|
456
|
+
|
457
|
+
# Checks if MySQL version is greater than equal to (major, minor)
|
458
|
+
sub mysql_version_ge {
|
459
|
+
my ($maj, $min) = @_;
|
460
|
+
return $mysqlvermajor > $maj || ($mysqlvermajor == $maj && $mysqlverminor >= ($min || 0));
|
461
|
+
}
|
462
|
+
|
463
|
+
# Checks for 32-bit boxes with more than 2GB of RAM
|
464
|
+
my ($arch);
|
465
|
+
sub check_architecture {
|
466
|
+
if ($doremote eq 1) { return; }
|
467
|
+
if (`uname` =~ /SunOS/ && `isainfo -b` =~ /64/) {
|
468
|
+
$arch = 64;
|
469
|
+
goodprint "Operating on 64-bit architecture\n";
|
470
|
+
} elsif (`uname` !~ /SunOS/ && `uname -m` =~ /64/) {
|
471
|
+
$arch = 64;
|
472
|
+
goodprint "Operating on 64-bit architecture\n";
|
473
|
+
} elsif (`uname` =~ /AIX/ && `bootinfo -K` =~ /64/) {
|
474
|
+
$arch = 64;
|
475
|
+
goodprint "Operating on 64-bit architecture\n";
|
476
|
+
} else {
|
477
|
+
$arch = 32;
|
478
|
+
if ($physical_memory > 2147483648) {
|
479
|
+
badprint "Switch to 64-bit OS - MySQL cannot currently use all of your RAM\n";
|
480
|
+
} else {
|
481
|
+
goodprint "Operating on 32-bit architecture with less than 2GB RAM\n";
|
482
|
+
}
|
483
|
+
}
|
484
|
+
}
|
485
|
+
|
486
|
+
# Start up a ton of storage engine counts/statistics
|
487
|
+
my (%enginestats,%enginecount,$fragtables);
|
488
|
+
sub check_storage_engines {
|
489
|
+
if ($opt{skipsize} eq 1) {
|
490
|
+
print "\n-------- Storage Engine Statistics -------------------------------------------\n";
|
491
|
+
infoprint "Skipped due to --skipsize option\n";
|
492
|
+
return;
|
493
|
+
}
|
494
|
+
print "\n-------- Storage Engine Statistics -------------------------------------------\n";
|
495
|
+
infoprint "Status: ";
|
496
|
+
my $engines;
|
497
|
+
$engines .= (defined $myvar{'have_archive'} && $myvar{'have_archive'} eq "YES")? greenwrap "+Archive " : redwrap "-Archive " ;
|
498
|
+
$engines .= (defined $myvar{'have_bdb'} && $myvar{'have_bdb'} eq "YES")? greenwrap "+BDB " : redwrap "-BDB " ;
|
499
|
+
$engines .= (defined $myvar{'have_federated_engine'} && $myvar{'have_federated_engine'} eq "YES")? greenwrap "+Federated " : redwrap "-Federated " ;
|
500
|
+
$engines .= (defined $myvar{'have_innodb'} && $myvar{'have_innodb'} eq "YES")? greenwrap "+InnoDB " : redwrap "-InnoDB " ;
|
501
|
+
$engines .= (defined $myvar{'have_isam'} && $myvar{'have_isam'} eq "YES")? greenwrap "+ISAM " : redwrap "-ISAM " ;
|
502
|
+
$engines .= (defined $myvar{'have_ndbcluster'} && $myvar{'have_ndbcluster'} eq "YES")? greenwrap "+NDBCluster " : redwrap "-NDBCluster " ;
|
503
|
+
print "$engines\n";
|
504
|
+
if (mysql_version_ge(5)) {
|
505
|
+
# MySQL 5 servers can have table sizes calculated quickly from information schema
|
506
|
+
my @templist = `mysql $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;"`;
|
507
|
+
foreach my $line (@templist) {
|
508
|
+
my ($engine,$size,$count);
|
509
|
+
($engine,$size,$count) = $line =~ /([a-zA-Z_]*)\s+(\d+)\s+(\d+)/;
|
510
|
+
if (!defined($size)) { next; }
|
511
|
+
$enginestats{$engine} = $size;
|
512
|
+
$enginecount{$engine} = $count;
|
513
|
+
}
|
514
|
+
$fragtables = `mysql $mysqllogin -Bse "SELECT COUNT(TABLE_NAME) FROM information_schema.TABLES WHERE TABLE_SCHEMA NOT IN ('information_schema','mysql') AND Data_free > 0 AND NOT ENGINE='MEMORY';"`;
|
515
|
+
chomp($fragtables);
|
516
|
+
} else {
|
517
|
+
# MySQL < 5 servers take a lot of work to get table sizes
|
518
|
+
my @tblist;
|
519
|
+
# Now we build a database list, and loop through it to get storage engine stats for tables
|
520
|
+
my @dblist = `mysql $mysqllogin -Bse "SHOW DATABASES"`;
|
521
|
+
foreach my $db (@dblist) {
|
522
|
+
chomp($db);
|
523
|
+
if ($db eq "information_schema") { next; }
|
524
|
+
my @ixs = (1, 6, 9);
|
525
|
+
if (!mysql_version_ge(4, 1)) {
|
526
|
+
# MySQL 3.23/4.0 keeps Data_Length in the 5th (0-based) column
|
527
|
+
@ixs = (1, 5, 8);
|
528
|
+
}
|
529
|
+
push(@tblist, map { [ (split)[@ixs] ] } `mysql $mysqllogin -Bse "SHOW TABLE STATUS FROM \\\`$db\\\`"`);
|
530
|
+
}
|
531
|
+
# Parse through the table list to generate storage engine counts/statistics
|
532
|
+
$fragtables = 0;
|
533
|
+
foreach my $tbl (@tblist) {
|
534
|
+
my ($engine, $size, $datafree) = @$tbl;
|
535
|
+
if (defined $enginestats{$engine}) {
|
536
|
+
$enginestats{$engine} += $size;
|
537
|
+
$enginecount{$engine} += 1;
|
538
|
+
} else {
|
539
|
+
$enginestats{$engine} = $size;
|
540
|
+
$enginecount{$engine} = 1;
|
541
|
+
}
|
542
|
+
if ($datafree > 0) {
|
543
|
+
$fragtables++;
|
544
|
+
}
|
545
|
+
}
|
546
|
+
}
|
547
|
+
while (my ($engine,$size) = each(%enginestats)) {
|
548
|
+
infoprint "Data in $engine tables: ".hr_bytes_rnd($size)." (Tables: ".$enginecount{$engine}.")"."\n";
|
549
|
+
}
|
550
|
+
# If the storage engine isn't being used, recommend it to be disabled
|
551
|
+
if (!defined $enginestats{'InnoDB'} && defined $myvar{'have_innodb'} && $myvar{'have_innodb'} eq "YES") {
|
552
|
+
badprint "InnoDB is enabled but isn't being used\n";
|
553
|
+
push(@generalrec,"Add skip-innodb to MySQL configuration to disable InnoDB");
|
554
|
+
}
|
555
|
+
if (!defined $enginestats{'BerkeleyDB'} && defined $myvar{'have_bdb'} && $myvar{'have_bdb'} eq "YES") {
|
556
|
+
badprint "BDB is enabled but isn't being used\n";
|
557
|
+
push(@generalrec,"Add skip-bdb to MySQL configuration to disable BDB");
|
558
|
+
}
|
559
|
+
if (!defined $enginestats{'ISAM'} && defined $myvar{'have_isam'} && $myvar{'have_isam'} eq "YES") {
|
560
|
+
badprint "ISAM is enabled but isn't being used\n";
|
561
|
+
push(@generalrec,"Add skip-isam to MySQL configuration to disable ISAM (MySQL > 4.1.0)");
|
562
|
+
}
|
563
|
+
# Fragmented tables
|
564
|
+
if ($fragtables > 0) {
|
565
|
+
badprint "Total fragmented tables: $fragtables\n";
|
566
|
+
push(@generalrec,"Run OPTIMIZE TABLE to defragment tables for better performance");
|
567
|
+
} else {
|
568
|
+
goodprint "Total fragmented tables: $fragtables\n";
|
569
|
+
}
|
570
|
+
}
|
571
|
+
|
572
|
+
my %mycalc;
|
573
|
+
sub calculations {
|
574
|
+
if ($mystat{'Questions'} < 1) {
|
575
|
+
badprint "Your server has not answered any queries - cannot continue...";
|
576
|
+
exit 0;
|
577
|
+
}
|
578
|
+
# Per-thread memory
|
579
|
+
if (mysql_version_ge(4)) {
|
580
|
+
$mycalc{'per_thread_buffers'} = $myvar{'read_buffer_size'} + $myvar{'read_rnd_buffer_size'} + $myvar{'sort_buffer_size'} + $myvar{'thread_stack'} + $myvar{'join_buffer_size'};
|
581
|
+
} else {
|
582
|
+
$mycalc{'per_thread_buffers'} = $myvar{'record_buffer'} + $myvar{'record_rnd_buffer'} + $myvar{'sort_buffer'} + $myvar{'thread_stack'} + $myvar{'join_buffer_size'};
|
583
|
+
}
|
584
|
+
$mycalc{'total_per_thread_buffers'} = $mycalc{'per_thread_buffers'} * $myvar{'max_connections'};
|
585
|
+
$mycalc{'max_total_per_thread_buffers'} = $mycalc{'per_thread_buffers'} * $mystat{'Max_used_connections'};
|
586
|
+
|
587
|
+
# Server-wide memory
|
588
|
+
$mycalc{'max_tmp_table_size'} = ($myvar{'tmp_table_size'} > $myvar{'max_heap_table_size'}) ? $myvar{'max_heap_table_size'} : $myvar{'tmp_table_size'} ;
|
589
|
+
$mycalc{'server_buffers'} = $myvar{'key_buffer_size'} + $mycalc{'max_tmp_table_size'};
|
590
|
+
$mycalc{'server_buffers'} += (defined $myvar{'innodb_buffer_pool_size'}) ? $myvar{'innodb_buffer_pool_size'} : 0 ;
|
591
|
+
$mycalc{'server_buffers'} += (defined $myvar{'innodb_additional_mem_pool_size'}) ? $myvar{'innodb_additional_mem_pool_size'} : 0 ;
|
592
|
+
$mycalc{'server_buffers'} += (defined $myvar{'innodb_log_buffer_size'}) ? $myvar{'innodb_log_buffer_size'} : 0 ;
|
593
|
+
$mycalc{'server_buffers'} += (defined $myvar{'query_cache_size'}) ? $myvar{'query_cache_size'} : 0 ;
|
594
|
+
|
595
|
+
# Global memory
|
596
|
+
$mycalc{'max_used_memory'} = $mycalc{'server_buffers'} + $mycalc{"max_total_per_thread_buffers"};
|
597
|
+
$mycalc{'total_possible_used_memory'} = $mycalc{'server_buffers'} + $mycalc{'total_per_thread_buffers'};
|
598
|
+
$mycalc{'pct_physical_memory'} = int(($mycalc{'total_possible_used_memory'} * 100) / $physical_memory);
|
599
|
+
|
600
|
+
# Slow queries
|
601
|
+
$mycalc{'pct_slow_queries'} = int(($mystat{'Slow_queries'}/$mystat{'Questions'}) * 100);
|
602
|
+
|
603
|
+
# Connections
|
604
|
+
$mycalc{'pct_connections_used'} = int(($mystat{'Max_used_connections'}/$myvar{'max_connections'}) * 100);
|
605
|
+
$mycalc{'pct_connections_used'} = ($mycalc{'pct_connections_used'} > 100) ? 100 : $mycalc{'pct_connections_used'} ;
|
606
|
+
|
607
|
+
# Key buffers
|
608
|
+
if (mysql_version_ge(4, 1)) {
|
609
|
+
$mycalc{'pct_key_buffer_used'} = sprintf("%.1f",(1 - (($mystat{'Key_blocks_unused'} * $myvar{'key_cache_block_size'}) / $myvar{'key_buffer_size'})) * 100);
|
610
|
+
}
|
611
|
+
if ($mystat{'Key_read_requests'} > 0) {
|
612
|
+
$mycalc{'pct_keys_from_mem'} = sprintf("%.1f",(100 - (($mystat{'Key_reads'} / $mystat{'Key_read_requests'}) * 100)));
|
613
|
+
} else {
|
614
|
+
$mycalc{'pct_keys_from_mem'} = 0;
|
615
|
+
}
|
616
|
+
if ($doremote eq 0 and !mysql_version_ge(5)) {
|
617
|
+
my $size = 0;
|
618
|
+
$size += (split)[0] for `find $myvar{'datadir'} -name "*.MYI" 2>&1 | xargs du -L $duflags 2>&1`;
|
619
|
+
$mycalc{'total_myisam_indexes'} = $size;
|
620
|
+
} elsif (mysql_version_ge(5)) {
|
621
|
+
$mycalc{'total_myisam_indexes'} = `mysql $mysqllogin -Bse "SELECT IFNULL(SUM(INDEX_LENGTH),0) FROM information_schema.TABLES WHERE TABLE_SCHEMA NOT IN ('information_schema') AND ENGINE = 'MyISAM';"`;
|
622
|
+
}
|
623
|
+
if (defined $mycalc{'total_myisam_indexes'} and $mycalc{'total_myisam_indexes'} == 0) {
|
624
|
+
$mycalc{'total_myisam_indexes'} = "fail";
|
625
|
+
} elsif (defined $mycalc{'total_myisam_indexes'}) {
|
626
|
+
chomp($mycalc{'total_myisam_indexes'});
|
627
|
+
}
|
628
|
+
|
629
|
+
# Query cache
|
630
|
+
if (mysql_version_ge(4)) {
|
631
|
+
$mycalc{'query_cache_efficiency'} = sprintf("%.1f",($mystat{'Qcache_hits'} / ($mystat{'Com_select'} + $mystat{'Qcache_hits'})) * 100);
|
632
|
+
if ($myvar{'query_cache_size'}) {
|
633
|
+
$mycalc{'pct_query_cache_used'} = sprintf("%.1f",100 - ($mystat{'Qcache_free_memory'} / $myvar{'query_cache_size'}) * 100);
|
634
|
+
}
|
635
|
+
if ($mystat{'Qcache_lowmem_prunes'} == 0) {
|
636
|
+
$mycalc{'query_cache_prunes_per_day'} = 0;
|
637
|
+
} else {
|
638
|
+
$mycalc{'query_cache_prunes_per_day'} = int($mystat{'Qcache_lowmem_prunes'} / ($mystat{'Uptime'}/86400));
|
639
|
+
}
|
640
|
+
}
|
641
|
+
|
642
|
+
# Sorting
|
643
|
+
$mycalc{'total_sorts'} = $mystat{'Sort_scan'} + $mystat{'Sort_range'};
|
644
|
+
if ($mycalc{'total_sorts'} > 0) {
|
645
|
+
$mycalc{'pct_temp_sort_table'} = int(($mystat{'Sort_merge_passes'} / $mycalc{'total_sorts'}) * 100);
|
646
|
+
}
|
647
|
+
|
648
|
+
# Joins
|
649
|
+
$mycalc{'joins_without_indexes'} = $mystat{'Select_range_check'} + $mystat{'Select_full_join'};
|
650
|
+
$mycalc{'joins_without_indexes_per_day'} = int($mycalc{'joins_without_indexes'} / ($mystat{'Uptime'}/86400));
|
651
|
+
|
652
|
+
# Temporary tables
|
653
|
+
if ($mystat{'Created_tmp_tables'} > 0) {
|
654
|
+
if ($mystat{'Created_tmp_disk_tables'} > 0) {
|
655
|
+
$mycalc{'pct_temp_disk'} = int(($mystat{'Created_tmp_disk_tables'} / ($mystat{'Created_tmp_tables'} + $mystat{'Created_tmp_disk_tables'})) * 100);
|
656
|
+
} else {
|
657
|
+
$mycalc{'pct_temp_disk'} = 0;
|
658
|
+
}
|
659
|
+
}
|
660
|
+
|
661
|
+
# Table cache
|
662
|
+
if ($mystat{'Opened_tables'} > 0) {
|
663
|
+
$mycalc{'table_cache_hit_rate'} = int($mystat{'Open_tables'}*100/$mystat{'Opened_tables'});
|
664
|
+
} else {
|
665
|
+
$mycalc{'table_cache_hit_rate'} = 100;
|
666
|
+
}
|
667
|
+
|
668
|
+
# Open files
|
669
|
+
if ($myvar{'open_files_limit'} > 0) {
|
670
|
+
$mycalc{'pct_files_open'} = int($mystat{'Open_files'}*100/$myvar{'open_files_limit'});
|
671
|
+
}
|
672
|
+
|
673
|
+
# Table locks
|
674
|
+
if ($mystat{'Table_locks_immediate'} > 0) {
|
675
|
+
if ($mystat{'Table_locks_waited'} == 0) {
|
676
|
+
$mycalc{'pct_table_locks_immediate'} = 100;
|
677
|
+
} else {
|
678
|
+
$mycalc{'pct_table_locks_immediate'} = int($mystat{'Table_locks_immediate'}*100/($mystat{'Table_locks_waited'} + $mystat{'Table_locks_immediate'}));
|
679
|
+
}
|
680
|
+
}
|
681
|
+
|
682
|
+
# Thread cache
|
683
|
+
$mycalc{'thread_cache_hit_rate'} = int(100 - (($mystat{'Threads_created'} / $mystat{'Connections'}) * 100));
|
684
|
+
|
685
|
+
# Other
|
686
|
+
if ($mystat{'Connections'} > 0) {
|
687
|
+
$mycalc{'pct_aborted_connections'} = int(($mystat{'Aborted_connects'}/$mystat{'Connections'}) * 100);
|
688
|
+
}
|
689
|
+
if ($mystat{'Questions'} > 0) {
|
690
|
+
$mycalc{'total_reads'} = $mystat{'Com_select'};
|
691
|
+
$mycalc{'total_writes'} = $mystat{'Com_delete'} + $mystat{'Com_insert'} + $mystat{'Com_update'} + $mystat{'Com_replace'};
|
692
|
+
if ($mycalc{'total_reads'} == 0) {
|
693
|
+
$mycalc{'pct_reads'} = 0;
|
694
|
+
$mycalc{'pct_writes'} = 100;
|
695
|
+
} else {
|
696
|
+
$mycalc{'pct_reads'} = int(($mycalc{'total_reads'}/($mycalc{'total_reads'}+$mycalc{'total_writes'})) * 100);
|
697
|
+
$mycalc{'pct_writes'} = 100-$mycalc{'pct_reads'};
|
698
|
+
}
|
699
|
+
}
|
700
|
+
|
701
|
+
# InnoDB
|
702
|
+
if ($myvar{'have_innodb'} eq "YES") {
|
703
|
+
$mycalc{'innodb_log_size_pct'} = ($myvar{'innodb_log_file_size'} * 100 / $myvar{'innodb_buffer_pool_size'});
|
704
|
+
}
|
705
|
+
}
|
706
|
+
|
707
|
+
sub mysql_stats {
|
708
|
+
print "\n-------- Performance Metrics -------------------------------------------------\n";
|
709
|
+
# Show uptime, queries per second, connections, traffic stats
|
710
|
+
my $qps;
|
711
|
+
if ($mystat{'Uptime'} > 0) { $qps = sprintf("%.3f",$mystat{'Questions'}/$mystat{'Uptime'}); }
|
712
|
+
if ($mystat{'Uptime'} < 86400) { push(@generalrec,"MySQL started within last 24 hours - recommendations may be inaccurate"); }
|
713
|
+
infoprint "Up for: ".pretty_uptime($mystat{'Uptime'})." (".hr_num($mystat{'Questions'}).
|
714
|
+
" q [".hr_num($qps)." qps], ".hr_num($mystat{'Connections'})." conn,".
|
715
|
+
" TX: ".hr_num($mystat{'Bytes_sent'}).", RX: ".hr_num($mystat{'Bytes_received'}).")\n";
|
716
|
+
infoprint "Reads / Writes: ".$mycalc{'pct_reads'}."% / ".$mycalc{'pct_writes'}."%\n";
|
717
|
+
|
718
|
+
# Memory usage
|
719
|
+
infoprint "Total buffers: ".hr_bytes($mycalc{'server_buffers'})." global + ".hr_bytes($mycalc{'per_thread_buffers'})." per thread ($myvar{'max_connections'} max threads)\n";
|
720
|
+
if ($mycalc{'total_possible_used_memory'} > 2*1024*1024*1024 && $arch eq 32) {
|
721
|
+
badprint "Allocating > 2GB RAM on 32-bit systems can cause system instability\n";
|
722
|
+
badprint "Maximum possible memory usage: ".hr_bytes($mycalc{'total_possible_used_memory'})." ($mycalc{'pct_physical_memory'}% of installed RAM)\n";
|
723
|
+
} elsif ($mycalc{'pct_physical_memory'} > 85) {
|
724
|
+
badprint "Maximum possible memory usage: ".hr_bytes($mycalc{'total_possible_used_memory'})." ($mycalc{'pct_physical_memory'}% of installed RAM)\n";
|
725
|
+
push(@generalrec,"Reduce your overall MySQL memory footprint for system stability");
|
726
|
+
} else {
|
727
|
+
goodprint "Maximum possible memory usage: ".hr_bytes($mycalc{'total_possible_used_memory'})." ($mycalc{'pct_physical_memory'}% of installed RAM)\n";
|
728
|
+
}
|
729
|
+
|
730
|
+
# Slow queries
|
731
|
+
if ($mycalc{'pct_slow_queries'} > 5) {
|
732
|
+
badprint "Slow queries: $mycalc{'pct_slow_queries'}% (".hr_num($mystat{'Slow_queries'})."/".hr_num($mystat{'Questions'}).")\n";
|
733
|
+
} else {
|
734
|
+
goodprint "Slow queries: $mycalc{'pct_slow_queries'}% (".hr_num($mystat{'Slow_queries'})."/".hr_num($mystat{'Questions'}).")\n";
|
735
|
+
}
|
736
|
+
if ($myvar{'long_query_time'} > 10) { push(@adjvars,"long_query_time (<= 10)"); }
|
737
|
+
if (defined($myvar{'log_slow_queries'})) {
|
738
|
+
if ($myvar{'log_slow_queries'} eq "OFF") { push(@generalrec,"Enable the slow query log to troubleshoot bad queries"); }
|
739
|
+
}
|
740
|
+
|
741
|
+
# Connections
|
742
|
+
if ($mycalc{'pct_connections_used'} > 85) {
|
743
|
+
badprint "Highest connection usage: $mycalc{'pct_connections_used'}% ($mystat{'Max_used_connections'}/$myvar{'max_connections'})\n";
|
744
|
+
push(@adjvars,"max_connections (> ".$myvar{'max_connections'}.")");
|
745
|
+
push(@adjvars,"wait_timeout (< ".$myvar{'wait_timeout'}.")","interactive_timeout (< ".$myvar{'interactive_timeout'}.")");
|
746
|
+
push(@generalrec,"Reduce or eliminate persistent connections to reduce connection usage")
|
747
|
+
} else {
|
748
|
+
goodprint "Highest usage of available connections: $mycalc{'pct_connections_used'}% ($mystat{'Max_used_connections'}/$myvar{'max_connections'})\n";
|
749
|
+
}
|
750
|
+
|
751
|
+
# Key buffer
|
752
|
+
if (!defined($mycalc{'total_myisam_indexes'}) and $doremote == 1) {
|
753
|
+
push(@generalrec,"Unable to calculate MyISAM indexes on remote MySQL server < 5.0.0");
|
754
|
+
} elsif ($mycalc{'total_myisam_indexes'} =~ /^fail$/) {
|
755
|
+
badprint "Cannot calculate MyISAM index size - re-run script as root user\n";
|
756
|
+
} elsif ($mycalc{'total_myisam_indexes'} == "0") {
|
757
|
+
badprint "None of your MyISAM tables are indexed - add indexes immediately\n";
|
758
|
+
} else {
|
759
|
+
if ($myvar{'key_buffer_size'} < $mycalc{'total_myisam_indexes'} && $mycalc{'pct_keys_from_mem'} < 95) {
|
760
|
+
badprint "Key buffer size / total MyISAM indexes: ".hr_bytes($myvar{'key_buffer_size'})."/".hr_bytes($mycalc{'total_myisam_indexes'})."\n";
|
761
|
+
push(@adjvars,"key_buffer_size (> ".hr_bytes($mycalc{'total_myisam_indexes'}).")");
|
762
|
+
} else {
|
763
|
+
goodprint "Key buffer size / total MyISAM indexes: ".hr_bytes($myvar{'key_buffer_size'})."/".hr_bytes($mycalc{'total_myisam_indexes'})."\n";
|
764
|
+
}
|
765
|
+
if ($mystat{'Key_read_requests'} > 0) {
|
766
|
+
if ($mycalc{'pct_keys_from_mem'} < 95) {
|
767
|
+
badprint "Key buffer hit rate: $mycalc{'pct_keys_from_mem'}% (".hr_num($mystat{'Key_read_requests'})." cached / ".hr_num($mystat{'Key_reads'})." reads)\n";
|
768
|
+
} else {
|
769
|
+
goodprint "Key buffer hit rate: $mycalc{'pct_keys_from_mem'}% (".hr_num($mystat{'Key_read_requests'})." cached / ".hr_num($mystat{'Key_reads'})." reads)\n";
|
770
|
+
}
|
771
|
+
} else {
|
772
|
+
# No queries have run that would use keys
|
773
|
+
}
|
774
|
+
}
|
775
|
+
|
776
|
+
# Query cache
|
777
|
+
if (!mysql_version_ge(4)) {
|
778
|
+
# MySQL versions < 4.01 don't support query caching
|
779
|
+
push(@generalrec,"Upgrade MySQL to version 4+ to utilize query caching");
|
780
|
+
} elsif ($myvar{'query_cache_size'} < 1) {
|
781
|
+
badprint "Query cache is disabled\n";
|
782
|
+
push(@adjvars,"query_cache_size (>= 8M)");
|
783
|
+
} elsif ($mystat{'Com_select'} == 0) {
|
784
|
+
badprint "Query cache cannot be analyzed - no SELECT statements executed\n";
|
785
|
+
} else {
|
786
|
+
if ($mycalc{'query_cache_efficiency'} < 20) {
|
787
|
+
badprint "Query cache efficiency: $mycalc{'query_cache_efficiency'}% (".hr_num($mystat{'Qcache_hits'})." cached / ".hr_num($mystat{'Qcache_hits'}+$mystat{'Com_select'})." selects)\n";
|
788
|
+
push(@adjvars,"query_cache_limit (> ".hr_bytes_rnd($myvar{'query_cache_limit'}).", or use smaller result sets)");
|
789
|
+
} else {
|
790
|
+
goodprint "Query cache efficiency: $mycalc{'query_cache_efficiency'}% (".hr_num($mystat{'Qcache_hits'})." cached / ".hr_num($mystat{'Qcache_hits'}+$mystat{'Com_select'})." selects)\n";
|
791
|
+
}
|
792
|
+
if ($mycalc{'query_cache_prunes_per_day'} > 98) {
|
793
|
+
badprint "Query cache prunes per day: $mycalc{'query_cache_prunes_per_day'}\n";
|
794
|
+
if ($myvar{'query_cache_size'} > 128*1024*1024) {
|
795
|
+
push(@generalrec,"Increasing the query_cache size over 128M may reduce performance");
|
796
|
+
push(@adjvars,"query_cache_size (> ".hr_bytes_rnd($myvar{'query_cache_size'}).") [see warning above]");
|
797
|
+
} else {
|
798
|
+
push(@adjvars,"query_cache_size (> ".hr_bytes_rnd($myvar{'query_cache_size'}).")");
|
799
|
+
}
|
800
|
+
} else {
|
801
|
+
goodprint "Query cache prunes per day: $mycalc{'query_cache_prunes_per_day'}\n";
|
802
|
+
}
|
803
|
+
}
|
804
|
+
|
805
|
+
# Sorting
|
806
|
+
if ($mycalc{'total_sorts'} == 0) {
|
807
|
+
# For the sake of space, we will be quiet here
|
808
|
+
# No sorts have run yet
|
809
|
+
} elsif ($mycalc{'pct_temp_sort_table'} > 10) {
|
810
|
+
badprint "Sorts requiring temporary tables: $mycalc{'pct_temp_sort_table'}% (".hr_num($mystat{'Sort_merge_passes'})." temp sorts / ".hr_num($mycalc{'total_sorts'})." sorts)\n";
|
811
|
+
push(@adjvars,"sort_buffer_size (> ".hr_bytes_rnd($myvar{'sort_buffer_size'}).")");
|
812
|
+
push(@adjvars,"read_rnd_buffer_size (> ".hr_bytes_rnd($myvar{'read_rnd_buffer_size'}).")");
|
813
|
+
} else {
|
814
|
+
goodprint "Sorts requiring temporary tables: $mycalc{'pct_temp_sort_table'}% (".hr_num($mystat{'Sort_merge_passes'})." temp sorts / ".hr_num($mycalc{'total_sorts'})." sorts)\n";
|
815
|
+
}
|
816
|
+
|
817
|
+
# Joins
|
818
|
+
if ($mycalc{'joins_without_indexes_per_day'} > 250) {
|
819
|
+
badprint "Joins performed without indexes: $mycalc{'joins_without_indexes'}\n";
|
820
|
+
push(@adjvars,"join_buffer_size (> ".hr_bytes($myvar{'join_buffer_size'}).", or always use indexes with joins)");
|
821
|
+
push(@generalrec,"Adjust your join queries to always utilize indexes");
|
822
|
+
} else {
|
823
|
+
# For the sake of space, we will be quiet here
|
824
|
+
# No joins have run without indexes
|
825
|
+
}
|
826
|
+
|
827
|
+
# Temporary tables
|
828
|
+
if ($mystat{'Created_tmp_tables'} > 0) {
|
829
|
+
if ($mycalc{'pct_temp_disk'} > 25 && $mycalc{'max_tmp_table_size'} < 256*1024*1024) {
|
830
|
+
badprint "Temporary tables created on disk: $mycalc{'pct_temp_disk'}% (".hr_num($mystat{'Created_tmp_disk_tables'})." on disk / ".hr_num($mystat{'Created_tmp_disk_tables'} + $mystat{'Created_tmp_tables'})." total)\n";
|
831
|
+
push(@adjvars,"tmp_table_size (> ".hr_bytes_rnd($myvar{'tmp_table_size'}).")");
|
832
|
+
push(@adjvars,"max_heap_table_size (> ".hr_bytes_rnd($myvar{'max_heap_table_size'}).")");
|
833
|
+
push(@generalrec,"When making adjustments, make tmp_table_size/max_heap_table_size equal");
|
834
|
+
push(@generalrec,"Reduce your SELECT DISTINCT queries without LIMIT clauses");
|
835
|
+
} elsif ($mycalc{'pct_temp_disk'} > 25 && $mycalc{'max_tmp_table_size'} >= 256) {
|
836
|
+
badprint "Temporary tables created on disk: $mycalc{'pct_temp_disk'}% (".hr_num($mystat{'Created_tmp_disk_tables'})." on disk / ".hr_num($mystat{'Created_tmp_disk_tables'} + $mystat{'Created_tmp_tables'})." total)\n";
|
837
|
+
push(@generalrec,"Temporary table size is already large - reduce result set size");
|
838
|
+
push(@generalrec,"Reduce your SELECT DISTINCT queries without LIMIT clauses");
|
839
|
+
} else {
|
840
|
+
goodprint "Temporary tables created on disk: $mycalc{'pct_temp_disk'}% (".hr_num($mystat{'Created_tmp_disk_tables'})." on disk / ".hr_num($mystat{'Created_tmp_disk_tables'} + $mystat{'Created_tmp_tables'})." total)\n";
|
841
|
+
}
|
842
|
+
} else {
|
843
|
+
# For the sake of space, we will be quiet here
|
844
|
+
# No temporary tables have been created
|
845
|
+
}
|
846
|
+
|
847
|
+
# Thread cache
|
848
|
+
if ($myvar{'thread_cache_size'} eq 0) {
|
849
|
+
badprint "Thread cache is disabled\n";
|
850
|
+
push(@generalrec,"Set thread_cache_size to 4 as a starting value");
|
851
|
+
push(@adjvars,"thread_cache_size (start at 4)");
|
852
|
+
} else {
|
853
|
+
if ($mycalc{'thread_cache_hit_rate'} <= 50) {
|
854
|
+
badprint "Thread cache hit rate: $mycalc{'thread_cache_hit_rate'}% (".hr_num($mystat{'Threads_created'})." created / ".hr_num($mystat{'Connections'})." connections)\n";
|
855
|
+
push(@adjvars,"thread_cache_size (> $myvar{'thread_cache_size'})");
|
856
|
+
} else {
|
857
|
+
goodprint "Thread cache hit rate: $mycalc{'thread_cache_hit_rate'}% (".hr_num($mystat{'Threads_created'})." created / ".hr_num($mystat{'Connections'})." connections)\n";
|
858
|
+
}
|
859
|
+
}
|
860
|
+
|
861
|
+
# Table cache
|
862
|
+
if ($mystat{'Open_tables'} > 0) {
|
863
|
+
if ($mycalc{'table_cache_hit_rate'} < 20) {
|
864
|
+
badprint "Table cache hit rate: $mycalc{'table_cache_hit_rate'}% (".hr_num($mystat{'Open_tables'})." open / ".hr_num($mystat{'Opened_tables'})." opened)\n";
|
865
|
+
if (mysql_version_ge(5, 1)) {
|
866
|
+
push(@adjvars,"table_cache (> ".$myvar{'table_open_cache'}.")");
|
867
|
+
} else {
|
868
|
+
push(@adjvars,"table_cache (> ".$myvar{'table_cache'}.")");
|
869
|
+
}
|
870
|
+
push(@generalrec,"Increase table_cache gradually to avoid file descriptor limits");
|
871
|
+
} else {
|
872
|
+
goodprint "Table cache hit rate: $mycalc{'table_cache_hit_rate'}% (".hr_num($mystat{'Open_tables'})." open / ".hr_num($mystat{'Opened_tables'})." opened)\n";
|
873
|
+
}
|
874
|
+
}
|
875
|
+
|
876
|
+
# Open files
|
877
|
+
if (defined $mycalc{'pct_files_open'}) {
|
878
|
+
if ($mycalc{'pct_files_open'} > 85) {
|
879
|
+
badprint "Open file limit used: $mycalc{'pct_files_open'}% (".hr_num($mystat{'Open_files'})."/".hr_num($myvar{'open_files_limit'}).")\n";
|
880
|
+
push(@adjvars,"open_files_limit (> ".$myvar{'open_files_limit'}.")");
|
881
|
+
} else {
|
882
|
+
goodprint "Open file limit used: $mycalc{'pct_files_open'}% (".hr_num($mystat{'Open_files'})."/".hr_num($myvar{'open_files_limit'}).")\n";
|
883
|
+
}
|
884
|
+
}
|
885
|
+
|
886
|
+
# Table locks
|
887
|
+
if (defined $mycalc{'pct_table_locks_immediate'}) {
|
888
|
+
if ($mycalc{'pct_table_locks_immediate'} < 95) {
|
889
|
+
badprint "Table locks acquired immediately: $mycalc{'pct_table_locks_immediate'}%\n";
|
890
|
+
push(@generalrec,"Optimize queries and/or use InnoDB to reduce lock wait");
|
891
|
+
} else {
|
892
|
+
goodprint "Table locks acquired immediately: $mycalc{'pct_table_locks_immediate'}% (".hr_num($mystat{'Table_locks_immediate'})." immediate / ".hr_num($mystat{'Table_locks_waited'}+$mystat{'Table_locks_immediate'})." locks)\n";
|
893
|
+
}
|
894
|
+
}
|
895
|
+
|
896
|
+
# Performance options
|
897
|
+
if (!mysql_version_ge(4, 1)) {
|
898
|
+
push(@generalrec,"Upgrade to MySQL 4.1+ to use concurrent MyISAM inserts");
|
899
|
+
} elsif ($myvar{'concurrent_insert'} eq "OFF") {
|
900
|
+
push(@generalrec,"Enable concurrent_insert by setting it to 'ON'");
|
901
|
+
} elsif ($myvar{'concurrent_insert'} eq 0) {
|
902
|
+
push(@generalrec,"Enable concurrent_insert by setting it to 1");
|
903
|
+
}
|
904
|
+
if ($mycalc{'pct_aborted_connections'} > 5) {
|
905
|
+
badprint "Connections aborted: ".$mycalc{'pct_aborted_connections'}."%\n";
|
906
|
+
push(@generalrec,"Your applications are not closing MySQL connections properly");
|
907
|
+
}
|
908
|
+
|
909
|
+
# InnoDB
|
910
|
+
if (defined $myvar{'have_innodb'} && $myvar{'have_innodb'} eq "YES" && defined $enginestats{'InnoDB'}) {
|
911
|
+
if ($myvar{'innodb_buffer_pool_size'} > $enginestats{'InnoDB'}) {
|
912
|
+
goodprint "InnoDB data size / buffer pool: ".hr_bytes($enginestats{'InnoDB'})."/".hr_bytes($myvar{'innodb_buffer_pool_size'})."\n";
|
913
|
+
} else {
|
914
|
+
badprint "InnoDB data size / buffer pool: ".hr_bytes($enginestats{'InnoDB'})."/".hr_bytes($myvar{'innodb_buffer_pool_size'})."\n";
|
915
|
+
push(@adjvars,"innodb_buffer_pool_size (>= ".hr_bytes_rnd($enginestats{'InnoDB'}).")");
|
916
|
+
}
|
917
|
+
}
|
918
|
+
}
|
919
|
+
|
920
|
+
# Take the two recommendation arrays and display them at the end of the output
|
921
|
+
sub make_recommendations {
|
922
|
+
print "\n-------- Recommendations -----------------------------------------------------\n";
|
923
|
+
if (@generalrec > 0) {
|
924
|
+
print "General recommendations:\n";
|
925
|
+
foreach (@generalrec) { print " ".$_."\n"; }
|
926
|
+
}
|
927
|
+
if (@adjvars > 0) {
|
928
|
+
print "Variables to adjust:\n";
|
929
|
+
if ($mycalc{'pct_physical_memory'} > 90) {
|
930
|
+
print " *** MySQL's maximum memory usage is dangerously high ***\n".
|
931
|
+
" *** Add RAM before increasing MySQL buffer variables ***\n";
|
932
|
+
}
|
933
|
+
foreach (@adjvars) { print " ".$_."\n"; }
|
934
|
+
}
|
935
|
+
if (@generalrec == 0 && @adjvars ==0) {
|
936
|
+
print "No additional performance recommendations are available.\n"
|
937
|
+
}
|
938
|
+
print "\n";
|
939
|
+
}
|
940
|
+
|
941
|
+
# ---------------------------------------------------------------------------
|
942
|
+
# BEGIN 'MAIN'
|
943
|
+
# ---------------------------------------------------------------------------
|
944
|
+
print "\n >> MySQLTuner $tunerversion - Major Hayden <major\@mhtx.net>\n".
|
945
|
+
" >> Bug reports, feature requests, and downloads at http://mysqltuner.com/\n".
|
946
|
+
" >> Run with '--help' for additional options and output filtering\n";
|
947
|
+
mysql_setup; # Gotta login first
|
948
|
+
os_setup; # Set up some OS variables
|
949
|
+
get_all_vars; # Toss variables/status into hashes
|
950
|
+
validate_tuner_version; # Check current MySQLTuner version
|
951
|
+
validate_mysql_version; # Check current MySQL version
|
952
|
+
check_architecture; # Suggest 64-bit upgrade
|
953
|
+
check_storage_engines; # Show enabled storage engines
|
954
|
+
security_recommendations; # Display some security recommendations
|
955
|
+
calculations; # Calculate everything we need
|
956
|
+
mysql_stats; # Print the server stats
|
957
|
+
make_recommendations; # Make recommendations based on stats
|
958
|
+
# ---------------------------------------------------------------------------
|
959
|
+
# END 'MAIN'
|
960
|
+
# ---------------------------------------------------------------------------
|
961
|
+
|
962
|
+
# Local variables:
|
963
|
+
# indent-tabs-mode: t
|
964
|
+
# cperl-indent-level: 8
|
965
|
+
# perl-indent-level: 8
|
966
|
+
# End:
|