Skip to content

Commit

Permalink
+ add plugin for overland snmp
Browse files Browse the repository at this point in the history
  • Loading branch information
garnier-quentin committed Sep 1, 2016
1 parent 949ce9e commit 48c2453
Show file tree
Hide file tree
Showing 6 changed files with 436 additions and 1 deletion.
4 changes: 3 additions & 1 deletion centreon/plugins/snmp.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -761,8 +761,10 @@ sub map_instance {
my ($self, %options) = @_;

my $results = {};
my $instance = '';
$instance = '.' . $options{instance} if (defined($options{instance}));
foreach my $name (keys %{$options{mapping}}) {
my $entry = $options{mapping}->{$name}->{oid} . '.' . $options{instance};
my $entry = $options{mapping}->{$name}->{oid} . $instance;
if (defined($options{results}->{$entry})) {
$results->{$name} = $options{results}->{$entry};
} elsif (defined($options{results}->{$options{mapping}->{$name}->{oid}}->{$entry})) {
Expand Down
74 changes: 74 additions & 0 deletions storage/overland/neo/snmp/mode/components/drive.pm
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,74 @@
#
# Copyright 2016 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 storage::overland::neo::snmp::mode::components::drive;

use strict;
use warnings;

my %map_state = (
0 => 'initializedNoError',
1 => 'initializedWithError',
2 => 'notInitialized',
3 => 'notInstalled',
4 => 'notInserted',
);

my $mapping = {
dstState => { oid => '.1.3.6.1.4.1.3351.1.3.2.3.1.1.3', map => \%map_state },
dstSerialNum => { oid => '.1.3.6.1.4.1.3351.1.3.2.3.1.1.8' },
};
my $oid_driveStatusEntry = '.1.3.6.1.4.1.3351.1.3.2.3.1.1';

sub load {
my ($self) = @_;

push @{$self->{request}}, { oid => $oid_driveStatusEntry };
}

sub check {
my ($self) = @_;

$self->{output}->output_add(long_msg => "Checking drives");
$self->{components}->{drive} = {name => 'drives', total => 0, skip => 0};
return if ($self->check_filter(section => 'drive'));

# there is no instance for the table. Weird. Need to manage the two cases.
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_driveStatusEntry}})) {
next if ($oid !~ /^$mapping->{dstState}->{oid}(?:\.(.*)|$)/);
my $instance = defined($1) ? $1 : undef;
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_driveStatusEntry}, instance => $instance);

# we set a 1 to do some filters
$instance = '1' if (!defined($instance));
next if ($self->check_filter(section => 'drive', instance => $instance));

$self->{components}->{drive}->{total}++;
$self->{output}->output_add(long_msg => sprintf("drive '%s' status is '%s' [instance = %s]",
$instance, $result->{dstState}, $instance));
my $exit = $self->get_severity(section => 'drive', instance => $instance, value => $result->{dstState});
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("drive '%s' status is '%s'", $instance, $result->{dstState}));
}
}
}

1;
71 changes: 71 additions & 0 deletions storage/overland/neo/snmp/mode/components/library.pm
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,71 @@
#
# Copyright 2016 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 storage::overland::neo::snmp::mode::components::library;

use strict;
use warnings;

my %map_state = (
0 => 'initializing',
1 => 'online',
2 => 'offline',
);

my $mapping = {
lstLibraryState => { oid => '.1.3.6.1.4.1.3351.1.3.2.3.2.1.6', map => \%map_state },
};
my $oid_libraryStatusEntry = '.1.3.6.1.4.1.3351.1.3.2.3.2.1';

sub load {
my ($self) = @_;

push @{$self->{request}}, { oid => $oid_libraryStatusEntry };
}

sub check {
my ($self) = @_;

$self->{output}->output_add(long_msg => "Checking libraries");
$self->{components}->{library} = {name => 'libraries', total => 0, skip => 0};
return if ($self->check_filter(section => 'library'));

# there is no instance for the table. Weird. Need to manage the two cases.
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_libraryStatusEntry}})) {
next if ($oid !~ /^$mapping->{lstLibraryState}->{oid}(?:\.(.*)|$)/);
my $instance = defined($1) ? $1 : undef;
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_libraryStatusEntry}, instance => $instance);

# we set a 1 to do some filters
$instance = '1' if (!defined($instance));
next if ($self->check_filter(section => 'library', instance => $instance));

$self->{components}->{library}->{total}++;
$self->{output}->output_add(long_msg => sprintf("library '%s' status is '%s' [instance = %s]",
$instance, $result->{lstLibraryState}, $instance));
my $exit = $self->get_severity(section => 'library', instance => $instance, value => $result->{lstLibraryState});
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("library '%s' status is '%s'", $instance, $result->{lstLibraryState}));
}
}
}

1;
131 changes: 131 additions & 0 deletions storage/overland/neo/snmp/mode/eventlog.pm
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,131 @@
#
# Copyright 2016 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 storage::overland::neo::snmp::mode::eventlog;

use base qw(centreon::plugins::mode);

use strict;
use warnings;

my %severity_map = (
0 => 'informational',
1 => 'mild',
2 => 'hard',
3 => 'severe',
);

my $mapping = {
errCode => { oid => '.1.3.6.1.4.1.3351.1.3.2.3.3.1.2' },
errSeverity => { oid => '.1.3.6.1.4.1.3351.1.3.2.3.3.1.3', map => \%severity_map },
errMsg => { oid => '.1.3.6.1.4.1.3351.1.3.2.3.3.1.4' },
};
my $oid_errorEntry = '.1.3.6.1.4.1.3351.1.3.2.3.3.1';

sub new {
my ($class, %options) = @_;
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
bless $self, $class;

$self->{version} = '1.0';
$options{options}->add_options(arguments =>
{
"filter-severity:s" => { name => 'filter_severity', default => 'hard|severe' },
"filter-message:s" => { name => 'filter_message' },
"warning" => { name => 'warning' },
});
return $self;
}

sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
}

sub run {
my ($self, %options) = @_;

my $exit = defined($self->{option_results}->{warning}) ? 'WARNING' : 'CRITICAL';
my ($num_eventlog_checked, $num_errors) = (0, 0);

$self->{output}->output_add(severity => 'OK',
short_msg => "No problems detected.");

my $results = $options{snmp}->get_table(oid => $oid_errorEntry);

foreach my $oid ($options{snmp}->oid_lex_sort(keys %$results)) {
next if ($oid !~ /^$mapping->{errSeverity}->{oid}(?:\.(.*)|$)/);
my $instance = defined($1) ? $1 : undef;
my $result = $options{snmp}->map_instance(mapping => $mapping, results => $results, instance => $instance);

$num_eventlog_checked++;

next if (defined($self->{option_results}->{filter_severity}) && $self->{option_results}->{filter_severity} ne '' && $result->{errSeverity} !~ /$self->{option_results}->{filter_severity}/);
next if (defined($self->{option_results}->{filter_message}) && $self->{option_results}->{filter_message} ne '' && $result->{errMsg} !~ /$self->{option_results}->{filter_message}/);

$num_errors++;
$self->{output}->output_add(long_msg => sprintf("%s : %s [severity: %s]",
$result->{errCode},
$result->{errMsg}, $result->{errSeverity}
)
);


}

$self->{output}->output_add(long_msg => sprintf("Number of message checked: %s", $num_eventlog_checked));
if ($num_errors != 0) {
# Message problem
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("%d problem detected (use verbose for more details)", $num_errors)
);
}

$self->{output}->display();
$self->{output}->exit();
}

1;

__END__
=head1 MODE
Check eventlogs.
=over 8
=item B<--warning>
Use warning return instead 'critical'.
=item B<--filter-severity>
Filter on severity. (Default: hard|severe)
Can be: severe, hard, mild, informational.
=item B<--filter-message>
Filter on event message. (Default: none)
=back
=cut
Loading

0 comments on commit 48c2453

Please sign in to comment.