tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add option --use-perl-mod

This commit is contained in:
CPbN 2019-11-01 23:27:39 +01:00
parent 42df733804
commit 6236c21858
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
snmp_standard/mode/stringvalue.pm
View File

@ -25,7 +25,6 @@ use base qw(centreon::plugins::mode);
use strict;
use warnings;
use centreon::plugins::misc;
use Date::Parse;
sub new {
my ($class, %options) = @_;
@ -71,6 +70,8 @@ sub new {
'map-value-other:s' => { name => 'map_value_other' },
'map-values-separator:s' => { name => 'map_values_separator', default => ',' },
'convert-custom-values:s' => { name => 'convert_custom_values' },
"use-perl-mod:s@" => { name => 'use_perl_mod' },
});
$self->{macros} = { ok => {}, warning => {}, critical => {}, unknown => {} };
@ -81,6 +82,11 @@ sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
foreach my $mod (@{$self->{option_results}->{use_perl_mod}}) {
centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $mod,
error_msg => "Cannot load module '" . $mod . "'.");
}
$self->{option_results}->{oid_leef} = $self->{option_results}->{oid} if (defined($self->{option_results}->{oid}) && $self->{option_results}->{oid} ne '');
if ((!defined($self->{option_results}->{oid_leef}) || $self->{option_results}->{oid_leef} eq '') &&
(!defined($self->{option_results}->{oid_table}) || $self->{option_results}->{oid_table} eq '')) {
@ -387,6 +393,11 @@ Separator uses between values (default: coma).
Custom code to convert values.
Example to convert octetstring to macaddress: --convert-custom-values='join(":", unpack("(H2)*", $value))'
=item B<--use-perl-mod>
Load additional Perl module (Can be multiple)
Example : --use-perl-mod='Date::Parse'
=back
=cut