diff --git a/centreon-plugins/network/securactive/mode/bca.pm b/centreon-plugins/network/securactive/mode/bca.pm new file mode 100644 index 000000000..b733227e7 --- /dev/null +++ b/centreon-plugins/network/securactive/mode/bca.pm @@ -0,0 +1,222 @@ +################################################################################ +# Copyright 2005-2013 MERETHIS +# Centreon is developped by : Julien Mathis and Romain Le Merlus under +# GPL Licence 2.0. +# +# This program is free software; you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free Software +# Foundation ; either version 2 of the License. +# +# This program is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, see . +# +# Linking this program statically or dynamically with other modules is making a +# combined work based on this program. Thus, the terms and conditions of the GNU +# General Public License cover the whole combination. +# +# As a special exception, the copyright holders of this program give MERETHIS +# permission to link this program with independent modules to produce an executable, +# regardless of the license terms of these independent modules, and to copy and +# distribute the resulting executable under terms of MERETHIS choice, provided that +# MERETHIS also meet, for each linked independent module, the terms and conditions +# of the license of that module. An independent module is a module which is not +# derived from this program. If you modify this program, you may extend this +# exception to your version of the program, but you are not obliged to do so. If you +# do not wish to do so, delete this exception statement from your version. +# +# For more information : contact@centreon.com +# Authors : Quentin Garnier +# +#################################################################################### + +package network::securactive::mode::bca; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +my $oid_spvBCAName = '.1.3.6.1.4.1.36773.3.2.1.1.1.1'; +my $oid_spvBCAStatus = '.1.3.6.1.4.1.36773.3.2.1.1.1.2'; +my $oid_spvBCAEURT = '.1.3.6.1.4.1.36773.3.2.1.1.1.3'; +my $oid_spvBCASRT = '.1.3.6.1.4.1.36773.3.2.1.1.1.4'; +my $oid_spvBCARTTClient = '.1.3.6.1.4.1.36773.3.2.1.1.1.7'; +my $oid_spvBCARTTServer = '.1.3.6.1.4.1.36773.3.2.1.1.1.8'; +my $oid_spvBCADTTClient = '.1.3.6.1.4.1.36773.3.2.1.1.1.9'; +my $oid_spvBCADTTServer = '.1.3.6.1.4.1.36773.3.2.1.1.1.10'; +my $oid_spvBCAThresholdWarning = '.1.3.6.1.4.1.36773.3.2.1.1.1.16'; +my $oid_spvBCAThresholdAlert = '.1.3.6.1.4.1.36773.3.2.1.1.1.17'; + +my %bca_status = ( + 1 => ['ok', 'OK'], + 2 => ['warning', 'WARNING'], + 3 => ['alert', 'WARNING'], + 4 => ['not available', 'UNKNOWN'], + 5 => ['not data at all', 'UNKNOWN'], + 6 => ['not enough samples for computation', 'UNKNOWN'], +); + +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 => + { + "warning:s" => { name => 'warning' }, + "critical:s" => { name => 'critical' }, + "name:s" => { name => 'name' }, + "regexp" => { name => 'use_regexp' }, + }); + $self->{bca_id_selected} = []; + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); + + if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'."); + $self->{output}->option_exit(); + } + if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'."); + $self->{output}->option_exit(); + } +} + +sub manage_selection { + my ($self, %options) = @_; + + $self->{result_names} = $self->{snmp}->get_table(oid => $oid_spvBCAName, nothing_quit => 1); + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{result_names}})) { + next if ($oid !~ /\.([0-9]+)$/); + my $instance = $1; + + # Get all without a name + if (!defined($self->{option_results}->{name})) { + push @{$self->{bca_id_selected}}, $instance; + next; + } + + $self->{result_names}->{$oid} = $self->{output}->to_utf8($self->{result_names}->{$oid}); + if (!defined($self->{option_results}->{use_regexp}) && $self->{result_names}->{$oid} eq $self->{option_results}->{name}) { + push @{$self->{bca_id_selected}}, $instance; + } + if (defined($self->{option_results}->{use_regexp}) && $self->{result_names}->{$oid} =~ /$self->{option_results}->{name}/) { + push @{$self->{bca_id_selected}}, $instance; + } + } + + if (scalar(@{$self->{bca_id_selected}}) <= 0) { + $self->{output}->add_option_msg(short_msg => "No bca found for name '" . $self->{option_results}->{name} . "'."); + $self->{output}->option_exit(); + } +} + +sub run { + my ($self, %options) = @_; + # $options{snmp} = snmp object + $self->{snmp} = $options{snmp}; + + $self->manage_selection(); + $self->{snmp}->load(oids => [$oid_spvBCAStatus, $oid_spvBCAEURT, $oid_spvBCASRT, + $oid_spvBCARTTClient, $oid_spvBCARTTServer, + $oid_spvBCADTTClient, $oid_spvBCADTTServer, + $oid_spvBCAThresholdWarning, $oid_spvBCAThresholdAlert], + instances => $self->{bca_id_selected}); + my $result = $self->{snmp}->get_leef(); + + if (!defined($self->{option_results}->{name}) || defined($self->{option_results}->{use_regexp})) { + $self->{output}->output_add(severity => 'OK', + short_msg => 'All BCA are ok.'); + } + + foreach my $instance (sort @{$self->{bca_id_selected}}) { + my $name = $self->{result_names}->{$oid_spvBCAName . '.' . $instance}; + my $status = $result->{$oid_spvBCAStatus . '.' . $instance}; + my $eurt = $result->{$oid_spvBCAEURT . '.' . $instance}; + my $warnth = defined($self->{option_results}->{warning}) ? $self->{option_results}->{warning} : $result->{$oid_spvBCAThresholdWarning . '.' . $instance}; + my $critth = defined($self->{option_results}->{critical}) ? $self->{option_results}->{critical} : $result->{$oid_spvBCAThresholdAlert . '.' . $instance}; + + my $exit_from_snmp = ${$bca_status{$status}}[1]; + my $exit_from_threshold = $self->{perfdata}->threshold_check(value => $eurt, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); + + $self->{output}->output_add(long_msg => sprintf("BCA '%s' status is '%s'", + $name, ${$bca_status{$status}}[0])); + if (!$self->{output}->is_status(value => $exit_from_snmp, compare => 'ok', litteral => 1) || (defined($self->{option_results}->{name}) && !defined($self->{option_results}->{use_regexp}))) { + $self->{output}->output_add(severity => $exit_from_snmp, + short_msg => sprintf("BCA '%s' status is '%s'", $name, ${$bca_status{$status}}[0])); + } + if (!$self->{output}->is_status(value => $exit_from_threshold, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit_from_threshold, + short_msg => sprintf("BCA '%s' EURT exceed option threshold", $name)); + } + + my $extra_label = ''; + $extra_label = '_' . $name if (!defined($self->{option_results}->{name}) || defined($self->{option_results}->{use_regexp})); + $self->{output}->perfdata_add(label => 'eurt' . $extra_label, + value => $eurt, + warning => $warnth, + critical => $critth, + min => 0); + $self->{output}->perfdata_add(label => 'srt' . $extra_label, + value => $result->{$oid_spvBCASRT . '.' . $instance}, + min => 0); + $self->{output}->perfdata_add(label => 'rttclient' . $extra_label, + value => $result->{$oid_spvBCARTTClient . '.' . $instance}, + min => 0); + $self->{output}->perfdata_add(label => 'rttserver' . $extra_label, + value => $result->{$oid_spvBCARTTServer . '.' . $instance}, + min => 0); + $self->{output}->perfdata_add(label => 'dttclient' . $extra_label, + value => $result->{$oid_spvBCADTTClient . '.' . $instance}, + min => 0); + $self->{output}->perfdata_add(label => 'dttserver' . $extra_label, + value => $result->{$oid_spvBCADTTServer . '.' . $instance}, + min => 0); + } + + $self->{output}->display(); + $self->{output}->exit(); +} + +1; + +__END__ + +=head1 MODE + +Check BCA status. + +=over 8 + +=item B<--warning> + +Threshold warning on EURT (End User Response Time). +Permits to add another threshold than snmp. + +=item B<--critical> + +Threshold critical on EURT (End User Response Time). +Permits to add another threshold than snmp. + +=item B<--name> + +Set the filesystem name. + +=item B<--regexp> + +Allows to use regexp to filter filesystem name (with option --name). + +=back + +=cut + \ No newline at end of file diff --git a/centreon-plugins/network/securactive/mode/bcn.pm b/centreon-plugins/network/securactive/mode/bcn.pm new file mode 100644 index 000000000..32af5d483 --- /dev/null +++ b/centreon-plugins/network/securactive/mode/bcn.pm @@ -0,0 +1,201 @@ +################################################################################ +# Copyright 2005-2013 MERETHIS +# Centreon is developped by : Julien Mathis and Romain Le Merlus under +# GPL Licence 2.0. +# +# This program is free software; you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free Software +# Foundation ; either version 2 of the License. +# +# This program is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, see . +# +# Linking this program statically or dynamically with other modules is making a +# combined work based on this program. Thus, the terms and conditions of the GNU +# General Public License cover the whole combination. +# +# As a special exception, the copyright holders of this program give MERETHIS +# permission to link this program with independent modules to produce an executable, +# regardless of the license terms of these independent modules, and to copy and +# distribute the resulting executable under terms of MERETHIS choice, provided that +# MERETHIS also meet, for each linked independent module, the terms and conditions +# of the license of that module. An independent module is a module which is not +# derived from this program. If you modify this program, you may extend this +# exception to your version of the program, but you are not obliged to do so. If you +# do not wish to do so, delete this exception statement from your version. +# +# For more information : contact@centreon.com +# Authors : Quentin Garnier +# +#################################################################################### + +package network::securactive::mode::bcn; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +my $oid_spvBCNName = '.1.3.6.1.4.1.36773.3.2.2.1.1.1'; +my $oid_spvBCNGlobalStatus = '.1.3.6.1.4.1.36773.3.2.2.1.1.4'; + +my %bcn_status = ( + 1 => ['ok', 'OK'], + 2 => ['warning', 'WARNING'], + 3 => ['alert', 'WARNING'], + 4 => ['not available', 'UNKNOWN'], + 5 => ['not data at all', 'UNKNOWN'], + 6 => ['not enough samples for computation', 'UNKNOWN'], +); + +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 => + { + "bcn:s" => { name => 'bcn' }, + "name" => { name => 'use_name' }, + "regexp" => { name => 'use_regexp' }, + "display-transform-src:s" => { name => 'display_transform_src' }, + "display-transform-dst:s" => { name => 'display_transform_dst' }, + }); + $self->{bcn_id_selected} = []; + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +sub manage_selection { + my ($self, %options) = @_; + + $self->{result_names} = $self->{snmp}->get_table(oid => $oid_spvBCNName, nothing_quit => 1); + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{result_names}})) { + next if ($oid !~ /\.([0-9]+)$/); + my $instance = $1; + + # Get all without a name + if (!defined($self->{option_results}->{bcn})) { + push @{$self->{bcn_id_selected}}, $instance; + next; + } + + # By ID + if (!defined($self->{option_results}->{use_name}) && defined($self->{option_results}->{bcn})) { + if ($instance == $self->{option_results}->{bcn}) { + push @{$self->{bcn_id_selected}}, $instance; + } + next; + } + + $self->{result_names}->{$oid} = $self->{output}->to_utf8($self->{result_names}->{$oid}); + if (!defined($self->{option_results}->{use_regexp}) && $self->{result_names}->{$oid} eq $self->{option_results}->{bcn}) { + push @{$self->{bcn_id_selected}}, $instance; + } + if (defined($self->{option_results}->{use_regexp}) && $self->{result_names}->{$oid} =~ /$self->{option_results}->{bcn}/) { + push @{$self->{bcn_id_selected}}, $instance; + } + } + + if (scalar(@{$self->{bcn_id_selected}}) <= 0) { + $self->{output}->add_option_msg(short_msg => "No bcn found for name '" . $self->{option_results}->{bcn} . "'."); + $self->{output}->option_exit(); + } +} + +sub run { + my ($self, %options) = @_; + # $options{snmp} = snmp object + $self->{snmp} = $options{snmp}; + + $self->manage_selection(); + $self->{snmp}->load(oids => [$oid_spvBCNGlobalStatus], + instances => $self->{bcn_id_selected}); + my $result = $self->{snmp}->get_leef(); + + if (!defined($self->{option_results}->{bcn}) || defined($self->{option_results}->{use_regexp})) { + $self->{output}->output_add(severity => 'OK', + short_msg => 'All BCN are ok.'); + } + + foreach my $instance (sort @{$self->{bcn_id_selected}}) { + my $name = $self->{result_names}->{$oid_spvBCNName . '.' . $instance}; + $name = $self->get_display_value(value => $name); + my $status = $result->{$oid_spvBCNGlobalStatus . '.' . $instance}; + my $exit_from_snmp = ${$bcn_status{$status}}[1]; + + $self->{output}->output_add(long_msg => sprintf("BCN '%s' global status is '%s'", + $name, ${$bcn_status{$status}}[0])); + if (!$self->{output}->is_status(value => $exit_from_snmp, compare => 'ok', litteral => 1) || (defined($self->{option_results}->{bcn}) && !defined($self->{option_results}->{use_regexp}))) { + $self->{output}->output_add(severity => $exit_from_snmp, + short_msg => sprintf("BCN '%s' global status is '%s'", $name, ${$bcn_status{$status}}[0])); + } + + my $extra_label = ''; + $extra_label = '_' . $name if (!defined($self->{option_results}->{bcn}) || defined($self->{option_results}->{use_regexp})); + #$self->{output}->perfdata_add(label => 'eurt' . $extra_label, + # value => $eurt, + # warning => $warnth, + # critical => $critth, + # min => 0); + } + + $self->{output}->display(); + $self->{output}->exit(); +} + +sub get_display_value { + my ($self, %options) = @_; + my $value = $options{value}; + + if (defined($self->{option_results}->{display_transform_src})) { + $self->{option_results}->{display_transform_dst} = '' if (!defined($self->{option_results}->{display_transform_dst})); + eval "\$value =~ s{$self->{option_results}->{display_transform_src}}{$self->{option_results}->{display_transform_dst}}"; + } + return $value; +} + +1; + +__END__ + +=head1 MODE + +Check BCN status. + +=over 8 + +=item B<--bcn> + +Set the bcn (number expected) ex: 1, 2,... (empty means 'check all bcn'). + +=item B<--name> + +Allows to use bcn name with option --bcn instead of bcn oid index. + +=item B<--regexp> + +Allows to use regexp to filter bcn (with option --name). + +=item B<--display-transform-src> + +Regexp src to transform display value. (security risk!!!) + +=item B<--display-transform-dst> + +Regexp dst to transform display value. (security risk!!!) + +=back + +=cut + \ No newline at end of file diff --git a/centreon-plugins/network/securactive/mode/listbca.pm b/centreon-plugins/network/securactive/mode/listbca.pm new file mode 100644 index 000000000..e3995703b --- /dev/null +++ b/centreon-plugins/network/securactive/mode/listbca.pm @@ -0,0 +1,151 @@ +################################################################################ +# Copyright 2005-2013 MERETHIS +# Centreon is developped by : Julien Mathis and Romain Le Merlus under +# GPL Licence 2.0. +# +# This program is free software; you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free Software +# Foundation ; either version 2 of the License. +# +# This program is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, see . +# +# Linking this program statically or dynamically with other modules is making a +# combined work based on this program. Thus, the terms and conditions of the GNU +# General Public License cover the whole combination. +# +# As a special exception, the copyright holders of this program give MERETHIS +# permission to link this program with independent modules to produce an executable, +# regardless of the license terms of these independent modules, and to copy and +# distribute the resulting executable under terms of MERETHIS choice, provided that +# MERETHIS also meet, for each linked independent module, the terms and conditions +# of the license of that module. An independent module is a module which is not +# derived from this program. If you modify this program, you may extend this +# exception to your version of the program, but you are not obliged to do so. If you +# do not wish to do so, delete this exception statement from your version. +# +# For more information : contact@centreon.com +# Authors : Quentin Garnier +# +#################################################################################### + +package network::securactive::mode::listbca; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +my $oid_spvBCAName = '.1.3.6.1.4.1.36773.3.2.1.1.1.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 => + { + "name:s" => { name => 'name' }, + "regexp" => { name => 'use_regexp' }, + }); + $self->{bca_id_selected} = []; + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +sub manage_selection { + my ($self, %options) = @_; + + $self->{result_names} = $self->{snmp}->get_table(oid => $oid_spvBCAName, nothing_quit => 1); + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{result_names}})) { + next if ($oid !~ /\.([0-9]+)$/); + my $instance = $1; + + # Get all without a name + if (!defined($self->{option_results}->{name})) { + push @{$self->{bca_id_selected}}, $instance; + next; + } + + $self->{result_names}->{$oid} = $self->{output}->to_utf8($self->{result_names}->{$oid}); + if (!defined($self->{option_results}->{use_regexp}) && $self->{result_names}->{$oid} eq $self->{option_results}->{name}) { + push @{$self->{bca_id_selected}}, $instance; + } + if (defined($self->{option_results}->{use_regexp}) && $self->{result_names}->{$oid} =~ /$self->{option_results}->{name}/) { + push @{$self->{bca_id_selected}}, $instance; + } + } +} + +sub run { + my ($self, %options) = @_; + # $options{snmp} = snmp object + $self->{snmp} = $options{snmp}; + + $self->manage_selection(); + my $bca_display = ''; + my $bca_display_append = ''; + foreach my $instance (sort @{$self->{bca_id_selected}}) { + my $name = $self->{result_names}->{$oid_spvBCAName . '.' . $instance}; + + $bca_display .= $bca_display_append . "name = $name "; + $bca_display_append = ', '; + } + + $self->{output}->output_add(severity => 'OK', + short_msg => 'List bca: ' . $bca_display); + $self->{output}->display(nolabel => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => ['name']); +} + +sub disco_show { + my ($self, %options) = @_; + # $options{snmp} = snmp object + $self->{snmp} = $options{snmp}; + + $self->manage_selection(); + foreach my $instance (sort @{$self->{bca_id_selected}}) { + my $name = $self->{result_names}->{$oid_spvBCAName . '.' . $instance}; + + $self->{output}->add_disco_entry(name => $name); + } +} + +1; + +__END__ + +=head1 MODE + +List BCA. + +=over 8 + +=item B<--name> + +Set the bca name. + +=item B<--regexp> + +Allows to use regexp to filter bca name (with option --name). + +=back + +=cut + \ No newline at end of file diff --git a/centreon-plugins/network/securactive/mode/listbcn.pm b/centreon-plugins/network/securactive/mode/listbcn.pm new file mode 100644 index 000000000..25631e010 --- /dev/null +++ b/centreon-plugins/network/securactive/mode/listbcn.pm @@ -0,0 +1,188 @@ +################################################################################ +# Copyright 2005-2013 MERETHIS +# Centreon is developped by : Julien Mathis and Romain Le Merlus under +# GPL Licence 2.0. +# +# This program is free software; you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free Software +# Foundation ; either version 2 of the License. +# +# This program is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, see . +# +# Linking this program statically or dynamically with other modules is making a +# combined work based on this program. Thus, the terms and conditions of the GNU +# General Public License cover the whole combination. +# +# As a special exception, the copyright holders of this program give MERETHIS +# permission to link this program with independent modules to produce an executable, +# regardless of the license terms of these independent modules, and to copy and +# distribute the resulting executable under terms of MERETHIS choice, provided that +# MERETHIS also meet, for each linked independent module, the terms and conditions +# of the license of that module. An independent module is a module which is not +# derived from this program. If you modify this program, you may extend this +# exception to your version of the program, but you are not obliged to do so. If you +# do not wish to do so, delete this exception statement from your version. +# +# For more information : contact@centreon.com +# Authors : Quentin Garnier +# +#################################################################################### + +package network::securactive::mode::listbcn; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +my $oid_spvBCNName = '.1.3.6.1.4.1.36773.3.2.2.1.1.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 => + { + "bcn:s" => { name => 'bcn' }, + "name" => { name => 'use_name' }, + "regexp" => { name => 'use_regexp' }, + "display-transform-src:s" => { name => 'display_transform_src' }, + "display-transform-dst:s" => { name => 'display_transform_dst' }, + }); + $self->{bcn_id_selected} = []; + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +sub manage_selection { + my ($self, %options) = @_; + + $self->{result_names} = $self->{snmp}->get_table(oid => $oid_spvBCNName, nothing_quit => 1); + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{result_names}})) { + next if ($oid !~ /\.([0-9]+)$/); + my $instance = $1; + + # Get all without a name + if (!defined($self->{option_results}->{bcn})) { + push @{$self->{bcn_id_selected}}, $instance; + next; + } + + # By ID + if (!defined($self->{option_results}->{use_name}) && defined($self->{option_results}->{bcn})) { + if ($instance == $self->{option_results}->{bcn}) { + push @{$self->{bcn_id_selected}}, $instance; + } + next; + } + + $self->{result_names}->{$oid} = $self->{output}->to_utf8($self->{result_names}->{$oid}); + if (!defined($self->{option_results}->{use_regexp}) && $self->{result_names}->{$oid} eq $self->{option_results}->{bcn}) { + push @{$self->{bcn_id_selected}}, $instance; + } + if (defined($self->{option_results}->{use_regexp}) && $self->{result_names}->{$oid} =~ /$self->{option_results}->{bcn}/) { + push @{$self->{bcn_id_selected}}, $instance; + } + } +} + +sub run { + my ($self, %options) = @_; + # $options{snmp} = snmp object + $self->{snmp} = $options{snmp}; + + $self->manage_selection(); + my $bcn_display = ''; + my $bcn_display_append = ''; + foreach my $instance (sort @{$self->{bcn_id_selected}}) { + my $name = $self->{result_names}->{$oid_spvBCNName . '.' . $instance}; + $name = $self->get_display_value(value => $name); + + $bcn_display .= $bcn_display_append . "name = $name "; + $bcn_display_append = ', '; + } + + $self->{output}->output_add(severity => 'OK', + short_msg => 'List bcn: ' . $bcn_display); + $self->{output}->display(nolabel => 1); + $self->{output}->exit(); +} + +sub get_display_value { + my ($self, %options) = @_; + my $value = $options{value}; + + if (defined($self->{option_results}->{display_transform_src})) { + $self->{option_results}->{display_transform_dst} = '' if (!defined($self->{option_results}->{display_transform_dst})); + eval "\$value =~ s{$self->{option_results}->{display_transform_src}}{$self->{option_results}->{display_transform_dst}}"; + } + return $value; +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => ['name', 'bcnid']); +} + +sub disco_show { + my ($self, %options) = @_; + # $options{snmp} = snmp object + $self->{snmp} = $options{snmp}; + + $self->manage_selection(); + foreach my $instance (sort @{$self->{bcn_id_selected}}) { + my $name = $self->{result_names}->{$oid_spvBCNName . '.' . $instance}; + $name = $self->get_display_value(value => $name); + + $self->{output}->add_disco_entry(name => $name, + bcnid => $instance); + } +} + +1; + +__END__ + +=head1 MODE + +List BCN. + +=over 8 + +=item B<--bcn> + +Set the bcn (number expected) ex: 1, 2,... (empty means 'check all bcn'). + +=item B<--name> + +Allows to use bcn name with option --bcn instead of bcn oid index. + +=item B<--regexp> + +Allows to use regexp to filter bcn (with option --name). + +=item B<--display-transform-src> + +Regexp src to transform display value. (security risk!!!) + +=item B<--display-transform-dst> + +Regexp dst to transform display value. (security risk!!!) + +=back + +=cut + \ No newline at end of file diff --git a/centreon-plugins/network/securactive/plugin.pm b/centreon-plugins/network/securactive/plugin.pm new file mode 100644 index 000000000..b58de6acb --- /dev/null +++ b/centreon-plugins/network/securactive/plugin.pm @@ -0,0 +1,70 @@ +################################################################################ +# Copyright 2005-2013 MERETHIS +# Centreon is developped by : Julien Mathis and Romain Le Merlus under +# GPL Licence 2.0. +# +# This program is free software; you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free Software +# Foundation ; either version 2 of the License. +# +# This program is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, see . +# +# Linking this program statically or dynamically with other modules is making a +# combined work based on this program. Thus, the terms and conditions of the GNU +# General Public License cover the whole combination. +# +# As a special exception, the copyright holders of this program give MERETHIS +# permission to link this program with independent modules to produce an executable, +# regardless of the license terms of these independent modules, and to copy and +# distribute the resulting executable under terms of MERETHIS choice, provided that +# MERETHIS also meet, for each linked independent module, the terms and conditions +# of the license of that module. An independent module is a module which is not +# derived from this program. If you modify this program, you may extend this +# exception to your version of the program, but you are not obliged to do so. If you +# do not wish to do so, delete this exception statement from your version. +# +# For more information : contact@centreon.com +# Authors : Quentin Garnier +# +#################################################################################### + +package network::securactive::plugin; + +use strict; +use warnings; +use base qw(centreon::plugins::script_snmp); + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + # $options->{options} = options object + + $self->{version} = '1.0'; + %{$self->{modes}} = ( + # Business Critical Application + 'list-bca' => 'network::securactive::mode::listbca', + 'bca' => 'network::securactive::mode::bca', + # Business Critical Network + 'list-bcn' => 'network::securactive::mode::listbcn', + 'bcn' => 'network::securactive::mode::bcn', + ); + + return $self; +} + +1; + +__END__ + +=head1 PLUGIN DESCRIPTION + +Check SecurActive in SNMP. +The system (cpu, memory, traffic,...) can be used monitor with linux snmp plugin. + +=cut