From 8c2352890af1ba6b043068a5566d65066b6a60be Mon Sep 17 00:00:00 2001 From: qgarnier Date: Tue, 18 Apr 2023 14:12:55 +0200 Subject: [PATCH] (plugin) cloud::outscale - new (#4350) --- .../deb.json | 5 + .../pkg.json | 9 + .../rpm.json | 5 + src/cloud/outscale/custom/http.pm | 403 +++++++++++++++ src/cloud/outscale/custom/osccli.pm | 468 ++++++++++++++++++ .../outscale/mode/accountconsumptions.pm | 204 ++++++++ src/cloud/outscale/mode/clientgateways.pm | 198 ++++++++ src/cloud/outscale/mode/internetservices.pm | 174 +++++++ src/cloud/outscale/mode/listclientgateways.pm | 122 +++++ .../outscale/mode/listinternetservices.pm | 122 +++++ src/cloud/outscale/mode/listloadbalancers.pm | 107 ++++ src/cloud/outscale/mode/listnatservices.pm | 122 +++++ src/cloud/outscale/mode/listnets.pm | 122 +++++ src/cloud/outscale/mode/listquotas.pm | 107 ++++ src/cloud/outscale/mode/listroutetables.pm | 106 ++++ src/cloud/outscale/mode/listsubnets.pm | 122 +++++ .../outscale/mode/listvirtualgateways.pm | 122 +++++ src/cloud/outscale/mode/listvms.pm | 122 +++++ src/cloud/outscale/mode/listvolumes.pm | 109 ++++ src/cloud/outscale/mode/listvpnconnections.pm | 122 +++++ src/cloud/outscale/mode/loadbalancers.pm | 225 +++++++++ src/cloud/outscale/mode/natservices.pm | 175 +++++++ src/cloud/outscale/mode/nets.pm | 168 +++++++ src/cloud/outscale/mode/quotas.pm | 200 ++++++++ src/cloud/outscale/mode/routetables.pm | 127 +++++ src/cloud/outscale/mode/subnets.pm | 213 ++++++++ src/cloud/outscale/mode/virtualgateways.pm | 198 ++++++++ src/cloud/outscale/mode/vms.pm | 175 +++++++ src/cloud/outscale/mode/volumes.pm | 218 ++++++++ src/cloud/outscale/mode/vpnconnections.pm | 215 ++++++++ src/cloud/outscale/plugin.pm | 73 +++ 31 files changed, 4858 insertions(+) create mode 100644 packaging/centreon-plugin-Cloud-Outscale-Api/deb.json create mode 100644 packaging/centreon-plugin-Cloud-Outscale-Api/pkg.json create mode 100644 packaging/centreon-plugin-Cloud-Outscale-Api/rpm.json create mode 100644 src/cloud/outscale/custom/http.pm create mode 100644 src/cloud/outscale/custom/osccli.pm create mode 100644 src/cloud/outscale/mode/accountconsumptions.pm create mode 100644 src/cloud/outscale/mode/clientgateways.pm create mode 100644 src/cloud/outscale/mode/internetservices.pm create mode 100644 src/cloud/outscale/mode/listclientgateways.pm create mode 100644 src/cloud/outscale/mode/listinternetservices.pm create mode 100644 src/cloud/outscale/mode/listloadbalancers.pm create mode 100644 src/cloud/outscale/mode/listnatservices.pm create mode 100644 src/cloud/outscale/mode/listnets.pm create mode 100644 src/cloud/outscale/mode/listquotas.pm create mode 100644 src/cloud/outscale/mode/listroutetables.pm create mode 100644 src/cloud/outscale/mode/listsubnets.pm create mode 100644 src/cloud/outscale/mode/listvirtualgateways.pm create mode 100644 src/cloud/outscale/mode/listvms.pm create mode 100644 src/cloud/outscale/mode/listvolumes.pm create mode 100644 src/cloud/outscale/mode/listvpnconnections.pm create mode 100644 src/cloud/outscale/mode/loadbalancers.pm create mode 100644 src/cloud/outscale/mode/natservices.pm create mode 100644 src/cloud/outscale/mode/nets.pm create mode 100644 src/cloud/outscale/mode/quotas.pm create mode 100644 src/cloud/outscale/mode/routetables.pm create mode 100644 src/cloud/outscale/mode/subnets.pm create mode 100644 src/cloud/outscale/mode/virtualgateways.pm create mode 100644 src/cloud/outscale/mode/vms.pm create mode 100644 src/cloud/outscale/mode/volumes.pm create mode 100644 src/cloud/outscale/mode/vpnconnections.pm create mode 100644 src/cloud/outscale/plugin.pm diff --git a/packaging/centreon-plugin-Cloud-Outscale-Api/deb.json b/packaging/centreon-plugin-Cloud-Outscale-Api/deb.json new file mode 100644 index 000000000..8133a85e5 --- /dev/null +++ b/packaging/centreon-plugin-Cloud-Outscale-Api/deb.json @@ -0,0 +1,5 @@ +{ + "dependencies": [ + "libdatetime-perl" + ] +} diff --git a/packaging/centreon-plugin-Cloud-Outscale-Api/pkg.json b/packaging/centreon-plugin-Cloud-Outscale-Api/pkg.json new file mode 100644 index 000000000..98f2bcbed --- /dev/null +++ b/packaging/centreon-plugin-Cloud-Outscale-Api/pkg.json @@ -0,0 +1,9 @@ +{ + "pkg_name": "centreon-plugin-Cloud-Outscale-Api", + "pkg_summary": "Centreon Plugin to monitor Outscale using API", + "plugin_name": "centreon_outscale_api.pl", + "files": [ + "centreon/plugins/script_custom.pm", + "cloud/outscale/" + ] +} diff --git a/packaging/centreon-plugin-Cloud-Outscale-Api/rpm.json b/packaging/centreon-plugin-Cloud-Outscale-Api/rpm.json new file mode 100644 index 000000000..e9dff7552 --- /dev/null +++ b/packaging/centreon-plugin-Cloud-Outscale-Api/rpm.json @@ -0,0 +1,5 @@ +{ + "dependencies": [ + "perl(DateTime)" + ] +} diff --git a/src/cloud/outscale/custom/http.pm b/src/cloud/outscale/custom/http.pm new file mode 100644 index 000000000..012100aaf --- /dev/null +++ b/src/cloud/outscale/custom/http.pm @@ -0,0 +1,403 @@ +# +# Copyright 2023 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 cloud::outscale::custom::http; + +use strict; +use warnings; +use centreon::plugins::http; +use JSON::XS; + +sub new { + my ($class, %options) = @_; + my $self = {}; + bless $self, $class; + + if (!defined($options{output})) { + print "Class Custom: Need to specify 'output' argument.\n"; + exit 3; + } + if (!defined($options{options})) { + $options{output}->add_option_msg(short_msg => "Class Custom: Need to specify 'options' argument."); + $options{output}->option_exit(); + } + + if (!defined($options{noptions})) { + $options{options}->add_options(arguments => { + 'osc-secret-key:s' => { name => 'osc_secret_key' }, + 'osc-access-key:s' => { name => 'osc_access_key' }, + 'region:s' => { name => 'region' }, + 'port:s' => { name => 'port' }, + 'proto:s' => { name => 'proto' }, + 'timeout:s' => { name => 'timeout' }, + 'api-path:s' => { name => 'api_path' }, + 'unknown-http-status:s' => { name => 'unknown_http_status' }, + 'warning-http-status:s' => { name => 'warning_http_status' }, + 'critical-http-status:s' => { name => 'critical_http_status' } + }); + } + $options{options}->add_help(package => __PACKAGE__, sections => 'REST API OPTIONS', once => 1); + + $self->{output} = $options{output}; + $self->{http} = centreon::plugins::http->new(%options, default_backend => 'curl'); + + return $self; +} + +sub set_options { + my ($self, %options) = @_; + + $self->{option_results} = $options{option_results}; +} + +sub set_defaults {} + +sub check_options { + my ($self, %options) = @_; + + $self->{port} = (defined($self->{option_results}->{port})) ? $self->{option_results}->{port} : 443; + $self->{proto} = (defined($self->{option_results}->{proto})) ? $self->{option_results}->{proto} : 'https'; + $self->{timeout} = (defined($self->{option_results}->{timeout})) ? $self->{option_results}->{timeout} : 50; + $self->{unknown_http_status} = (defined($self->{option_results}->{unknown_http_status})) ? $self->{option_results}->{unknown_http_status} : '%{http_code} < 200 or %{http_code} >= 300'; + $self->{warning_http_status} = (defined($self->{option_results}->{warning_http_status})) ? $self->{option_results}->{warning_http_status} : ''; + $self->{critical_http_status} = (defined($self->{option_results}->{critical_http_status})) ? $self->{option_results}->{critical_http_status} : ''; + $self->{api_path} = (defined($self->{option_results}->{api_path})) ? $self->{option_results}->{api_path} : '/api/v1'; + + if (!defined($self->{option_results}->{region}) || $self->{option_results}->{region} eq '') { + $self->{output}->add_option_msg(short_msg => "Need to specify --region option."); + $self->{output}->option_exit(); + } + if (!defined($self->{option_results}->{osc_access_key}) || $self->{option_results}->{osc_access_key} eq '') { + $self->{output}->add_option_msg(short_msg => "Need to specify --osc-access-key option."); + $self->{output}->option_exit(); + } + if (!defined($self->{option_results}->{osc_secret_key}) || $self->{option_results}->{osc_secret_key} eq '') { + $self->{output}->add_option_msg(short_msg => "Need to specify --osc-secret-key option."); + $self->{output}->option_exit(); + } + + return 0; +} + +sub build_options_for_httplib { + my ($self, %options) = @_; + + $self->{option_results}->{timeout} = $self->{timeout}; + $self->{option_results}->{port} = $self->{port}; + $self->{option_results}->{proto} = $self->{proto}; + $self->{option_results}->{timeout} = $self->{timeout}; +} + +sub settings { + my ($self, %options) = @_; + + return if (defined($self->{settings_done})); + $self->build_options_for_httplib(); + $self->{http}->add_header(key => 'Accept', value => 'application/json'); + $self->{http}->set_options(%{$self->{option_results}}); + $self->{settings_done} = 1; +} + +sub request_api { + my ($self, %options) = @_; + + $self->settings(); + my $content = $self->{http}->request( + hostname => 'api.' . $self->{option_results}->{region} . '.outscale.com', + method => $options{method}, + url_path => $self->{api_path} . $options{endpoint}, + get_param => $options{get_param}, + header => $options{header}, + query_form_post => $options{query_form_post}, + credentials => 1, + username => $self->{option_results}->{osc_access_key}, + password => $self->{option_results}->{osc_secret_key}, + curl_opt => ["CURLOPT_AWS_SIGV4 => 'osc'"], + unknown_status => $self->{unknown_http_status}, + warning_status => $self->{warning_http_status}, + critical_status => $self->{critical_http_status} + ); + + if (!defined($content) || $content eq '') { + $self->{output}->add_option_msg(short_msg => "API returns empty content [code: '" . $self->{http}->get_code() . "'] [message: '" . $self->{http}->get_message() . "']"); + $self->{output}->option_exit(); + } + + my $decoded; + eval { + $decoded = JSON::XS->new->utf8->decode($content); + }; + if ($@) { + $self->{output}->add_option_msg(short_msg => "Cannot decode response (add --debug option to display returned content)"); + $self->{output}->option_exit(); + } + + return $decoded; +} + +sub load_balancer_read { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadLoadBalancers', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{LoadBalancers}; +} + +sub read_vms_health { + my ($self, %options) = @_; + + my $post; + eval { + $post = JSON::XS->new->utf8->encode({ LoadBalancerName => $options{load_balancer_name} }); + }; + if ($@) { + $self->{output}->add_option_msg(short_msg => 'cannot encode json request'); + $self->{output}->option_exit(); + } + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadVmsHealth', + header => ['Content-Type: application/json'], + query_form_post => $post + ); + + return $raw_results->{BackendVmHealth}; +} + +sub read_vms { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadVms', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{Vms}; +} + +sub read_client_gateways { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadClientGateways', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{ClientGateways}; +} + +sub read_consumption_account { + my ($self, %options) = @_; + + my $post; + eval { + $post = JSON::XS->new->utf8->encode({ FromDate => $options{from_date}, ToDate => $options{to_date} }); + }; + if ($@) { + $self->{output}->add_option_msg(short_msg => 'cannot encode json request'); + $self->{output}->option_exit(); + } + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadConsumptionAccount', + header => ['Content-Type: application/json'], + query_form_post => $post + ); + + return $raw_results->{ConsumptionEntries}; +} + +sub read_virtual_gateways { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadVirtualGateways', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{VirtualGateways}; +} + +sub read_vpn_connections { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadVpnConnections', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{VpnConnections}; +} + +sub read_volumes { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadVolumes', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{Volumes}; +} + +sub read_nets { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadNets', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{Nets}; +} + +sub read_quotas { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadQuotas', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{QuotaTypes}; +} + +sub read_subnets { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadSubnets', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{Subnets}; +} + +sub read_route_tables { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadRouteTables', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{RouteTables}; +} + +sub read_internet_services { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadInternetServices', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{InternetServices}; +} + +sub read_nat_services { + my ($self, %options) = @_; + + my $raw_results = $self->request_api( + method => 'POST', + endpoint => '/ReadNatServices', + header => ['Content-Type: application/json'], + query_form_post => '' + ); + + return $raw_results->{NatServices}; +} + +1; + +__END__ + +=head1 NAME + +Outscale Rest API + +=head1 REST API OPTIONS + +Outscale Rest API + +=over 8 + +=item B<--osc-secret-key> + +Set Outscale secret key. + +=item B<--osc-access-key> + +Set Outscale access key. + +=item B<--region> + +Set the region name (Required). + +=item B<--port> + +Port used (Default: 443) + +=item B<--proto> + +Specify https if needed (Default: 'https') + +=item B<--token> + +API token. + +=item B<--timeout> + +Set timeout in seconds (Default: 50). + +=back + +=head1 DESCRIPTION + +B. + +=cut diff --git a/src/cloud/outscale/custom/osccli.pm b/src/cloud/outscale/custom/osccli.pm new file mode 100644 index 000000000..adb43e4e1 --- /dev/null +++ b/src/cloud/outscale/custom/osccli.pm @@ -0,0 +1,468 @@ +# +# Copyright 2023 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 cloud::outscale::custom::osccli; + +use strict; +use warnings; +use centreon::plugins::misc; +use JSON::XS; + +sub new { + my ($class, %options) = @_; + my $self = {}; + bless $self, $class; + + if (!defined($options{output})) { + print "Class Custom: Need to specify 'output' argument.\n"; + exit 3; + } + if (!defined($options{options})) { + $options{output}->add_option_msg(short_msg => "Class Custom: Need to specify 'options' argument."); + $options{output}->option_exit(); + } + + if (!defined($options{noptions})) { + $options{options}->add_options(arguments => { + 'profile:s' => { name => 'profile' }, + 'virtual-env:s' => { name => 'virtual_env' }, + 'timeout:s' => { name => 'timeout', default => 50 }, + 'sudo' => { name => 'sudo' }, + 'command:s' => { name => 'command' }, + 'command-path:s' => { name => 'command_path' }, + 'command-options:s' => { name => 'command_options' }, + 'proxyurl:s' => { name => 'proxyurl' } + }); + } + $options{options}->add_help(package => __PACKAGE__, sections => 'OSCCLI OPTIONS', once => 1); + + $self->{output} = $options{output}; + $self->{custommode_name} = $options{custommode_name}; + + return $self; +} + +sub get_region { + my ($self, %options) = @_; + + return $self->{option_results}->{region}; +} + +sub set_options { + my ($self, %options) = @_; + + $self->{option_results} = $options{option_results}; +} + +sub set_defaults {} + +sub check_options { + my ($self, %options) = @_; + + if (defined($self->{option_results}->{proxyurl}) && $self->{option_results}->{proxyurl} ne '') { + $ENV{HTTP_PROXY} = $self->{option_results}->{proxyurl}; + $ENV{HTTPS_PROXY} = $self->{option_results}->{proxyurl}; + } + + if (defined($self->{option_results}->{virtual_env}) && $self->{option_results}->{virtual_env} ne '') { + $ENV{VIRTUAL_ENV} = $self->{option_results}->{virtual_env}; + $ENV{PATH} = "$ENV{VIRTUAL_ENV}/bin:$ENV{PATH}"; + } + + centreon::plugins::misc::check_security_command( + output => $self->{output}, + command => $self->{option_results}->{command}, + command_options => $self->{option_results}->{command_options}, + command_path => $self->{option_results}->{command_path} + ); + + return 0; +} + +sub execute { + my ($self, %options) = @_; + + my $command = defined($self->{option_results}->{command}) && $self->{option_results}->{command} ne '' ? $self->{option_results}->{command} : 'osc-cli'; + + my $cmd_options = $options{cmd_options}; + + $self->{output}->output_add(long_msg => "Command line: '" . $command . " " . $cmd_options . "'", debug => 1); + + my ($response) = centreon::plugins::misc::execute( + output => $self->{output}, + options => $self->{option_results}, + sudo => $self->{option_results}->{sudo}, + command => $command, + command_path => $self->{option_results}->{command_path}, + command_options => $cmd_options, + redirect_stderr => ($self->{output}->is_debug()) ? 0 : 1 + ); + + my $raw_results = {}; + + eval { + $raw_results = JSON::XS->new->utf8->decode($response); + }; + if ($@) { + $self->{output}->output_add(long_msg => $response, debug => 1); + $self->{output}->add_option_msg(short_msg => "Cannot decode response (add --debug option to display returned content)"); + $self->{output}->option_exit(); + } + + return $raw_results; +} + +sub load_balancer_read_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadLoadBalancers'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub load_balancer_read { + my ($self, %options) = @_; + + my $cmd_options = $self->load_balancer_read_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{LoadBalancers}; +} + +sub read_vms_health_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadVmsHealth'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + $cmd_options .= " --LoadBalancerName '$options{load_balancer_name}'"; + + return $cmd_options; +} + +sub read_vms_health { + my ($self, %options) = @_; + + my $cmd_options = $self->read_vms_health_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{BackendVmHealth}; +} + +sub read_vms_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadVms'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub read_vms { + my ($self, %options) = @_; + + my $cmd_options = $self->read_vms_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{Vms}; +} + +sub read_client_gateways_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadClientGateways'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub read_client_gateways { + my ($self, %options) = @_; + + my $cmd_options = $self->read_client_gateways_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{ClientGateways}; +} + +sub read_consumption_account_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadConsumptionAccount'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + $cmd_options .= " --FromDate '$options{from_date}' --ToDate '$options{to_date}'"; + + return $cmd_options; +} + +sub read_consumption_account { + my ($self, %options) = @_; + + my $cmd_options = $self->read_consumption_account_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{ConsumptionEntries}; +} + +sub read_virtual_gateways_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadVirtualGateways'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub read_virtual_gateways { + my ($self, %options) = @_; + + my $cmd_options = $self->read_virtual_gateways_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{VirtualGateways}; +} + +sub read_vpn_connections_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadVpnConnections'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub read_vpn_connections { + my ($self, %options) = @_; + + my $cmd_options = $self->read_vpn_connections_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{VpnConnections}; +} + +sub read_volumes_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadVolumes'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub read_volumes { + my ($self, %options) = @_; + + my $cmd_options = $self->read_volumes_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{Volumes}; +} + +sub read_nets_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadNets'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub read_nets { + my ($self, %options) = @_; + + my $cmd_options = $self->read_nets_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{Nets}; +} + +sub read_quotas_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadQuotas'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub read_quotas { + my ($self, %options) = @_; + + my $cmd_options = $self->read_quotas_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{QuotaTypes}; +} + +sub read_subnets_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadSubnets'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub read_subnets { + my ($self, %options) = @_; + + my $cmd_options = $self->read_subnets_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{Subnets}; +} + +sub read_route_tables_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadRouteTables'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub read_route_tables { + my ($self, %options) = @_; + + my $cmd_options = $self->read_route_tables_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{RouteTables}; +} + +sub read_internet_services_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadInternetServices'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub read_internet_services { + my ($self, %options) = @_; + + my $cmd_options = $self->read_internet_services_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{InternetServices}; +} + +sub read_nat_services_set_cmd { + my ($self, %options) = @_; + + return $self->{option_results}->{command_options} if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = 'api ReadNatServices'; + $cmd_options .= " --profile '$self->{option_results}->{profile}'" if (defined($self->{option_results}->{profile}) && $self->{option_results}->{profile} ne ''); + + return $cmd_options; +} + +sub read_nat_services { + my ($self, %options) = @_; + + my $cmd_options = $self->read_nat_services_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results->{NatServices}; +} + +1; + +__END__ + +=head1 NAME + +Outscale + +=head1 OSCCLI OPTIONS + +Outscale CLI + +=over 8 + +=item B<--profile> + +Set profile option. + +=item B<--virtual-env> + +Set python virtual environment (to be used if osc-cli is installed in python venv). + +=item B<--timeout> + +Set timeout in seconds (Default: 50). + +=item B<--sudo> + +Use 'sudo' to execute the command. + +=item B<--command> + +Command to get information (Default: 'osc-cli'). +Can be changed if you have output in a file. + +=item B<--command-path> + +Command path (Default: none). + +=item B<--command-options> + +Command options (Default: none). +Only use for testing purpose, when you want to set ALL parameters of a command by yourself. + +=item B<--proxyurl> + +Proxy URL if any + +=back + +=head1 DESCRIPTION + +B. + +=cut diff --git a/src/cloud/outscale/mode/accountconsumptions.pm b/src/cloud/outscale/mode/accountconsumptions.pm new file mode 100644 index 000000000..1bcedf9c0 --- /dev/null +++ b/src/cloud/outscale/mode/accountconsumptions.pm @@ -0,0 +1,204 @@ +# +# Copyright 2023 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 cloud::outscale::mode::accountconsumptions; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use DateTime; + +sub consumption_long_output { + my ($self, %options) = @_; + + return sprintf( + "checking account consumption '%s' [service: %s] [region: %s]", + $options{instance_value}->{title}, + $options{instance_value}->{service}, + $options{instance_value}->{region} + ); +} + +sub prefix_consumption_output { + my ($self, %options) = @_; + + return sprintf( + "account consumption '%s' [service: %s] [region: %s] ", + $options{instance_value}->{title}, + $options{instance_value}->{service}, + $options{instance_value}->{region} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'number of account consumptions '; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { + name => 'consumptions', type => 3, cb_prefix_output => 'prefix_consumption_output', cb_long_output => 'consumption_long_output', indent_long_output => ' ', message_multiple => 'All account consumptions are ok', + group => [ + { name => 'metrics', type => 0 } + ] + } + ]; + + $self->{maps_counters}->{global} = [ + { label => 'account-consumptions-detected', display_ok => 0, nlabel => 'account.consumptions.detected.count', set => { + key_values => [ { name => 'detected' } ], + output_template => 'detected: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + } + ]; + + $self->{maps_counters}->{metrics} = [ + { label => 'account-consumption', nlabel => 'accounts.consumption.count', set => { + key_values => [ { name => 'value' }, { name => 'title' }, { name => 'service' }, { name => 'region' } ], + output_template => 'value: %.3f', + closure_custom_perfdata => sub { + my ($self, %options) = @_; + + $self->{output}->perfdata_add( + nlabel => $self->{nlabel}, + instances => [$self->{result_values}->{title}, $self->{result_values}->{service}, $self->{result_values}->{region}], + value => sprintf('%.3f', $self->{result_values}->{value}), + warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-' . $self->{thlabel}), + critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-' . $self->{thlabel}) + ); + } + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-region:s' => { name => 'filter_region' }, + 'filter-service:s' => { name => 'filter_service' }, + 'filter-category:s' => { name => 'filter_category' }, + 'filter-title:s' => { name => 'filter_title' }, + 'timeframe:s' => { name => 'timeframe' } + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::check_options(%options); + + if (!defined($self->{option_results}->{timeframe}) || $self->{option_results}->{timeframe} !~ /\d/) { + $self->{option_results}->{timeframe} = 1; + } +} + +sub manage_selection { + my ($self, %options) = @_; + + my $dt = DateTime->now(time_zone => 'UTC'); + my $to_date = sprintf('%02d-%02d-%02d', $dt->year(), $dt->month(), $dt->day()); + $dt->subtract(days => $self->{option_results}->{timeframe}); + my $from_date = sprintf('%02d-%02d-%02d', $dt->year(), $dt->month(), $dt->day()); + + my $consumptions = $options{custom}->read_consumption_account(from_date => $from_date, to_date => $to_date); + + $self->{global} = { detected => 0 }; + $self->{consumptions} = {}; + + my $i = 0; + foreach (@$consumptions) { + next if (defined($self->{option_results}->{filter_region}) && $self->{option_results}->{filter_region} ne '' && + $_->{SubregionName} !~ /$self->{option_results}->{filter_region}/); + next if (defined($self->{option_results}->{filter_service}) && $self->{option_results}->{filter_service} ne '' && + $_->{Service} !~ /$self->{option_results}->{filter_service}/); + next if (defined($self->{option_results}->{filter_category}) && $self->{option_results}->{filter_category} ne '' && + $_->{Category} !~ /$self->{option_results}->{filter_category}/); + next if (defined($self->{option_results}->{filter_title}) && $self->{option_results}->{filter_title} ne '' && + $_->{Title} !~ /$self->{option_results}->{filter_title}/); + + $self->{consumptions}->{$i} = { + title => $_->{Title}, + service => $_->{Service}, + region => $_->{SubregionName}, + metrics => { + title => $_->{Title}, + service => $_->{Service}, + region => $_->{SubregionName}, + value => $_->{Value} + } + }; + $i++; + + $self->{global}->{detected}++; + } +} + +1; + +__END__ + +=head1 MODE + +Check account consumptions. + +=over 8 + +=item B<--filter-title> + +Filter account consumptions by title. + +=item B<--filter-service> + +Filter account consumptions by service. + +=item B<--filter-category> + +Filter account consumptions by category. + +=item B<--filter-region> + +Filter account consumptions by region. + +=item B<--timeframe> + +Set timeframe in days (Default: 1). + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'account-consumptions-detected', 'account-consumption'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/clientgateways.pm b/src/cloud/outscale/mode/clientgateways.pm new file mode 100644 index 000000000..6652e5891 --- /dev/null +++ b/src/cloud/outscale/mode/clientgateways.pm @@ -0,0 +1,198 @@ +# +# Copyright 2023 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 cloud::outscale::mode::clientgateways; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold_ng); + +sub prefix_cg_output { + my ($self, %options) = @_; + + return sprintf( + "client gateway '%s' ", + $options{instance_value}->{cgName} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'number of client gateways '; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { name => 'cgs', type => 1, cb_prefix_output => 'prefix_cg_output', message_multiple => 'All client gateways are ok' } + ]; + + $self->{maps_counters}->{global} = [ + { label => 'cgs-detected', display_ok => 0, nlabel => 'client_gateways.detected.count', set => { + key_values => [ { name => 'detected' } ], + output_template => 'detected: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'cgs-available', display_ok => 0, nlabel => 'client_gateways.available.count', set => { + key_values => [ { name => 'available' } ], + output_template => 'available: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'cgs-pending', display_ok => 0, nlabel => 'client_gateways.pending.count', set => { + key_values => [ { name => 'pending' } ], + output_template => 'pending: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'cgs-deleting', display_ok => 0, nlabel => 'client_gateways.deleting.count', set => { + key_values => [ { name => 'deleting' } ], + output_template => 'deleting: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'cgs-deleted', display_ok => 0, nlabel => 'client_gateways.deleted.count', set => { + key_values => [ { name => 'deleted' } ], + output_template => 'deleted: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + } + ]; + + $self->{maps_counters}->{cgs} = [ + { + label => 'cg-status', + type => 2, + set => { + key_values => [ { name => 'state' }, { name => 'cgName' } ], + output_template => 'state: %s', + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold_ng + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-name:s' => { name => 'filter_name' }, + 'cg-tag-name:s' => { name => 'cg_tag_name', default => 'name' } + }); + + return $self; +} + +sub get_cg_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{cg_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $cgs = $options{custom}->read_client_gateways(); + + $self->{global} = { detected => 0, available => 0, pending => 0, deleting => 0, deleted => 0 }; + $self->{cgs} = {}; + + foreach my $cg (@$cgs) { + my $name = $self->get_cg_name(tags => $cg->{Tags}, id => $cg->{ClientGatewayId}); + + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $name !~ /$self->{option_results}->{filter_name}/); + + $self->{cgs}->{$name} = { + cgName => $name, + state => lc($cg->{State}) + }; + + $self->{global}->{ lc($cg->{State}) }++ + if (defined($self->{global}->{ lc($cg->{State}) })); + $self->{global}->{detected}++; + } +} + +1; + +__END__ + +=head1 MODE + +Check client gateways. + +=over 8 + +=item B<--filter-name> + +Filter client gateways by name. + +=item B<--cg-tag-name> + +Client gateway tags to be used for the name (Default: 'name'). + +=item B<--unknown-cg-status> + +Set unknown threshold for status. +Can used special variables like: %{state}, %{cgName} + +=item B<--warning-cg-status> + +Set warning threshold for status. +Can used special variables like: %{state}, %{cgName} + +=item B<--critical-cg-status> + +Set critical threshold for status. +Can used special variables like: %{state}, %{cgName} + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'cgs-detected', 'cgs-available', 'cgs-pending', +'cgs-deleting', 'cgs-deleted'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/internetservices.pm b/src/cloud/outscale/mode/internetservices.pm new file mode 100644 index 000000000..9f2a50e8c --- /dev/null +++ b/src/cloud/outscale/mode/internetservices.pm @@ -0,0 +1,174 @@ +# +# Copyright 2023 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 cloud::outscale::mode::internetservices; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold_ng); + +sub prefix_service_output { + my ($self, %options) = @_; + + return sprintf( + "internet service '%s' ", + $options{instance_value}->{internetServiceName} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'number of internet services '; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { name => 'services', type => 1, cb_prefix_output => 'prefix_service_output', message_multiple => 'All internet services are ok' } + ]; + + $self->{maps_counters}->{global} = []; + foreach ('detected', 'available') { + push @{$self->{maps_counters}->{global}}, { + label => 'internet-services-' . $_, display_ok => 0, nlabel => 'internet_services.' . $_ . '.count', set => { + key_values => [ { name => $_ } ], + output_template => $_ . ': %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }; + } + + $self->{maps_counters}->{services} = [ + { + label => 'internet-service-status', + type => 2, + set => { + key_values => [ { name => 'state' }, { name => 'internetServiceName' } ], + output_template => 'state: %s', + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold_ng + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-id:s' => { name => 'filter_id' }, + 'filter-name:s' => { name => 'filter_name' }, + 'internet-service-tag-name:s' => { name => 'internet_service_tag_name', default => 'name' } + }); + + return $self; +} + +sub get_internet_service_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{internet_service_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $services = $options{custom}->read_internet_services(); + + $self->{global} = { detected => 0, available => 0 }; + $self->{services} = {}; + + foreach (@$services) { + my $name = $self->get_internet_service_name(tags => $_->{Tags}, id => $_->{InternetServiceId}); + + next if (defined($self->{option_results}->{filter_id}) && $self->{option_results}->{filter_id} ne '' && + $_->{InternetServiceId} !~ /$self->{option_results}->{filter_id}/); + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $name !~ /$self->{option_results}->{filter_name}/); + + $self->{services}->{ $_->{InternetServiceId} } = { + internetServiceName => $name, + state => lc($_->{State}) + }; + + $self->{global}->{ lc($_->{State}) }++ + if (defined($self->{global}->{ lc($_->{State}) })); + $self->{global}->{detected}++; + } +} + +1; + +__END__ + +=head1 MODE + +Check internet services. + +=over 8 + +=item B<--filter-id> + +Filter internet services by id. + +=item B<--filter-name> + +Filter internet services by name. + +=item B<--internet-service-tag-name> + +Internet service tag to be used for the name (Default: 'name'). + +=item B<--unknown-internet-service-status> + +Set unknown threshold for status. +Can used special variables like: %{state}, %{internetServiceName} + +=item B<--warning-internet-service-status> + +Set warning threshold for status. +Can used special variables like: %{state}, %{internetServiceName} + +=item B<--critical-internet-service-status> + +Set critical threshold for status. +Can used special variables like: %{state}, %{internetServiceName} + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'internet-services-detected', 'internet-services-available'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/listclientgateways.pm b/src/cloud/outscale/mode/listclientgateways.pm new file mode 100644 index 000000000..7268e2f66 --- /dev/null +++ b/src/cloud/outscale/mode/listclientgateways.pm @@ -0,0 +1,122 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listclientgateways; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'cg-tag-name:s' => { name => 'cg_tag_name', default => 'name' } + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('id', 'name', 'state'); + +sub get_cg_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{cg_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $cgs = $options{custom}->read_client_gateways(); + + my $results = {}; + foreach (@$cgs) { + my $name = $self->get_cg_name(tags => $_->{Tags}, id => $_->{ClientGatewayId}); + + $results->{$name} = { + id => $_->{ClientGatewayId}, + name => $name, + state => lc($_->{State}) + }; + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $instance (sort keys %$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $results->{$instance}->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List client gateways:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach (sort keys %$results) { + $self->{output}->add_disco_entry( + %{$results->{$_}} + ); + } +} +1; + +__END__ + +=head1 MODE + +List client gateways. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/listinternetservices.pm b/src/cloud/outscale/mode/listinternetservices.pm new file mode 100644 index 000000000..5fe9dcf09 --- /dev/null +++ b/src/cloud/outscale/mode/listinternetservices.pm @@ -0,0 +1,122 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listinternetservices; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'internet-service-tag-name:s' => { name => 'internet_service_tag_name', default => 'name' } + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('id', 'name', 'state'); + +sub get_internet_service_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{internet_service_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $services = $options{custom}->read_internet_services(); + + my $results = {}; + foreach (@$services) { + my $name = $self->get_internet_service_name(tags => $_->{Tags}, id => $_->{InternetServiceId}); + + $results->{ $_->{InternetServiceId} } = { + id => $_->{InternetServiceId}, + name => $name, + state => lc($_->{State}) + }; + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $instance (sort keys %$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $results->{$instance}->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List internet services:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach (sort keys %$results) { + $self->{output}->add_disco_entry( + %{$results->{$_}} + ); + } +} +1; + +__END__ + +=head1 MODE + +List internet services. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/listloadbalancers.pm b/src/cloud/outscale/mode/listloadbalancers.pm new file mode 100644 index 000000000..078952452 --- /dev/null +++ b/src/cloud/outscale/mode/listloadbalancers.pm @@ -0,0 +1,107 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listloadbalancers; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => {}); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('name', 'type'); + +sub manage_selection { + my ($self, %options) = @_; + + my $lbs = $options{custom}->load_balancer_read(); + + my $results = {}; + foreach (@$lbs) { + $results->{ $_->{LoadBalancerName} } = { + name => $_->{LoadBalancerName}, + type => $_->{LoadBalancerType} + }; + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $instance (sort keys %$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $results->{$instance}->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List load balancers:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach (sort keys %$results) { + $self->{output}->add_disco_entry( + %{$results->{$_}} + ); + } +} +1; + +__END__ + +=head1 MODE + +List load balancers. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/listnatservices.pm b/src/cloud/outscale/mode/listnatservices.pm new file mode 100644 index 000000000..52aa275d6 --- /dev/null +++ b/src/cloud/outscale/mode/listnatservices.pm @@ -0,0 +1,122 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listnatservices; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'nat-tag-name:s' => { name => 'nat_tag_name', default => 'name' } + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('id', 'name', 'state'); + +sub get_nat_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{nat_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $services = $options{custom}->read_nat_services(); + + my $results = {}; + foreach (@$services) { + my $name = $self->get_nat_name(tags => $_->{Tags}, id => $_->{NatServiceId}); + + $results->{ $_->{NatServiceId} } = { + id => $_->{NatServiceId}, + name => $name, + state => lc($_->{State}) + }; + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $instance (sort keys %$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $results->{$instance}->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List nat services:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach (sort keys %$results) { + $self->{output}->add_disco_entry( + %{$results->{$_}} + ); + } +} +1; + +__END__ + +=head1 MODE + +List nat services. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/listnets.pm b/src/cloud/outscale/mode/listnets.pm new file mode 100644 index 000000000..771faa2a9 --- /dev/null +++ b/src/cloud/outscale/mode/listnets.pm @@ -0,0 +1,122 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listnets; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'net-tag-name:s' => { name => 'net_tag_name', default => 'name' } + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('id', 'name', 'state'); + +sub get_net_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{net_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $nets = $options{custom}->read_nets(); + + my $results = {}; + foreach (@$nets) { + my $name = $self->get_net_name(tags => $_->{Tags}, id => $_->{NetId}); + + $results->{$name} = { + id => $_->{NetId}, + name => $name, + state => lc($_->{State}) + }; + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $instance (sort keys %$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $results->{$instance}->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List nets:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach (sort keys %$results) { + $self->{output}->add_disco_entry( + %{$results->{$_}} + ); + } +} +1; + +__END__ + +=head1 MODE + +List nets. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/listquotas.pm b/src/cloud/outscale/mode/listquotas.pm new file mode 100644 index 000000000..77f5d4338 --- /dev/null +++ b/src/cloud/outscale/mode/listquotas.pm @@ -0,0 +1,107 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listquotas; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => {}); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('name', 'type'); + +sub manage_selection { + my ($self, %options) = @_; + + my $quotas = $options{custom}->read_quotas(); + + my $results = []; + foreach my $quota (@$quotas) { + foreach (@{$quota->{Quotas}}) { + push @$results, { + name => $_->{Name}, + type => $quota->{QuotaType} + }; + } + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $entry (@$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $entry->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List quotas:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $entry (@$results) { + $self->{output}->add_disco_entry(%$entry); + } +} +1; + +__END__ + +=head1 MODE + +List quotas. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/listroutetables.pm b/src/cloud/outscale/mode/listroutetables.pm new file mode 100644 index 000000000..155513d80 --- /dev/null +++ b/src/cloud/outscale/mode/listroutetables.pm @@ -0,0 +1,106 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listroutetables; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => {}); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('id'); + +sub manage_selection { + my ($self, %options) = @_; + + my $tables = $options{custom}->read_route_tables(); + + my $results = {}; + foreach (@$tables) { + $results->{ $_->{RouteTableId} } = { + id => $_->{RouteTableId} + }; + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $instance (sort keys %$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $results->{$instance}->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List route tables:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach (sort keys %$results) { + $self->{output}->add_disco_entry( + %{$results->{$_}} + ); + } +} +1; + +__END__ + +=head1 MODE + +List route tables. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/listsubnets.pm b/src/cloud/outscale/mode/listsubnets.pm new file mode 100644 index 000000000..433a576e3 --- /dev/null +++ b/src/cloud/outscale/mode/listsubnets.pm @@ -0,0 +1,122 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listsubnets; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'subnet-tag-name:s' => { name => 'subnet_tag_name', default => 'name' } + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('id', 'name', 'state'); + +sub get_subnet_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{subnet_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $subnets = $options{custom}->read_subnets(); + + my $results = {}; + foreach (@$subnets) { + my $name = $self->get_subnet_name(tags => $_->{Tags}, id => $_->{SubnetId}); + + $results->{$name} = { + id => $_->{SubnetId}, + name => $name, + state => lc($_->{State}) + }; + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $instance (sort keys %$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $results->{$instance}->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List subnets:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach (sort keys %$results) { + $self->{output}->add_disco_entry( + %{$results->{$_}} + ); + } +} +1; + +__END__ + +=head1 MODE + +List subnets. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/listvirtualgateways.pm b/src/cloud/outscale/mode/listvirtualgateways.pm new file mode 100644 index 000000000..2230c1563 --- /dev/null +++ b/src/cloud/outscale/mode/listvirtualgateways.pm @@ -0,0 +1,122 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listvirtualgateways; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'vg-tag-name:s' => { name => 'vg_tag_name', default => 'name' } + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('id', 'name', 'state'); + +sub get_vg_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{vg_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $vgs = $options{custom}->read_virtual_gateways(); + + my $results = {}; + foreach (@$vgs) { + my $name = $self->get_vg_name(tags => $_->{Tags}, id => $_->{VirtualGatewayId}); + + $results->{$name} = { + id => $_->{VirtualGatewayId}, + name => $name, + state => lc($_->{State}) + }; + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $instance (sort keys %$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $results->{$instance}->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List virtual gateways:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach (sort keys %$results) { + $self->{output}->add_disco_entry( + %{$results->{$_}} + ); + } +} +1; + +__END__ + +=head1 MODE + +List virtual gateways. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/listvms.pm b/src/cloud/outscale/mode/listvms.pm new file mode 100644 index 000000000..6888c61fb --- /dev/null +++ b/src/cloud/outscale/mode/listvms.pm @@ -0,0 +1,122 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listvms; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'vm-tag-name:s' => { name => 'vm_tag_name', default => 'name' } + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('id', 'name', 'state'); + +sub get_vm_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{vm_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $vms = $options{custom}->read_vms(); + + my $results = {}; + foreach (@$vms) { + my $name = $self->get_vm_name(tags => $_->{Tags}, id => $_->{VmId}); + + $results->{ $_->{VmId} } = { + id => $_->{VmId}, + name => $name, + state => lc($_->{State}) + }; + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $instance (sort keys %$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $results->{$instance}->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List virtual machines:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach (sort keys %$results) { + $self->{output}->add_disco_entry( + %{$results->{$_}} + ); + } +} +1; + +__END__ + +=head1 MODE + +List virtual machines. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/listvolumes.pm b/src/cloud/outscale/mode/listvolumes.pm new file mode 100644 index 000000000..68fb7fd76 --- /dev/null +++ b/src/cloud/outscale/mode/listvolumes.pm @@ -0,0 +1,109 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listvolumes; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => {}); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('id', 'region', 'type', 'state'); + +sub manage_selection { + my ($self, %options) = @_; + + my $volumes = $options{custom}->read_volumes(); + + my $results = {}; + foreach (@$volumes) { + $results->{ $_->{VolumeId} } = { + id => $_->{VolumeId}, + region => $_->{SubregionName}, + type => $_->{VolumeType}, + state => lc($_->{State}) + }; + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $instance (sort keys %$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $results->{$instance}->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List volumes:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach (sort keys %$results) { + $self->{output}->add_disco_entry( + %{$results->{$_}} + ); + } +} +1; + +__END__ + +=head1 MODE + +List volumes. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/listvpnconnections.pm b/src/cloud/outscale/mode/listvpnconnections.pm new file mode 100644 index 000000000..3e2b51ab2 --- /dev/null +++ b/src/cloud/outscale/mode/listvpnconnections.pm @@ -0,0 +1,122 @@ +# +# Copyright 2023 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 cloud::outscale::mode::listvpnconnections; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'vpn-tag-name:s' => { name => 'vpn_tag_name', default => 'name' } + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +my @labels = ('id', 'name', 'state'); + +sub get_vpn_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{vpn_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $connections = $options{custom}->read_vpn_connections(); + + my $results = {}; + foreach (@$connections) { + my $name = $self->get_vpn_name(tags => $_->{Tags}, id => $_->{VpnConnectionId}); + + $results->{$name} = { + id => $_->{VpnConnectionId}, + name => $name, + state => lc($_->{State}) + }; + } + + return $results; +} + +sub run { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach my $instance (sort keys %$results) { + $self->{output}->output_add(long_msg => + join('', map("[$_: " . $results->{$instance}->{$_} . ']', @labels)) + ); + } + + $self->{output}->output_add( + severity => 'OK', + short_msg => 'List vpn connections:' + ); + $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); + $self->{output}->exit(); +} + +sub disco_format { + my ($self, %options) = @_; + + $self->{output}->add_disco_format(elements => [@labels]); +} + +sub disco_show { + my ($self, %options) = @_; + + my $results = $self->manage_selection(custom => $options{custom}); + foreach (sort keys %$results) { + $self->{output}->add_disco_entry( + %{$results->{$_}} + ); + } +} +1; + +__END__ + +=head1 MODE + +List vpn connections. + +=over 8 + +=back + +=cut diff --git a/src/cloud/outscale/mode/loadbalancers.pm b/src/cloud/outscale/mode/loadbalancers.pm new file mode 100644 index 000000000..2db9d662d --- /dev/null +++ b/src/cloud/outscale/mode/loadbalancers.pm @@ -0,0 +1,225 @@ +# +# Copyright 2023 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 cloud::outscale::mode::loadbalancers; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold_ng); + +sub lb_long_output { + my ($self, %options) = @_; + + return sprintf( + "checking load balancer '%s'", + $options{instance_value}->{name} + ); +} + +sub prefix_lb_output { + my ($self, %options) = @_; + + return sprintf( + "load balancer '%s' ", + $options{instance_value}->{name} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'Number of load balancers '; +} + +sub prefix_vm_metrics_output { + my ($self, %options) = @_; + + return 'number of virtual machines '; +} + +sub prefix_vm_output { + my ($self, %options) = @_; + + return "virtual machine '" . $options{instance_value}->{vmName} . "' "; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { + name => 'lbs', type => 3, cb_prefix_output => 'prefix_lb_output', cb_long_output => 'lb_long_output', indent_long_output => ' ', message_multiple => 'All load balancers are ok', + group => [ + { name => 'vm_metrics', type => 0, cb_prefix_output => 'prefix_vm_metrics_output' }, + { name => 'vms', display_long => 1, cb_prefix_output => 'prefix_vm_output', message_multiple => 'all virtual machines are ok', type => 1, skipped_code => { -10 => 1 } } + ] + } + ]; + + $self->{maps_counters}->{global} = [ + { label => 'load-balancers-detected', display_ok => 0, nlabel => 'load_balancers.detected.count', set => { + key_values => [ { name => 'detected' } ], + output_template => 'detected: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + } + ]; + + $self->{maps_counters}->{vm_metrics} = [ + { label => 'load-balancer-vms-up', nlabel => 'load_balancer.virtual_machines.up.count', set => { + key_values => [ { name => 'up' } ], + output_template => 'up: %s', + perfdatas => [ + { template => '%s', min => 0, label_extra_instance => 1 } + ] + } + }, + { label => 'load-balancer-vms-down', nlabel => 'load_balancer.virtual_machines.down.count', set => { + key_values => [ { name => 'down' } ], + output_template => 'down: %s', + perfdatas => [ + { template => '%s', min => 0, label_extra_instance => 1 } + ] + } + } + ]; + + $self->{maps_counters}->{vms} = [ + { + label => 'vm-status', + type => 2, + set => { + key_values => [ { name => 'state' }, { name => 'vmName' } ], + output_template => 'state: %s', + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold_ng + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-name:s' => { name => 'filter_name' }, + 'vm-tag-name:s' => { name => 'vm_tag_name', default => 'name' } + }); + + return $self; +} + +sub get_vm_name { + my ($self, %options) = @_; + + foreach my $vm (@{$options{vms}}) { + next if ($vm->{VmId} ne $options{vm_id}); + + foreach my $tag (@{$vm->{Tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{vm_tag_name}$/i); + } + } + + return $options{vm_id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $lbs = $options{custom}->load_balancer_read(); + my $vms = $options{custom}->read_vms(); + + $self->{global} = { detected => 0 }; + $self->{lbs} = {}; + + foreach my $lb (@$lbs) { + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $lb->{LoadBalancerName} !~ /$self->{option_results}->{filter_name}/); + + $self->{global}->{detected}++; + + $self->{lbs}->{ $lb->{LoadBalancerName} } = { + name => $lb->{LoadBalancerName}, + vm_metrics => { up => 0, down => 0 }, + vms => {} + }; + + my $members = $options{custom}->read_vms_health(load_balancer_name => $lb->{LoadBalancerName}); + foreach (@$members) { + my $name = $self->get_vm_name(vms => $vms, vm_id => $_->{VmId}); + + $self->{lbs}->{ $lb->{LoadBalancerName} }->{vms}->{ $_->{VmId} } = { + vmName => $name, + state => lc($_->{State}) + }; + $self->{lbs}->{ $lb->{LoadBalancerName} }->{vm_metrics}->{ lc($_->{State}) }++ + if (defined($self->{lbs}->{ $lb->{LoadBalancerName} }->{vm_metrics}->{ lc($_->{State}) })); + } + } +} + +1; + +__END__ + +=head1 MODE + +Check load balancers. + +=over 8 + +=item B<--filter-name> + +Filter load balancers by name. + +=item B<--vm-tag-name> + +Virtual machine tags to used for the name (Default: 'name'). + +=item B<--unknown-vm-status> + +Set unknown threshold for status. +Can used special variables like: %{state}, %{vmName} + +=item B<--warning-vm-status> + +Set warning threshold for status. +Can used special variables like: %{state}, %{vmName} + +=item B<--critical-vm-status> + +Set critical threshold for status. +Can used special variables like: %{state}, %{vmName} + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'load-balancers-detected', 'load-balancer-vms-up', ''load-balancer-vms-down'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/natservices.pm b/src/cloud/outscale/mode/natservices.pm new file mode 100644 index 000000000..e8b6a8ffe --- /dev/null +++ b/src/cloud/outscale/mode/natservices.pm @@ -0,0 +1,175 @@ +# +# Copyright 2023 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 cloud::outscale::mode::natservices; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold_ng); + +sub prefix_service_output { + my ($self, %options) = @_; + + return sprintf( + "nat service '%s' ", + $options{instance_value}->{natName} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'number of nat services '; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { name => 'services', type => 1, cb_prefix_output => 'prefix_service_output', message_multiple => 'All nat services are ok' } + ]; + + $self->{maps_counters}->{global} = []; + foreach ('detected', 'pending', 'available', 'deleting', 'deleted') { + push @{$self->{maps_counters}->{global}}, { + label => 'nat-services-' . $_, display_ok => 0, nlabel => 'nat_services.' . $_ . '.count', set => { + key_values => [ { name => $_ } ], + output_template => $_ . ': %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }; + } + + $self->{maps_counters}->{services} = [ + { + label => 'nat-service-status', + type => 2, + set => { + key_values => [ { name => 'state' }, { name => 'natName' } ], + output_template => 'state: %s', + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold_ng + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-id:s' => { name => 'filter_id' }, + 'filter-name:s' => { name => 'filter_name' }, + 'nat-tag-name:s' => { name => 'nat_tag_name', default => 'name' } + }); + + return $self; +} + +sub get_nat_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{nat_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $services = $options{custom}->read_nat_services(); + + $self->{global} = { detected => 0, pending => 0, available => 0, deleting => 0, deleted => 0 }; + $self->{services} = {}; + + foreach (@$services) { + my $name = $self->get_nat_name(tags => $_->{Tags}, id => $_->{NatServiceId}); + + next if (defined($self->{option_results}->{filter_id}) && $self->{option_results}->{filter_id} ne '' && + $_->{NatServiceId} !~ /$self->{option_results}->{filter_id}/); + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $name !~ /$self->{option_results}->{filter_name}/); + + $self->{services}->{ $_->{NatServiceId} } = { + natName => $name, + state => lc($_->{State}) + }; + + $self->{global}->{ lc($_->{State}) }++ + if (defined($self->{global}->{ lc($_->{State}) })); + $self->{global}->{detected}++; + } +} + +1; + +__END__ + +=head1 MODE + +Check nat services. + +=over 8 + +=item B<--filter-id> + +Filter nat services by id. + +=item B<--filter-name> + +Filter nat services by name. + +=item B<--nat-tag-name> + +Nat service tag to be used for the name (Default: 'name'). + +=item B<--unknown-nat-service-status> + +Set unknown threshold for status. +Can used special variables like: %{state}, %{natName} + +=item B<--warning-nat-service-status> + +Set warning threshold for status. +Can used special variables like: %{state}, %{natName} + +=item B<--critical-nat-service-status> + +Set critical threshold for status. +Can used special variables like: %{state}, %{natName} + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'nat-services-detected', 'nat-services-pending', 'nat-services-available', +'nat-services-deleting', 'nat-services-deleted'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/nets.pm b/src/cloud/outscale/mode/nets.pm new file mode 100644 index 000000000..ec15197d2 --- /dev/null +++ b/src/cloud/outscale/mode/nets.pm @@ -0,0 +1,168 @@ +# +# Copyright 2023 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 cloud::outscale::mode::nets; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold_ng); + +sub prefix_net_output { + my ($self, %options) = @_; + + return sprintf( + "net '%s' ", + $options{instance_value}->{netName} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'number of nets '; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { name => 'nets', type => 1, cb_prefix_output => 'prefix_net_output', message_multiple => 'All nets are ok' } + ]; + + $self->{maps_counters}->{global} = []; + foreach ('detected', 'pending', 'available', 'deleted') { + push @{$self->{maps_counters}->{global}}, { + label => 'nets-' . $_, display_ok => 0, nlabel => 'nets.' . $_ . '.count', set => { + key_values => [ { name => $_ } ], + output_template => $_ . ': %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }; + } + + $self->{maps_counters}->{nets} = [ + { + label => 'net-status', + type => 2, + set => { + key_values => [ { name => 'state' }, { name => 'netName' } ], + output_template => 'state: %s', + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold_ng + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-name:s' => { name => 'filter_name' }, + 'net-tag-name:s' => { name => 'net_tag_name', default => 'name' } + }); + + return $self; +} + +sub get_net_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{net_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $nets = $options{custom}->read_nets(); + + $self->{global} = { detected => 0, available => 0, pending => 0, deleted => 0 }; + $self->{nets} = {}; + + foreach my $net (@$nets) { + my $name = $self->get_net_name(tags => $net->{Tags}, id => $net->{NetId}); + + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $name !~ /$self->{option_results}->{filter_name}/); + + $self->{nets}->{$name} = { + netName => $name, + state => lc($net->{State}) + }; + + $self->{global}->{ lc($net->{State}) }++ + if (defined($self->{global}->{ lc($net->{State}) })); + $self->{global}->{detected}++; + } +} + +1; + +__END__ + +=head1 MODE + +Check nets. + +=over 8 + +=item B<--filter-name> + +Filter nets by name. + +=item B<--net-tag-name> + +Nets tag to be used for the name (Default: 'name'). + +=item B<--unknown-net-status> + +Set unknown threshold for status. +Can used special variables like: %{state}, %{netName} + +=item B<--warning-net-status> + +Set warning threshold for status. +Can used special variables like: %{state}, %{netName} + +=item B<--critical-net-status> + +Set critical threshold for status. +Can used special variables like: %{state}, %{netName} + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'nets-detected', 'nets-available', 'nets-pending', +'nets-deleted'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/quotas.pm b/src/cloud/outscale/mode/quotas.pm new file mode 100644 index 000000000..268c01151 --- /dev/null +++ b/src/cloud/outscale/mode/quotas.pm @@ -0,0 +1,200 @@ +# +# Copyright 2023 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 cloud::outscale::mode::quotas; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; + +sub custom_quota_output { + my ($self, %options) = @_; + + return sprintf( + 'total: %s used: %s (%.2f%%) free: %s (%.2f%%)', + $self->{result_values}->{total}, + $self->{result_values}->{used}, + $self->{result_values}->{prct_used}, + $self->{result_values}->{free}, + $self->{result_values}->{prct_free} + ); +} + +sub prefix_quota_output { + my ($self, %options) = @_; + + return sprintf( + "quota '%s' [type: %s] ", + $options{instance_value}->{name}, + $options{instance_value}->{type} + ); +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'quotas', type => 1, cb_prefix_output => 'prefix_quota_output', message_multiple => 'All quotas are ok' } + ]; + + $self->{maps_counters}->{quotas} = [ + { label => 'quota-usage', nlabel => 'quota.usage.count', set => { + key_values => [ { name => 'used' }, { name => 'free' }, { name => 'prct_used' }, { name => 'prct_free' }, { name => 'total' }, { name => 'name' }, { name => 'type' } ], + closure_custom_output => $self->can('custom_quota_output'), + closure_custom_perfdata => sub { + my ($self, %options) = @_; + + $self->{output}->perfdata_add( + nlabel => $self->{nlabel}, + instances => [$self->{result_values}->{type}, $self->{result_values}->{name}], + value => $self->{result_values}->{used}, + warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-' . $self->{thlabel}), + critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-' . $self->{thlabel}), + min => 0, + max => $self->{result_values}->{total} + ); + } + } + }, + { label => 'quota-usage-free', display_ok => 0, nlabel => 'quota.free.count', set => { + key_values => [ { name => 'free' }, { name => 'used' }, { name => 'prct_used' }, { name => 'prct_free' }, { name => 'total' }, { name => 'name' }, { name => 'type' } ], + closure_custom_output => $self->can('custom_quota_output'), + closure_custom_perfdata => sub { + my ($self, %options) = @_; + + $self->{output}->perfdata_add( + nlabel => $self->{nlabel}, + instances => [$self->{result_values}->{type}, $self->{result_values}->{name}], + value => $self->{result_values}->{free}, + warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-' . $self->{thlabel}), + critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-' . $self->{thlabel}), + min => 0, + max => $self->{result_values}->{total} + ); + } + } + }, + { label => 'quota-usage-prct', display_ok => 0, nlabel => 'quota.usage.percentage', set => { + key_values => [ { name => 'prct_used' }, { name => 'used' }, { name => 'free' }, { name => 'prct_free' }, { name => 'total' }, { name => 'name' }, { name => 'type' } ], + closure_custom_output => $self->can('custom_quota_output'), + closure_custom_perfdata => sub { + my ($self, %options) = @_; + + $self->{output}->perfdata_add( + nlabel => $self->{nlabel}, + unit => '%', + instances => [$self->{result_values}->{type}, $self->{result_values}->{name}], + value => sprintf('%.2f', $self->{result_values}->{prct_used}), + warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-' . $self->{thlabel}), + critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-' . $self->{thlabel}), + min => 0, + max => 100 + ); + } + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-name:s' => { name => 'filter_name' }, + 'filter-type:s' => { name => 'filter_type' } + }); + + return $self; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $quotas = $options{custom}->read_quotas(); + + my $i = 0; + $self->{quotas} = {}; + foreach my $quota (@$quotas) { + next if (defined($self->{option_results}->{filter_type}) && $self->{option_results}->{filter_type} ne '' && + $quota->{QuotaType} !~ /$self->{option_results}->{filter_type}/); + foreach (@{$quota->{Quotas}}) { + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $_->{Name} !~ /$self->{option_results}->{filter_name}/); + next if ($_->{MaxValue} <= 0); + + $self->{quotas}->{$i} = { + name => $_->{Name}, + type => $quota->{QuotaType}, + total => $_->{MaxValue}, + used => $_->{UsedValue}, + free => $_->{MaxValue} - $_->{UsedValue}, + prct_used => $_->{UsedValue} * 100 / $_->{MaxValue}, + prct_free => 100 - ($_->{UsedValue} * 100 / $_->{MaxValue}) + }; + $i++; + } + } +} + +1; + +__END__ + +=head1 MODE + +Check quotas. + +=over 8 + +=item B<--filter-name> + +Filter nets by name. + +=item B<--net-tag-name> + +Nets tag to be used for the name (Default: 'name'). + +=item B<--unknown-net-status> + +Set unknown threshold for status. +Can used special variables like: %{state}, %{netName} + +=item B<--warning-net-status> + +Set warning threshold for status. +Can used special variables like: %{state}, %{netName} + +=item B<--critical-net-status> + +Set critical threshold for status. +Can used special variables like: %{state}, %{netName} + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'nets-detected', 'nets-available', 'nets-pending', +'nets-deleted'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/routetables.pm b/src/cloud/outscale/mode/routetables.pm new file mode 100644 index 000000000..4344ffe80 --- /dev/null +++ b/src/cloud/outscale/mode/routetables.pm @@ -0,0 +1,127 @@ +# +# Copyright 2023 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 cloud::outscale::mode::routetables; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; + +sub prefix_table_output { + my ($self, %options) = @_; + + return sprintf( + "route table '%s' ", + $options{instance} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'number of route tables '; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { name => 'tables', type => 1, cb_prefix_output => 'prefix_table_output', message_multiple => 'All route tables are ok' } + ]; + + $self->{maps_counters}->{global} = [ + { label => 'route-tables-detected', display_ok => 0, nlabel => 'route_tables.detected.count', set => { + key_values => [ { name => 'detected' } ], + output_template => 'detected: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + } + ]; + + $self->{maps_counters}->{tables} = [ + { label => 'route-tables-routes', nlabel => 'route_tables.routes.count', set => { + key_values => [ { name => 'num_routes' } ], + output_template => 'number of routes: %s', + perfdatas => [ + { template => '%s', min => 0, label_extra_instance => 1 } + ] + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-route-table-id:s' => { name => 'filter_route_table_id' } + }); + + return $self; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $tables = $options{custom}->read_route_tables(); + + $self->{global} = { detected => 0 }; + $self->{tables} = {}; + + foreach (@$tables) { + next if (defined($self->{option_results}->{filter_route_table_id}) && $self->{option_results}->{filter_route_table_id} ne '' && + $_->{RouteTableId} !~ /$self->{option_results}->{filter_route_table_id}/); + + $self->{tables}->{ $_->{RouteTableId} } = { + num_routes => scalar(@{$_->{Routes}}), + }; + + $self->{global}->{detected}++; + } +} + +1; + +__END__ + +=head1 MODE + +Check route tables. + +=over 8 + +=item B<--filter-route-table-id> + +Filter route tables by id. + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'route-tables-detected', 'route-tables-routes'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/subnets.pm b/src/cloud/outscale/mode/subnets.pm new file mode 100644 index 000000000..b840b9c01 --- /dev/null +++ b/src/cloud/outscale/mode/subnets.pm @@ -0,0 +1,213 @@ +# +# Copyright 2023 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 cloud::outscale::mode::subnets; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold_ng); + +sub custom_subnet_output { + my ($self, %options) = @_; + + return sprintf( + 'total: %s used: %s (%.2f%%) free: %s (%.2f%%)', + $self->{result_values}->{total}, + $self->{result_values}->{used}, + $self->{result_values}->{prct_used}, + $self->{result_values}->{free}, + $self->{result_values}->{prct_free} + ); +} + +sub subnet_long_output { + my ($self, %options) = @_; + + return sprintf( + "checking subnet '%s'", + $options{instance_value}->{name} + ); +} + +sub prefix_subnet_output { + my ($self, %options) = @_; + + return sprintf( + "subnet '%s' ", + $options{instance_value}->{name} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'number of subnets '; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { + name => 'subnets', type => 3, cb_prefix_output => 'prefix_subnet_output', cb_long_output => 'subnet_long_output', indent_long_output => ' ', message_multiple => 'All subnets are ok', + group => [ + { name => 'status', type => 0 }, + { name => 'metrics', type => 0 } + ] + } + ]; + + $self->{maps_counters}->{global} = []; + foreach ('detected', 'pending', 'available', 'deleted') { + push @{$self->{maps_counters}->{global}}, { + label => 'subnets-' . $_, display_ok => 0, nlabel => 'subnets.' . $_ . '.count', set => { + key_values => [ { name => $_ } ], + output_template => $_ . ': %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }; + } + + $self->{maps_counters}->{status} = [ + { + label => 'subnet-status', + type => 2, + set => { + key_values => [ { name => 'state' }, { name => 'subnetName' } ], + output_template => 'state: %s', + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold_ng + } + } + ]; + + $self->{maps_counters}->{metrics} = [ + { label => 'subnet-addresses-usage-free', nlabel => 'subnet.addresses.free.count', set => { + key_values => [ { name => 'freeAddresses' }, { name => 'subnetName'} ], + output_template => 'number of addresses free: %s', + perfdatas => [ + { template => '%d', min => 0, label_extra_instance => 1, instance_use => 'subnetName' } + ] + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-name:s' => { name => 'filter_name' }, + 'subnet-tag-name:s' => { name => 'subnet_tag_name', default => 'name' } + }); + + return $self; +} + +sub get_subnet_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{subnet_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $subnets = $options{custom}->read_subnets(); + + $self->{global} = { available => 0, pending => 0, deleted => 0 }; + $self->{subnets} = {}; + foreach (@$subnets) { + my $name = $self->get_subnet_name(tags => $_->{Tags}, id => $_->{SubnetId}); + + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $name !~ /$self->{option_results}->{filter_name}/); + + $self->{subnets}->{ $_->{SubnetId} } = { + name => $name, + status => { + subnetName => $name, + state => lc($_->{State}) + }, + metrics => { + subnetName => $name, + freeAddresses => $_->{AvailableIpsCount} + } + }; + + $self->{global}->{ lc($_->{State}) }++ + if (defined($self->{global}->{ lc($_->{State}) })); + $self->{global}->{detected}++; + } +} + +1; + +__END__ + +=head1 MODE + +Check subnets. + +=over 8 + +=item B<--filter-name> + +Filter subnets by name. + +=item B<--subnet-tag-name> + +Subnet tags to be used for the name (Default: 'name'). + +=item B<--unknown-subnet-status> + +Set unknown threshold for status. +Can used special variables like: %{state}, %{subnetName} + +=item B<--warning-subnet-status> + +Set warning threshold for status. +Can used special variables like: %{state}, %{subnetName} + +=item B<--critical-subnet-status> + +Set critical threshold for status. +Can used special variables like: %{state}, %{subnetName} + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'subnets-detected', 'subnets-available', 'subnets-pending', +'subnets-deleted'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/virtualgateways.pm b/src/cloud/outscale/mode/virtualgateways.pm new file mode 100644 index 000000000..bc3c4ad0b --- /dev/null +++ b/src/cloud/outscale/mode/virtualgateways.pm @@ -0,0 +1,198 @@ +# +# Copyright 2023 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 cloud::outscale::mode::virtualgateways; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold_ng); + +sub prefix_vg_output { + my ($self, %options) = @_; + + return sprintf( + "virtual gateway '%s' ", + $options{instance_value}->{vgName} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'number of virtual gateways '; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { name => 'vgs', type => 1, cb_prefix_output => 'prefix_vg_output', message_multiple => 'All virtual gateways are ok' } + ]; + + $self->{maps_counters}->{global} = [ + { label => 'vgs-detected', display_ok => 0, nlabel => 'virtual_gateways.detected.count', set => { + key_values => [ { name => 'detected' } ], + output_template => 'detected: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'vgs-available', display_ok => 0, nlabel => 'virtual_gateways.available.count', set => { + key_values => [ { name => 'available' } ], + output_template => 'available: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'vgs-pending', display_ok => 0, nlabel => 'virtual_gateways.pending.count', set => { + key_values => [ { name => 'pending' } ], + output_template => 'pending: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'vgs-deleting', display_ok => 0, nlabel => 'virtual_gateways.deleting.count', set => { + key_values => [ { name => 'deleting' } ], + output_template => 'deleting: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'vgs-deleted', display_ok => 0, nlabel => 'virtual_gateways.deleted.count', set => { + key_values => [ { name => 'deleted' } ], + output_template => 'deleted: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + } + ]; + + $self->{maps_counters}->{vgs} = [ + { + label => 'vg-status', + type => 2, + set => { + key_values => [ { name => 'state' }, { name => 'vgName' } ], + output_template => 'state: %s', + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold_ng + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-name:s' => { name => 'filter_name' }, + 'vg-tag-name:s' => { name => 'vg_tag_name', default => 'name' } + }); + + return $self; +} + +sub get_vg_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{vg_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $vgs = $options{custom}->read_virtual_gateways(); + + $self->{global} = { detected => 0, available => 0, pending => 0, deleting => 0, deleted => 0 }; + $self->{vgs} = {}; + + foreach my $vg (@$vgs) { + my $name = $self->get_vg_name(tags => $vg->{Tags}, id => $vg->{VirtualGatewayId}); + + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $name !~ /$self->{option_results}->{filter_name}/); + + $self->{vgs}->{$name} = { + vgName => $name, + state => lc($vg->{State}) + }; + + $self->{global}->{ lc($vg->{State}) }++ + if (defined($self->{global}->{ lc($vg->{State}) })); + $self->{global}->{detected}++; + } +} + +1; + +__END__ + +=head1 MODE + +Check virtual gateways. + +=over 8 + +=item B<--filter-name> + +Filter virtual gateways by name. + +=item B<--vg-tag-name> + +Virtual gateway tag to be used for the name (Default: 'name'). + +=item B<--unknown-vg-status> + +Set unknown threshold for status. +Can used special variables like: %{state}, %{vgName} + +=item B<--warning-vg-status> + +Set warning threshold for status. +Can used special variables like: %{state}, %{vgName} + +=item B<--critical-vg-status> + +Set critical threshold for status. +Can used special variables like: %{state}, %{vgName} + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'vgs-detected', 'vgs-available', 'vgs-pending', +'vgs-deleting', 'vgs-deleted'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/vms.pm b/src/cloud/outscale/mode/vms.pm new file mode 100644 index 000000000..cfe8060ca --- /dev/null +++ b/src/cloud/outscale/mode/vms.pm @@ -0,0 +1,175 @@ +# +# Copyright 2023 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 cloud::outscale::mode::vms; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold_ng); + +sub prefix_vm_output { + my ($self, %options) = @_; + + return sprintf( + "virtual machine '%s' ", + $options{instance_value}->{vmName} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'number of virtual machines '; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { name => 'vms', type => 1, cb_prefix_output => 'prefix_vm_output', message_multiple => 'All virtual machines are ok' } + ]; + + $self->{maps_counters}->{global} = []; + foreach ('detected', 'pending', 'running', 'stopping', 'stopped', 'shutting-down', 'terminated', 'quarantine') { + push @{$self->{maps_counters}->{global}}, { + label => 'vms-' . $_, display_ok => 0, nlabel => 'virtual_machines.' . $_ . '.count', set => { + key_values => [ { name => $_ } ], + output_template => $_ . ': %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }; + } + + $self->{maps_counters}->{vms} = [ + { + label => 'vm-status', + type => 2, + set => { + key_values => [ { name => 'state' }, { name => 'vmName' } ], + output_template => 'state: %s', + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold_ng + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-id:s' => { name => 'filter_id' }, + 'filter-name:s' => { name => 'filter_name' }, + 'vm-tag-name:s' => { name => 'vm_tag_name', default => 'name' } + }); + + return $self; +} + +sub get_vm_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{vm_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $vms = $options{custom}->read_vms(); + + $self->{global} = { detected => 0, pending => 0, running => 0, stopping => 0, stopped => 0, 'shutting-down' => 0, terminated => 0, quarantine => 0 }; + $self->{vms} = {}; + + foreach (@$vms) { + my $name = $self->get_vm_name(tags => $_->{Tags}, id => $_->{VmId}); + + next if (defined($self->{option_results}->{filter_id}) && $self->{option_results}->{filter_id} ne '' && + $_->{VmId} !~ /$self->{option_results}->{filter_id}/); + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $name !~ /$self->{option_results}->{filter_name}/); + + $self->{vms}->{ $_->{VmId} } = { + vmName => $name, + state => lc($_->{State}) + }; + + $self->{global}->{ lc($_->{State}) }++ + if (defined($self->{global}->{ lc($_->{State}) })); + $self->{global}->{detected}++; + } +} + +1; + +__END__ + +=head1 MODE + +Check virtual machines. + +=over 8 + +=item B<--filter-id> + +Filter virtual machines by id. + +=item B<--filter-name> + +Filter virtual machines by name. + +=item B<--vm-tag-name> + +Virtual machine tag to be used for the name (Default: 'name'). + +=item B<--unknown-vm-status> + +Set unknown threshold for status. +Can used special variables like: %{state}, %{vmName} + +=item B<--warning-vm-status> + +Set warning threshold for status. +Can used special variables like: %{state}, %{vmName} + +=item B<--critical-vm-status> + +Set critical threshold for status. +Can used special variables like: %{state}, %{vmName} + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'vms-detected', 'vms-pending', 'vms-running', 'vms-stopping', +'vms-stopped', 'vms-shutting-down', 'vms-terminated', 'vms-quarantine'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/volumes.pm b/src/cloud/outscale/mode/volumes.pm new file mode 100644 index 000000000..b32e86e54 --- /dev/null +++ b/src/cloud/outscale/mode/volumes.pm @@ -0,0 +1,218 @@ +# +# Copyright 2023 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 cloud::outscale::mode::volumes; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold_ng); + +sub volume_long_output { + my ($self, %options) = @_; + + return sprintf( + "checking volume '%s'", + $options{instance_value}->{id} + ); +} + +sub prefix_volume_output { + my ($self, %options) = @_; + + return sprintf( + "volume '%s' ", + $options{instance_value}->{id} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'number of volumes '; +} + +sub prefix_vm_output { + my ($self, %options) = @_; + + return "virtual machine '" . $options{instance_value}->{vmName} . "' "; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { + name => 'volumes', type => 3, cb_prefix_output => 'prefix_volume_output', cb_long_output => 'volume_long_output', indent_long_output => ' ', message_multiple => 'All volumes are ok', + group => [ + { name => 'status', type => 0 }, + { name => 'vms', display_long => 1, cb_prefix_output => 'prefix_vm_output', message_multiple => 'all virtual machines are ok', type => 1, skipped_code => { -10 => 1 } } + ] + } + ]; + + $self->{maps_counters}->{global} = []; + foreach ('detected', 'creating', 'available', 'in-use', 'updating', 'deleting', 'error') { + push @{$self->{maps_counters}->{global}}, { + label => 'volumes-' . $_, display_ok => 0, nlabel => 'volumes.' . $_ . '.count', set => { + key_values => [ { name => $_ } ], + output_template => $_ . ': %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }; + } + + $self->{maps_counters}->{status} = [ + { + label => 'volume-status', + type => 2, + set => { + key_values => [ { name => 'state' }, { name => 'volumeId' } ], + output_template => 'state: %s', + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold_ng + } + } + ]; + + $self->{maps_counters}->{vms} = [ + { + label => 'vm-status', + type => 2, + set => { + key_values => [ { name => 'state' }, { name => 'vmName' } ], + output_template => 'volume state: %s', + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold_ng + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-id:s' => { name => 'filter_id' }, + 'vm-tag-name:s' => { name => 'vm_tag_name', default => 'name' } + }); + + return $self; +} + +sub get_vm_name { + my ($self, %options) = @_; + + foreach my $vm (@{$options{vms}}) { + next if ($vm->{VmId} ne $options{vm_id}); + + foreach my $tag (@{$vm->{Tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{vm_tag_name}$/i); + } + } + + return $options{vm_id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $volumes = $options{custom}->read_volumes(); + my $vms = $options{custom}->read_vms(); + + $self->{global} = { detected => 0, creating => 0, available => 0, 'in-use' => 0, updating => 0, deleting => 0, error => 0 }; + $self->{volumes} = {}; + + foreach my $volume (@$volumes) { + next if (defined($self->{option_results}->{filter_id}) && $self->{option_results}->{filter_id} ne '' && + $volume->{VolumeId} !~ /$self->{option_results}->{filter_id}/); + + $self->{volumes}->{ $volume->{VolumeId} } = { + id => $volume->{VolumeId}, + status => { + volumeId => $volume->{VolumeId}, + state => lc($volume->{State}) + }, + vms => {} + }; + + $self->{global}->{ lc($volume->{State}) }++ + if (defined($self->{global}->{ lc($volume->{State}) })); + $self->{global}->{detected}++; + + foreach (@{$volume->{LinkedVolumes}}) { + my $name = $self->get_vm_name(vms => $vms, vm_id => $_->{VmId}); + + $self->{volumes}->{ $volume->{VolumeId} }->{vms}->{ $_->{VmId} } = { + vmName => $name, + state => lc($_->{State}) + }; + } + } +} + +1; + +__END__ + +=head1 MODE + +Check volumes. + +=over 8 + +=item B<--filter-id> + +Filter volumes by id. + +=item B<--vm-tag-name> + +Virtual machine tags to used for the name (Default: 'name'). + +=item B<--unknown-volume-status> + +Set unknown threshold for status. +Can used special variables like: %{state}, %{volumeId} + +=item B<--warning-volume-status> + +Set warning threshold for status. +Can used special variables like: %{state}, %{volumeId} + +=item B<--critical-volume-status> + +Set critical threshold for status. +Can used special variables like: %{state}, %{volumeId} + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'volumes-detected', 'volumes-creating', 'volumes-available', +'volumes-in-use', 'volumes-updating', 'volumes-deleting', 'volumes-error'. + +=back + +=cut diff --git a/src/cloud/outscale/mode/vpnconnections.pm b/src/cloud/outscale/mode/vpnconnections.pm new file mode 100644 index 000000000..a2d822dc7 --- /dev/null +++ b/src/cloud/outscale/mode/vpnconnections.pm @@ -0,0 +1,215 @@ +# +# Copyright 2023 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 cloud::outscale::mode::vpnconnections; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold_ng); + +sub vpn_long_output { + my ($self, %options) = @_; + + return sprintf( + "checking vpn connection '%s'", + $options{instance_value}->{name} + ); +} + +sub prefix_vpn_output { + my ($self, %options) = @_; + + return sprintf( + "vpn connection '%s' ", + $options{instance_value}->{name} + ); +} + +sub prefix_global_output { + my ($self, %options) = @_; + + return 'number of vpn connections '; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_global_output' }, + { + name => 'connections', type => 3, cb_prefix_output => 'prefix_vpn_output', cb_long_output => 'vpn_long_output', indent_long_output => ' ', message_multiple => 'All vpn connections are ok', + group => [ + { name => 'status', type => 0 } + ] + } + ]; + + $self->{maps_counters}->{global} = [ + { label => 'vpn-connections-detected', display_ok => 0, nlabel => 'vpn_connections.detected.count', set => { + key_values => [ { name => 'detected' } ], + output_template => 'detected: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'vpn-connections-available', display_ok => 0, nlabel => 'vpn_connections.available.count', set => { + key_values => [ { name => 'available' } ], + output_template => 'available: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'vpn-connections-pending', display_ok => 0, nlabel => 'vpn_connections.pending.count', set => { + key_values => [ { name => 'pending' } ], + output_template => 'pending: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'vpn-connections-deleting', display_ok => 0, nlabel => 'vpn_connections.deleting.count', set => { + key_values => [ { name => 'deleting' } ], + output_template => 'deleting: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + }, + { label => 'vpn-connections-deleted', display_ok => 0, nlabel => 'vpn_connections.deleted.count', set => { + key_values => [ { name => 'deleted' } ], + output_template => 'deleted: %s', + perfdatas => [ + { template => '%s', min => 0 } + ] + } + } + ]; + + $self->{maps_counters}->{status} = [ + { + label => 'vpn-connection-status', + type => 2, + set => { + key_values => [ { name => 'state' }, { name => 'vpnName' } ], + output_template => 'state: %s', + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold_ng + } + } + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => { + 'filter-name:s' => { name => 'filter_name' }, + 'vpn-tag-name:s' => { name => 'vpn_tag_name', default => 'name' } + }); + + return $self; +} + +sub get_vpn_name { + my ($self, %options) = @_; + + foreach my $tag (@{$options{tags}}) { + return $tag->{Value} if ($tag->{Key} =~ /^$self->{option_results}->{vpn_tag_name}$/i); + } + + return $options{id}; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $connections = $options{custom}->read_vpn_connections(); + + $self->{global} = { detected => 0, available => 0, pending => 0, deleting => 0, deleted => 0 }; + $self->{connections} = {}; + + foreach my $connection (@$connections) { + my $name = $self->get_vpn_name(tags => $connection->{Tags}, id => $connection->{VpnConnectionId}); + + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $name !~ /$self->{option_results}->{filter_name}/); + + $self->{connections}->{$name} = { + name => $name, + status => { + vpnName => $name, + state => lc($connection->{State}) + } + }; + + $self->{global}->{ lc($connection->{State}) }++ + if (defined($self->{global}->{ lc($connection->{State}) })); + $self->{global}->{detected}++; + } +} + +1; + +__END__ + +=head1 MODE + +Check vpn connections. + +=over 8 + +=item B<--filter-name> + +Filter virtual connections by name. + +=item B<--vpn-tag-name> + +Vpn connection tag to be used for the name (Default: 'name'). + +=item B<--unknown-vpn-connection-status> + +Set unknown threshold for status. +Can used special variables like: %{state}, %{vpnName} + +=item B<--warning-vpn-connection-status> + +Set warning threshold for status. +Can used special variables like: %{state}, %{vpnName} + +=item B<--critical-vpn-connection-status> + +Set critical threshold for status. +Can used special variables like: %{state}, %{vpnName} + +=item B<--warning-*> B<--critical-*> + +Thresholds. +Can be: 'vpn-connections-detected', 'vpn-connections-available', 'vpn-connections-pending', +'vpn-connections-deleting', 'vpn-connections-deleted'. + +=back + +=cut diff --git a/src/cloud/outscale/plugin.pm b/src/cloud/outscale/plugin.pm new file mode 100644 index 000000000..879164dc2 --- /dev/null +++ b/src/cloud/outscale/plugin.pm @@ -0,0 +1,73 @@ +# +# Copyright 2023 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 cloud::outscale::plugin; + +use strict; +use warnings; +use base qw(centreon::plugins::script_custom); + +sub new { + my ( $class, %options ) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $self->{modes} = { + 'account-consumptions' => 'cloud::outscale::mode::accountconsumptions', + 'client-gateways' => 'cloud::outscale::mode::clientgateways', + 'internet-services' => 'cloud::outscale::mode::internetservices', + 'list-client-gateways' => 'cloud::outscale::mode::listclientgateways', + 'list-internet-services' => 'cloud::outscale::mode::listinternetservices', + 'list-load-balancers' => 'cloud::outscale::mode::listloadbalancers', + 'list-nat-services' => 'cloud::outscale::mode::listnatservices', + 'list-nets' => 'cloud::outscale::mode::listnets', + 'list-quotas' => 'cloud::outscale::mode::listquotas', + 'list-route-tables' => 'cloud::outscale::mode::listroutetables', + 'list-subnets' => 'cloud::outscale::mode::listsubnets', + 'list-virtual-gateways' => 'cloud::outscale::mode::listvirtualgateways', + 'list-volumes' => 'cloud::outscale::mode::listvolumes', + 'list-vms' => 'cloud::outscale::mode::listvms', + 'list-vpn-connections' => 'cloud::outscale::mode::listvpnconnections', + 'load-balancers' => 'cloud::outscale::mode::loadbalancers', + 'nat-services' => 'cloud::outscale::mode::natservices', + 'nets' => 'cloud::outscale::mode::nets', + 'quotas' => 'cloud::outscale::mode::quotas', + 'route-tables' => 'cloud::outscale::mode::routetables', + 'subnets' => 'cloud::outscale::mode::subnets', + 'virtual-gateways' => 'cloud::outscale::mode::virtualgateways', + 'volumes' => 'cloud::outscale::mode::volumes', + 'vms' => 'cloud::outscale::mode::vms', + 'vpn-connections' => 'cloud::outscale::mode::vpnconnections' + }; + + $self->{custom_modes}->{http} = 'cloud::outscale::custom::http'; + $self->{custom_modes}->{osccli} = 'cloud::outscale::custom::osccli'; + return $self; +} + +1; + +__END__ + +=head1 PLUGIN DESCRIPTION + +Check Outscale. + +=cut