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

Adding disk space and inode control other fs mountpoint #165

Browse source
This commit is contained in:
root 2016-03-25 14:32:15 +01:00
parent c9ebae1e26
commit 3f8ca6493e
1 changed files with 39 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
mysqltuner.pl
View file

@ -1021,6 +1021,40 @@ sub get_os_release {
remove_cr @info_release;
return $info_release[0];
}
sub get_fs_info() {
my @sinfo=`df -P | grep '%'`;
shift @sinfo;
my @iinfo=`df -Pi| grep '%'`;
shift @iinfo;
map {
s/.*\s(\d+)%\s+(.*)/$1\t$2/g
} @sinfo;
foreach my $info (@sinfo) {
if ($info =~ /(\d+)\t(.*)/) {
if ($1 > 85) {
badprint "mount point $2 is using $1 % total space";
push(@generalrec, "Add some space to $2 mountpoint.")
} else {
infoprint "mount point $2 is using $1 % of total space";
}
}
}
map {
s/.*\s(\d+)%\s+(.*)/$1\t$2/g
} @iinfo;
foreach my $info (@iinfo) {
if ($info =~ /(\d+)\t(.*)/) {
if ($1 > 85) {
badprint "mount point $2 is using $1 % of max allowed inodes";
push(@generalrec, "Cleanup files from $2 mountpoint or reformat you filesystem.")
} else {
infoprint "mount point $2 is using $1 % of max allowed inodes";
}
}
}
}
sub system_recommendations {
prettyprint "\n-------- System Linux Recommendations ---------------------------------------";
my $os = `uname`;
@ -1038,14 +1072,10 @@ sub system_recommendations {
badprint "Other user process except mysqld used more than 15% of total physical memory ". percentage($omem, $physical_memory). "% (".hr_bytes_rnd($omem). " / ".hr_bytes_rnd($physical_memory).")";
push( @generalrec, "Consider stopping or dedicate server for additionnal process other than mysqld." );
push( @adjvars, "DON'T APPLY SETTINGS BECAUSE THERE IS TOO MANY PROCESSES RUNNING ON THIS SERVER. OOM KILL CAN OCCURS !" );
} else {
infoprint "Other user process except mysqld used less than 15% of total physical memory ". percentage($omem, $physical_memory). "% (".hr_bytes_rnd($omem). " / ".hr_bytes_rnd($physical_memory).")";
}
#if ($omem >
#exit 0;
if ($opt{'maxportallowed'} > 0) {
my @opened_ports=get_opened_ports;
infoprint "There is ". scalar @opened_ports. " listening port(s) on this server.";
@ -1065,6 +1095,8 @@ sub system_recommendations {
goodprint "$banport is not opened.";
}
}
get_fs_info;
}
sub security_recommendations {