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

some debug output cleanup.

Browse source
This commit is contained in:
Jean-Marie RENOUARD 2015-06-15 09:47:24 +02:00
parent e919e904ba
commit 50d7718c07
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
mysqltuner.pl
View file

@ -126,9 +126,8 @@ 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=abs_path(dirname(__FILE__))."/basic_passwords.txt";
print "$basic_password_files";
# 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]" : "[!!]" ;
@ -526,7 +525,7 @@ sub security_recommendations {
# Looking for User with user/ uppercase /capitalise weak password # Looking for User with user/ uppercase /capitalise weak password
$passreq="SELECT CONCAT(user, '\@', host) FROM mysql.user WHERE password = PASSWORD('".$pass."') OR password = PASSWORD(UPPER('".$pass."')) OR password = PASSWORD(UPPER(LEFT('".$pass."', 1)) + SUBSTRING('".$pass."', 2, LENGTH('".$pass."')));\n"; $passreq="SELECT CONCAT(user, '\@', host) FROM mysql.user WHERE password = PASSWORD('".$pass."') OR password = PASSWORD(UPPER('".$pass."')) OR password = PASSWORD(UPPER(LEFT('".$pass."', 1)) + SUBSTRING('".$pass."', 2, LENGTH('".$pass."')));\n";
@mysqlstatlist = `$mysqlcmd $mysqllogin -Bse "$passreq"`; @mysqlstatlist = `$mysqlcmd $mysqllogin -Bse "$passreq"`;
infoprint "There is ".scalar (@mysqlstatlist). " items.\n"; #infoprint "There is ".scalar (@mysqlstatlist). " items.\n";
if (@mysqlstatlist) { if (@mysqlstatlist) {
foreach my $line (@mysqlstatlist) { foreach my $line (@mysqlstatlist) {
chomp($line); chomp($line);