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

Detect Error and warning in error log #252

Browse source 
Detect last MySQL / MariaDB last shutdown and startup #253
This commit is contained in:
root 2016-12-02 16:21:58 +01:00
parent 7acf66f73c
commit 7a0565d9e5
1 changed files with 40 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
mysqltuner.pl
View file

@ -1125,6 +1125,46 @@ sub log_file_recommandations {
$myvar{'log_error'} ."is > 32Mb, you should analyze why or implement a rotation log strategy such as logrotate!" );
}
my @log_content=get_file_contents($myvar{'log_error'});
my $numLi=0;
my $nbWarnLog=0;
my $nbErrLog=0;
my @lastShutdowns;
my @lastStarts;
foreach my $logLi(@log_content) {
$numLi++;
debugprint "$numLi: $logLi" if $logLi =~ /warning|error/i;
$nbErrLog++ if $logLi =~ /error/i;
$nbWarnLog++ if $logLi =~ /warning/i;
push @lastShutdowns, $logLi if $logLi =~ /Shutdown complete/ and $logLi !~ /Innodb/i;
push @lastStarts, $logLi if $logLi =~ /ready for connections/;
}
if ($nbWarnLog > 0) {
badprint "$myvar{'log_error'} contains $nbWarnLog warning(s).";
push( @generalrec, "Control warning line(s) into $myvar{'log_error'} file");
} else {
goodprint "$myvar{'log_error'} doesn't contain any warning.";
}
if ($nbErrLog > 0) {
badprint "$myvar{'log_error'} contains $nbErrLog error(s).";
push( @generalrec, "Control error line(s) into $myvar{'log_error'} file");
} else {
goodprint "$myvar{'log_error'} doesn't contain any error.";
}
infoprint scalar(@lastStarts). " start(s) detected in $myvar{'log_error'}";
my $nStart=0;
for my $startd (reverse @lastStarts[-10..-1]) {
$nStart++;
infoprint "$nStart) $startd";
}
infoprint scalar(@lastShutdowns). " shutdown(s) detected in $myvar{'log_error'}";
my $nShut=0;
for my $shutd (reverse @lastShutdowns[-10..-1]) {
$nShut++;
infoprint "$nShut) $shutd";
}
#exit 0;
}