diff --git a/centreon-plugins/database/oracle/mode/eventwaitsusage.pm b/centreon-plugins/database/oracle/mode/eventwaitsusage.pm new file mode 100644 index 000000000..f116b94a9 --- /dev/null +++ b/centreon-plugins/database/oracle/mode/eventwaitsusage.pm @@ -0,0 +1,165 @@ +# +# Copyright 2017 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package database::oracle::mode::eventwaitsusage; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use Digest::MD5 qw(md5_hex); + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'event', type => 1, cb_prefix_output => 'prefix_event_output', message_multiple => 'All event waits are OK' }, + ]; + + $self->{maps_counters}->{event} = [ + { label => 'total-waits-sec', set => { + key_values => [ { name => 'total_waits', diff => 1 }, { name => 'display' } ], + per_second => 1, + output_template => 'Total Waits : %.2f/s', + perfdatas => [ + { label => 'total_waits', value => 'total_waits_per_second', template => '%.2f', + unit => '/s', min => 0, label_extra_instance => 1, instance_use => 'display_absolute' }, + ], + } + }, + { label => 'total-waits-time', set => { + key_values => [ { name => 'time_waited_micro', diff => 1 }, { name => 'display' } ], + closure_custom_calc => $self->can('custom_usage_calc'), + output_template => 'Total Waits Time : %.2f %%', output_use => 'prct_wait', threshold_use => 'prct_wait', + perfdatas => [ + { label => 'total_waits_time', value => 'prct_wait', template => '%.2f', min => 0, max => 100, unit => '%', + label_extra_instance => 1, instance_use => 'display' }, + ], + } + }, + ]; +} + +sub custom_usage_calc { + my ($self, %options) = @_; + + $self->{result_values}->{display} = $options{new_datas}->{$self->{instance} . '_display'}; + my $delta_total = $options{new_datas}->{$self->{instance} . '_time_waited_micro'} - $options{old_datas}->{$self->{instance} . '_time_waited_micro'}; + $self->{result_values}->{prct_wait} = 100 * ($delta_total / 1000000) / $options{delta_time}; + + return 0; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, statefile => 1); + bless $self, $class; + + $self->{version} = '1.0'; + $options{options}->add_options(arguments => + { + "filter-name:s" => { name => 'filter_name' }, + }); + return $self; +} + +sub prefix_event_output { + my ($self, %options) = @_; + + return "Event '" . $options{instance_value}->{display} . "' "; +} + +sub manage_selection { + my ($self, %options) = @_; + $self->{sql} = $options{sql}; + $self->{sql}->connect(); + + my $query = q{ + SELECT e.event#, e.name, + NVL(s.total_waits, 0), NVL(s.total_timeouts, 0), NVL(s.time_waited, 0), + NVL(s.time_waited_micro, 0), NVL(s.average_wait, 0) + FROM v$event_name e LEFT JOIN sys.v_$system_event s ON e.name = s.event + }; + if ($self->{sql}->is_version_minimum(version => '10')) { + $query = q{ + SELECT e.event_id, e.name, + NVL(s.total_waits, 0), NVL(s.total_timeouts, 0), NVL(s.time_waited, 0), + NVL(s.time_waited_micro, 0), NVL(s.average_wait, 0) + FROM v$event_name e LEFT JOIN sys.v_$system_event s ON e.name = s.event + }; + } + + $self->{sql}->query(query => $query); + my $result = $self->{sql}->fetchall_arrayref(); + + $self->{event} = {}; + foreach my $row (@$result) { + my ($name, $total_waits, $time_waited_micro) = ($row->[1], $row->[2], $row->[5]); + + if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $name !~ /$self->{option_results}->{filter_name}/) { + $self->{output}->output_add(long_msg => "skipping '" . $name . "': no matching filter.", debug => 1); + next; + } + + $self->{event}->{$name} = { + display => $name, + total_waits => $total_waits, + time_waited_micro => $time_waited_micro + }; + } + + if (scalar(keys %{$self->{event}}) <= 0) { + $self->{output}->add_option_msg(short_msg => "No event found."); + $self->{output}->option_exit(); + } + + $self->{cache_name} = "oracle_" . $options{snmp}->get_hostname() . '_' . $options{snmp}->get_port() . '_' . $self->{mode} . '_' . + (defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all')) . '_' . + (defined($self->{option_results}->{filter_name}) ? md5_hex($self->{option_results}->{filter_name}) : md5_hex('all')); +} + +1; + +__END__ + +=head1 MODE + +Check Oracle event wait usage. + +=over 8 + +=item B<--warning-*> + +Threshold warning. +Can be: 'total-waits-sec', 'total-waits-time'. + +=item B<--critical-*> + +Threshold critical. +Can be: 'total-waits-sec', 'total-waits-time'. + +=item B<--filter-name> + +Filter by event name. Can be a regex. + +=back + +=cut diff --git a/centreon-plugins/database/oracle/mode/rollbacksegmentusage.pm b/centreon-plugins/database/oracle/mode/rollbacksegmentusage.pm new file mode 100644 index 000000000..fbe3a87d8 --- /dev/null +++ b/centreon-plugins/database/oracle/mode/rollbacksegmentusage.pm @@ -0,0 +1,188 @@ +# +# Copyright 2017 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package database::oracle::mode::rollbacksegmentusage; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use Digest::MD5 qw(md5_hex); + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'segment', type => 0, cb_prefix_output => 'prefix_output' }, + ]; + + $self->{maps_counters}->{segment} = [ + { label => 'extends', set => { + key_values => [ { name => 'extends', diff => 1 } ], + per_second => 1, + output_template => 'Extends : %.2f/s', + perfdatas => [ + { label => 'extends', value => 'extends_per_second', template => '%.2f', + unit => '/s', min => 0 }, + ], + } + }, + { label => 'wraps', set => { + key_values => [ { name => 'wraps', diff => 1 } ], + per_second => 1, + output_template => 'Wraps : %.2f/s', + perfdatas => [ + { label => 'wraps', value => 'wraps_per_second', template => '%.2f', + unit => '/s', min => 0 }, + ], + } + }, + { label => 'header-contention', set => { + key_values => [ { name => 'undoheader', diff => 1 }, { name => 'complete', diff => 1 } ], + closure_custom_calc => $self->can('custom_contention_calc'), closure_custom_calc_extra_options => { label_ref => 'header' }, + output_template => 'Header Contention : %.2f %%', output_use => 'header_prct', threshold_use => 'header_prct', + perfdatas => [ + { label => 'header_contention', value => 'header_prct', template => '%.2f', min => 0, max => 100, unit => '%' }, + ], + } + }, + { label => 'block-contention', set => { + key_values => [ { name => 'undoblock', diff => 1 }, { name => 'complete', diff => 1 } ], + closure_custom_calc => $self->can('custom_contention_calc'), closure_custom_calc_extra_options => { label_ref => 'block' }, + output_template => 'Block Contention : %.2f %%', output_use => 'block_prct', threshold_use => 'block_prct', + perfdatas => [ + { label => 'block_contention', value => 'block_prct', template => '%.2f', min => 0, max => 100, unit => '%' }, + ], + } + }, + { label => 'hit-ratio', set => { + key_values => [ { name => 'waits', diff => 1 }, { name => 'gets', diff => 1 } ], + closure_custom_calc => $self->can('custom_hitratio_calc'), + output_template => 'gets/waits Ratio : %.2f %%', output_use => 'hit_ratio', threshold_use => 'hit_ratio', + perfdatas => [ + { label => 'hit_ratio', value => 'hit_ratio', template => '%.2f', min => 0, max => 100, unit => '%' }, + ], + } + }, + ]; +} + +sub custom_hitratio_calc { + my ($self, %options) = @_; + + my $delta_waits = $options{new_datas}->{$self->{instance} . '_waits'} - $options{old_datas}->{$self->{instance} . '_waits'}; + my $delta_gets = $options{new_datas}->{$self->{instance} . '_gets'} - $options{old_datas}->{$self->{instance} . '_gets'}; + $self->{result_values}->{hit_ratio} = 100 - 100 * $self->{delta_waits} / $self->{delta_gets}; + + return 0; +} + +sub custom_contention_calc { + my ($self, %options) = @_; + + my $delta_waits = $options{new_datas}->{$self->{instance} . '_complete'} - $options{old_datas}->{$self->{instance} . '_complete'}; + my $delta_undo = $options{new_datas}->{$self->{instance} . '_undo' . $options{extra_options}->{label_ref}} - $options{old_datas}->{$self->{instance} . '_undo' . $options{extra_options}->{label_ref}}; + $self->{result_values}->{$options{extra_options}->{label_ref} . '_prct'} = 100 * $delta_undo / $delta_waits; + + return 0; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, statefile => 1); + bless $self, $class; + + $self->{version} = '1.0'; + $options{options}->add_options(arguments => + { + }); + return $self; +} + +sub prefix_output { + my ($self, %options) = @_; + + return "Rollback Segment "; +} + +sub manage_selection { + my ($self, %options) = @_; + $self->{sql} = $options{sql}; + $self->{sql}->connect(); + + my $query = q{ + SELECT SUM(waits), SUM(gets), SUM(extends), SUM(wraps) FROM v$rollstat + }; + + $self->{sql}->query(query => $query); + my $result = $self->{sql}->fetchrow_array(); + $self->{segment} = { waits => $result->[0], gets => $result->[1], extends => $result->[2], wraps => $result->[3] }; + + $query = q{ + SELECT ( + SELECT SUM(count) + FROM v$waitstat + WHERE class = 'undo header' OR class = 'system undo header' + ) undoheader, + ( + SELECT SUM(count) + FROM v$waitstat + WHERE class = 'undo block' OR class = 'system undo block' + ) undoblock, + ( + SELECT SUM(count) + FROM v$waitstat + ) complete + FROM DUAL + }; + $result = $self->{sql}->fetchrow_array(); + $self->{segment}->{undoheader} = $result->[0]; + $self->{segment}->{undoblock} = $result->[1]; + $self->{segment}->{complete} = $result->[2]; + + $self->{cache_name} = "oracle_" . $options{snmp}->get_hostname() . '_' . $options{snmp}->get_port() . '_' . $self->{mode} . '_' . + (defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all')); +} + +1; + +__END__ + +=head1 MODE + +Check Oracle rollback segment usage. + +=over 8 + +=item B<--warning-*> + +Threshold warning. +Can be: 'header-contention', 'block-contention', 'hit-ratio', +'extends', 'wraps'. + +=item B<--critical-*> + +Threshold critical. +Can be: 'header-contention', 'block-contention', 'hit-ratio', +'extends', 'wraps'. + +=back + +=cut diff --git a/centreon-plugins/database/oracle/plugin.pm b/centreon-plugins/database/oracle/plugin.pm index a9918646c..8699934f0 100644 --- a/centreon-plugins/database/oracle/plugin.pm +++ b/centreon-plugins/database/oracle/plugin.pm @@ -38,10 +38,12 @@ sub new { 'corrupted-blocks' => 'database::oracle::mode::corruptedblocks', 'data-files-status' => 'database::oracle::mode::datafilesstatus', 'datacache-hitratio' => 'database::oracle::mode::datacachehitratio', + 'event-waits-usage' => 'database::oracle::mode::eventwaitsusage', 'process-usage' => 'database::oracle::mode::processusage', 'rman-backup-problems' => 'database::oracle::mode::rmanbackupproblems', 'rman-backup-age' => 'database::oracle::mode::rmanbackupage', 'rman-online-backup-age' => 'database::oracle::mode::rmanonlinebackupage', + 'rollback-segment-usage' => 'database::oracle::mode::rollbacksegmentusage', 'tablespace-usage' => 'database::oracle::mode::tablespaceusage', 'session-usage' => 'database::oracle::mode::sessionusage', 'sql' => 'centreon::common::protocols::sql::mode::sql',