← Back to branch summary

~ubuntu-branches/ubuntu/trusty/nagios-plugins-contrib/trusty-proposed

« back to all changes in this revision

Viewing changes to check_mysql_health/check_mysql_health-2.1.7/plugins-scripts/Nagios/DBD/MySQL/Server/Instance/Innodb.pm

  • Committer: Package Import Robot
  • Author(s): Bernd Zeimetz
  • Date: 2013-05-21 22:11:50 UTC
  • mfrom: (5.1.1 experimental)
  • Revision ID: package-import@ubuntu.com-20130521221150-k5bda5v5euvt7wg9
Tags: 6.20130521
* [e68c82e1] check_raid: do not run hpacucli if cciss_vol_status is available.
* [4a1c57e8] Also support tw-cli as additional name for the 3ware binary.
  Thanks to Dennis Hoppe
* [eb5e1c7c] Add /run/ to the check_libs ignore file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
check_mysql_health/check_mysql_health-2.1.7/plugins-scripts/Nagios/DBD/MySQL/Server/Instance/Innodb.pm
1
 
package DBD::MySQL::Server::Instance::Innodb;
2
 
 
3
 
use strict;
4
 
 
5
 
our @ISA = qw(DBD::MySQL::Server::Instance);
6
 
 
7
 
my %ERRORS=( OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 );
8
 
my %ERRORCODES=( 0 => 'OK', 1 => 'WARNING', 2 => 'CRITICAL', 3 => 'UNKNOWN' );
9
 
 
10
 
sub new {
11
 
  my $class = shift;
12
 
  my %params = @_;
13
 
  my $self = {
14
 
    handle => $params{handle},
15
 
    internals => undef,
16
 
    warningrange => $params{warningrange},
17
 
    criticalrange => $params{criticalrange},
18
 
  };
19
 
  bless $self, $class;
20
 
  $self->init(%params);
21
 
  return $self;
22
 
}
23
 
 
24
 
sub init {
25
 
  my $self = shift;
26
 
  my %params = @_;
27
 
  $self->init_nagios();
28
 
  if ($params{mode} =~ /server::instance::innodb/) {
29
 
    $self->{internals} =
30
 
        DBD::MySQL::Server::Instance::Innodb::Internals->new(%params);
31
 
  }
32
 
}
33
 
 
34
 
sub nagios {
35
 
  my $self = shift;
36
 
  my %params = @_;
37
 
  if ($params{mode} =~ /server::instance::innodb/) {
38
 
    $self->{internals}->nagios(%params);
39
 
    $self->merge_nagios($self->{internals});
40
 
  }
41
 
}
42
 
 
43
 
 
44
 
package DBD::MySQL::Server::Instance::Innodb::Internals;
45
 
 
46
 
use strict;
47
 
 
48
 
our @ISA = qw(DBD::MySQL::Server::Instance::Innodb);
49
 
 
50
 
our $internals; # singleton, nur ein einziges mal instantiierbar
51
 
 
52
 
sub new {
53
 
  my $class = shift;
54
 
  my %params = @_;
55
 
  unless ($internals) {
56
 
    $internals = {
57
 
      handle => $params{handle},
58
 
      bufferpool_hitrate => undef,
59
 
      wait_free => undef,
60
 
      log_waits => undef,
61
 
      have_innodb => undef,
62
 
      warningrange => $params{warningrange},
63
 
      criticalrange => $params{criticalrange},
64
 
    };
65
 
    bless($internals, $class);
66
 
    $internals->init(%params);
67
 
  }
68
 
  return($internals);
69
 
}
70
 
 
71
 
sub init {
72
 
  my $self = shift;
73
 
  my %params = @_;
74
 
  my $dummy;
75
 
  $self->debug("enter init");
76
 
  $self->init_nagios();
77
 
  ($dummy, $self->{have_innodb}) 
78
 
      = $self->{handle}->fetchrow_array(q{
79
 
      SHOW VARIABLES LIKE 'have_innodb'
80
 
  });
81
 
  if ($self->{have_innodb} eq "NO") {
82
 
    $self->add_nagios_critical("the innodb engine has a problem (have_innodb=no)");
83
 
  } elsif ($self->{have_innodb} eq "DISABLED") {
84
 
    # add_nagios_ok later
85
 
  } elsif ($params{mode} =~ /server::instance::innodb::bufferpool::hitrate/) {
86
 
    ($dummy, $self->{bufferpool_reads}) 
87
 
        = $self->{handle}->fetchrow_array(q{
88
 
        SHOW /*!50000 global */ STATUS LIKE 'Innodb_buffer_pool_reads'
89
 
    });
90
 
    ($dummy, $self->{bufferpool_read_requests}) 
91
 
        = $self->{handle}->fetchrow_array(q{
92
 
        SHOW /*!50000 global */ STATUS LIKE 'Innodb_buffer_pool_read_requests'
93
 
    });
94
 
    if (! defined $self->{bufferpool_reads}) {
95
 
      $self->add_nagios_critical("no innodb buffer pool info available");
96
 
    } else {
97
 
      $self->valdiff(\%params, qw(bufferpool_reads
98
 
          bufferpool_read_requests));
99
 
      $self->{bufferpool_hitrate_now} =
100
 
          $self->{delta_bufferpool_read_requests} > 0 ?
101
 
          100 - (100 * $self->{delta_bufferpool_reads} / 
102
 
              $self->{delta_bufferpool_read_requests}) : 100;
103
 
      $self->{bufferpool_hitrate} =
104
 
          $self->{bufferpool_read_requests} > 0 ?
105
 
          100 - (100 * $self->{bufferpool_reads} /
106
 
              $self->{bufferpool_read_requests}) : 100;
107
 
    }
108
 
  } elsif ($params{mode} =~ /server::instance::innodb::bufferpool::waitfree/) {
109
 
    ($dummy, $self->{bufferpool_wait_free})
110
 
        = $self->{handle}->fetchrow_array(q{
111
 
        SHOW /*!50000 global */ STATUS LIKE 'Innodb_buffer_pool_wait_free'
112
 
    });
113
 
    if (! defined $self->{bufferpool_wait_free}) {
114
 
      $self->add_nagios_critical("no innodb buffer pool info available");
115
 
    } else {
116
 
      $self->valdiff(\%params, qw(bufferpool_wait_free));
117
 
      $self->{bufferpool_wait_free_rate} =
118
 
          $self->{delta_bufferpool_wait_free} / $self->{delta_timestamp};
119
 
    }
120
 
  } elsif ($params{mode} =~ /server::instance::innodb::logwaits/) {
121
 
    ($dummy, $self->{log_waits})
122
 
        = $self->{handle}->fetchrow_array(q{
123
 
        SHOW /*!50000 global */ STATUS LIKE 'Innodb_log_waits'
124
 
    });
125
 
    if (! defined $self->{log_waits}) {
126
 
      $self->add_nagios_critical("no innodb log info available");
127
 
    } else {
128
 
      $self->valdiff(\%params, qw(log_waits));
129
 
      $self->{log_waits_rate} =
130
 
          $self->{delta_log_waits} / $self->{delta_timestamp};
131
 
    }
132
 
  } elsif ($params{mode} =~ /server::instance::innodb::needoptimize/) {
133
 
#fragmentation=$(($datafree * 100 / $datalength))
134
 
 
135
 
#http://www.electrictoolbox.com/optimize-tables-mysql-php/
136
 
    my  @result = $self->{handle}->fetchall_array(q{
137
 
SHOW TABLE STATUS WHERE Data_free / Data_length > 0.1 AND Data_free > 102400
138
 
});
139
 
printf "%s\n", Data::Dumper::Dumper(\@result);
140
 
 
141
 
  }
142
 
}
143
 
 
144
 
sub nagios {
145
 
  my $self = shift;
146
 
  my %params = @_;
147
 
  my $now = $params{lookback} ? '_now' : '';
148
 
  if ($self->{have_innodb} eq "DISABLED") {
149
 
    $self->add_nagios_ok("the innodb engine has been disabled");
150
 
  } elsif (! $self->{nagios_level}) {
151
 
    if ($params{mode} =~ /server::instance::innodb::bufferpool::hitrate/) {
152
 
      my $refkey = 'bufferpool_hitrate'.($params{lookback} ? '_now' : '');
153
 
      $self->add_nagios(
154
 
          $self->check_thresholds($self->{$refkey}, "99:", "95:"),
155
 
              sprintf "innodb buffer pool hitrate at %.2f%%", $self->{$refkey});
156
 
      $self->add_perfdata(sprintf "bufferpool_hitrate=%.2f%%;%s;%s;0;100",
157
 
          $self->{bufferpool_hitrate},
158
 
          $self->{warningrange}, $self->{criticalrange});
159
 
      $self->add_perfdata(sprintf "bufferpool_hitrate_now=%.2f%%",
160
 
          $self->{bufferpool_hitrate_now});
161
 
    } elsif ($params{mode} =~ /server::instance::innodb::bufferpool::waitfree/) {
162
 
      $self->add_nagios(
163
 
          $self->check_thresholds($self->{bufferpool_wait_free_rate}, "1", "10"),
164
 
          sprintf "%ld innodb buffer pool waits in %ld seconds (%.4f/sec)",
165
 
          $self->{delta_bufferpool_wait_free}, $self->{delta_timestamp},
166
 
          $self->{bufferpool_wait_free_rate});
167
 
      $self->add_perfdata(sprintf "bufferpool_free_waits_rate=%.4f;%s;%s;0;100",
168
 
          $self->{bufferpool_wait_free_rate},
169
 
          $self->{warningrange}, $self->{criticalrange});
170
 
    } elsif ($params{mode} =~ /server::instance::innodb::logwaits/) {
171
 
      $self->add_nagios(
172
 
          $self->check_thresholds($self->{log_waits_rate}, "1", "10"),
173
 
          sprintf "%ld innodb log waits in %ld seconds (%.4f/sec)",
174
 
          $self->{delta_log_waits}, $self->{delta_timestamp},
175
 
          $self->{log_waits_rate});
176
 
      $self->add_perfdata(sprintf "innodb_log_waits_rate=%.4f;%s;%s;0;100",
177
 
          $self->{log_waits_rate},
178
 
          $self->{warningrange}, $self->{criticalrange});
179
 
    }
180
 
  }
181
 
}
182
 
 
183
 
 
184
 
1;
185