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

fix mount point output for linux

Browse source
This commit is contained in:
Sergei A Mamonov 2016-03-30 15:59:47 +03:00
parent 45c468f324
commit ff796b48bf
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mysqltuner.pl
View file

@ -1091,11 +1091,11 @@ sub get_os_release {
sub get_fs_info() { sub get_fs_info() {
my @sinfo = `df -P | grep '%'`; my @sinfo = `df -P | grep '%'`;
shift @sinfo;
my @iinfo = `df -Pi| grep '%'`; my @iinfo = `df -Pi| grep '%'`;
shift @iinfo; shift @iinfo;
map { s/.*\s(\d+)%\s+(.*)/$1\t$2/g } @sinfo; map { s/.*\s(\d+)%\s+(.*)/$1\t$2/g } @sinfo;
foreach my $info (@sinfo) { foreach my $info (@sinfo) {
next if $info =~ m{(\d+)\t/(run|dev|sys|proc)($|/)};
if ( $info =~ /(\d+)\t(.*)/ ) { if ( $info =~ /(\d+)\t(.*)/ ) {
if ( $1 > 85 ) { if ( $1 > 85 ) {
badprint "mount point $2 is using $1 % total space"; badprint "mount point $2 is using $1 % total space";
@ -1109,6 +1109,7 @@ sub get_fs_info() {
map { s/.*\s(\d+)%\s+(.*)/$1\t$2/g } @iinfo; map { s/.*\s(\d+)%\s+(.*)/$1\t$2/g } @iinfo;
foreach my $info (@iinfo) { foreach my $info (@iinfo) {
next if $info =~ m{(\d+)\t/(run|dev|sys|proc)($|/)};
if ( $info =~ /(\d+)\t(.*)/ ) { if ( $info =~ /(\d+)\t(.*)/ ) {
if ( $1 > 85 ) { if ( $1 > 85 ) {
badprint "mount point $2 is using $1 % of max allowed inodes"; badprint "mount point $2 is using $1 % of max allowed inodes";