diff --git a/cloud/azure/custom/api.pm b/cloud/azure/custom/api.pm index 89cd439fb..736537a21 100644 --- a/cloud/azure/custom/api.pm +++ b/cloud/azure/custom/api.pm @@ -506,6 +506,45 @@ sub azure_list_vpn_gateways { return $response->{value}; } +sub azure_list_virtualnetworks_set_url { + my ($self, %options) = @_; + + my $url = $self->{management_endpoint} . "/subscriptions/" . $self->{subscription}; + $url .= "/resourceGroups/" . $options{resource_group} if (defined($options{resource_group}) && $options{resource_group} ne ''); + $url .= "/providers/Microsoft.Network/virtualNetworks?api-version=" . $self->{api_version}; + + return $url; +} + +sub azure_list_virtualnetworks { + my ($self, %options) = @_; + + my $full_url = $self->azure_list_virtualnetworks_set_url(%options); + my $response = $self->request_api(method => 'GET', full_url => $full_url, hostname => ''); + + return $response->{value}; +} + +sub azure_list_vnet_peerings_set_url { + my ($self, %options) = @_; + + my $url = $self->{management_endpoint} . "/subscriptions/" . $self->{subscription}; + $url .= "/resourceGroups/" . $options{resource_group} if (defined($options{resource_group}) && $options{resource_group} ne ''); + $url .= "/providers/Microsoft.Network/virtualNetworks/" . $options{vnet_name} if (defined($options{vnet_name}) && $options{vnet_name} ne ''); + $url .= "/virtualNetworkPeerings?api-version=" . $self->{api_version}; + + return $url; +} + +sub azure_list_vnet_peerings { + my ($self, %options) = @_; + + my $full_url = $self->azure_list_vnet_peerings_set_url(%options); + my $response = $self->request_api(method => 'GET', full_url => $full_url, hostname => ''); + + return $response->{value}; +} + 1; __END__ diff --git a/cloud/azure/custom/azcli.pm b/cloud/azure/custom/azcli.pm index 86d8cb42b..9121fc65e 100644 --- a/cloud/azure/custom/azcli.pm +++ b/cloud/azure/custom/azcli.pm @@ -425,6 +425,47 @@ sub azure_list_vpn_gateways { return $raw_results; } +sub azure_list_virtualnetworks_set_cmd { + my ($self, %options) = @_; + + return if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = "network vnet list --output json"; + $cmd_options .= " --resource-group '$options{resource_group}'" if (defined($options{resource_group}) && $options{resource_group} ne ''); + $cmd_options .= " --subscription '$self->{subscription}'" if (defined($self->{subscription}) && $self->{subscription} ne ''); + + return $cmd_options; +} + +sub azure_list_virtualnetworks { + my ($self, %options) = @_; + + my $cmd_options = $self->azure_list_virtualnetworks_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results; +} + +sub azure_list_vnet_peerings_set_cmd { + my ($self, %options) = @_; + + return if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + + my $cmd_options = "network vnet peering list --resource-group '$options{resource_group}' --vnet-name '$options{vnet_name}' --output json"; + $cmd_options .= " --subscription '$self->{subscription}'" if (defined($self->{subscription}) && $self->{subscription} ne ''); + + return $cmd_options; +} + +sub azure_list_vnet_peerings { + my ($self, %options) = @_; + + my $cmd_options = $self->azure_list_vnet_peerings_set_cmd(%options); + my $raw_results = $self->execute(cmd_options => $cmd_options); + + return $raw_results; +} + 1; __END__ diff --git a/cloud/azure/network/expressroute/mode/listcircuits.pm b/cloud/azure/network/expressroute/mode/listcircuits.pm index 80682e05d..a896fe865 100644 --- a/cloud/azure/network/expressroute/mode/listcircuits.pm +++ b/cloud/azure/network/expressroute/mode/listcircuits.pm @@ -82,7 +82,7 @@ sub run { } $self->{output}->output_add(severity => 'OK', - short_msg => 'List network interfaces:'); + short_msg => 'List ExpressRoute circuits:'); $self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1); $self->{output}->exit(); } diff --git a/cloud/azure/network/virtualnetwork/mode/listvirtualnetworks.pm b/cloud/azure/network/virtualnetwork/mode/listvirtualnetworks.pm new file mode 100644 index 000000000..3b63b732e --- /dev/null +++ b/cloud/azure/network/virtualnetwork/mode/listvirtualnetworks.pm @@ -0,0 +1,146 @@ +# +# Copyright 2019 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::azure::network::virtualnetwork::mode::listvirtualnetworks; + +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; + + $self->{version} = '1.0'; + $options{options}->add_options(arguments => + { + "resource-group:s" => { name => 'resource_group' }, + "location:s" => { name => 'location' }, + "filter-name:s" => { name => 'filter_name' }, + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); +} + +sub manage_selection { + my ($self, %options) = @_; + + $self->{networks} = $options{custom}->azure_list_virtualnetworks( + resource_group => $self->{option_results}->{resource_group} + ); +} + +sub run { + my ($self, %options) = @_; + + $self->manage_selection(%options); + foreach my $network (@{$self->{networks}}) { + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' + && $network->{name} !~ /$self->{option_results}->{filter_name}/); + next if (defined($self->{option_results}->{location}) && $self->{option_results}->{location} ne '' + && $network->{location} !~ /$self->{option_results}->{location}/); + my $resource_group = '-'; + $resource_group = $network->{resourceGroup} if (defined($network->{resourceGroup})); + $resource_group = $1 if ($resource_group eq '-' && defined($network->{id}) && $network->{id} =~ /resourceGroups\/(.*)\/providers/); + + my @tags; + foreach my $tag (keys %{$network->{tags}}) { + push @tags, $tag . ':' . $network->{tags}->{$tag}; + } + + $self->{output}->output_add(long_msg => sprintf("[name = %s][resourcegroup = %s][location = %s][id = %s][address_space = %s][tags = %s]", + $network->{name}, + $resource_group, + $network->{location}, + $network->{id}, + ($network->{addressSpace}->{addressPrefixes}) ? join(',', @{$network->{addressSpace}->{addressPrefixes}}) : join(',', @{$network->{properties}->{addressSpace}->{addressPrefixes}}), + join(',', @tags), + )); + } + + $self->{output}->output_add(severity => 'OK', + short_msg => 'List virtual networks:'); + $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 => ['name', 'resourcegroup', 'location', 'id', 'address_space', 'tags']); +} + +sub disco_show { + my ($self, %options) = @_; + + $self->manage_selection(%options); + foreach my $network (@{$self->{networks}}) { + my $resource_group = '-'; + $resource_group = $network->{resourceGroup} if (defined($network->{resourceGroup})); + $resource_group = $1 if ($resource_group eq '-' && defined($network->{id}) && $network->{id} =~ /resourceGroups\/(.*)\/providers/); + + my @tags; + foreach my $tag (keys %{$network->{tags}}) { + push @tags, $tag . ':' . $network->{tags}->{$tag}; + } + + $self->{output}->add_disco_entry( + name => $network->{name}, + resourcegroup => $resource_group, + location => $network->{location}, + id => $network->{id}, + address_space => ($network->{addressSpace}->{addressPrefixes}) ? join(',', @{$network->{addressSpace}->{addressPrefixes}}) : join(',', @{$network->{properties}->{addressSpace}->{addressPrefixes}}), + tags => join(',', @tags), + ); + } +} + +1; + +__END__ + +=head1 MODE + +List virtual networks. + +=over 8 + +=item B<--resource-group> + +Set resource group. + +=item B<--location> + +Set resource location. + +=item B<--filter-name> + +Filter resource name (Can be a regexp). + +=back + +=cut diff --git a/cloud/azure/network/virtualnetwork/mode/peeringsstatus.pm b/cloud/azure/network/virtualnetwork/mode/peeringsstatus.pm new file mode 100644 index 000000000..29a09e34e --- /dev/null +++ b/cloud/azure/network/virtualnetwork/mode/peeringsstatus.pm @@ -0,0 +1,177 @@ +# +# Copyright 2019 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::azure::network::virtualnetwork::mode::peeringsstatus; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; +use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold); + +sub custom_status_output { + my ($self, %options) = @_; + + my $msg = sprintf("State '%s', Provisioning State '%s' [Peer: %s]", + $self->{result_values}->{peering_state}, + $self->{result_values}->{provisioning_state}, + $self->{result_values}->{peer}); + return $msg; +} + +sub custom_status_calc { + my ($self, %options) = @_; + + $self->{result_values}->{peering_state} = $options{new_datas}->{$self->{instance} . '_peering_state'}; + $self->{result_values}->{provisioning_state} = $options{new_datas}->{$self->{instance} . '_provisioning_state'}; + $self->{result_values}->{peer} = $options{new_datas}->{$self->{instance} . '_peer'}; + $self->{result_values}->{display} = $options{new_datas}->{$self->{instance} . '_display'}; + return 0; +} + +sub prefix_peering_output { + my ($self, %options) = @_; + + return "Peering '" . $options{instance_value}->{display} . "' "; +} + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'peerings', type => 1, cb_prefix_output => 'prefix_peering_output', message_multiple => 'All peerings are ok' }, + ]; + + $self->{maps_counters}->{peerings} = [ + { label => 'status', threshold => 0, set => { + key_values => [ { name => 'peering_state' }, { name => 'provisioning_state' }, { name => 'peer' }, + { name => 'display' } ], + closure_custom_calc => $self->can('custom_status_calc'), + closure_custom_output => $self->can('custom_status_output'), + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&catalog_status_threshold, + } + }, + ]; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $self->{version} = '1.0'; + $options{options}->add_options(arguments => + { + "resource-group:s" => { name => 'resource_group' }, + "vnet-name:s" => { name => 'vnet_name' }, + "filter-name:s" => { name => 'filter_name' }, + "warning-status:s" => { name => 'warning_status', default => '' }, + "critical-status:s" => { name => 'critical_status', default => '%{peering_state} ne "Connected" || %{provisioning_state} ne "Succeeded"' }, + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::check_options(%options); + + if (!defined($self->{option_results}->{resource_group}) || $self->{option_results}->{resource_group} eq '') { + $self->{output}->add_option_msg(short_msg => "Need to specify --resource-group option"); + $self->{output}->option_exit(); + } + if (!defined($self->{option_results}->{vnet_name}) || $self->{option_results}->{vnet_name} eq '') { + $self->{output}->add_option_msg(short_msg => "Need to specify --vnet-name option"); + $self->{output}->option_exit(); + } + + $self->change_macros(macros => ['warning_status', 'critical_status']); +} + +sub manage_selection { + my ($self, %options) = @_; + + $self->{peerings} = {}; + my $peerings = $options{custom}->azure_list_vnet_peerings( + resource_group => $self->{option_results}->{resource_group}, + vnet_name => $self->{option_results}->{vnet_name} + ); + foreach my $peering (@{$peerings}) { + next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' + && $peering->{name} !~ /$self->{option_results}->{filter_name}/); + + my $peer; + $peer = $1 if (defined($peering->{remoteVirtualNetwork}->{id}) && $peering->{remoteVirtualNetwork}->{id} =~ /providers\/Microsoft\.Network\/virtualNetworks\/(.*)$/); + $peer = $1 if (defined($peering->{properties}->{remoteVirtualNetwork}->{id}) && $peering->{properties}->{remoteVirtualNetwork}->{id} =~ /providers\/Microsoft\.Network\/virtualNetworks\/(.*)$/); + + $self->{peerings}->{$peering->{id}} = { + display => $peering->{name}, + peering_state => ($peering->{peeringState}) ? $peering->{peeringState} : $peering->{properties}->{peeringState}, + provisioning_state => ($peering->{provisioningState}) ? $peering->{provisioningState} : $peering->{properties}->{provisioningState}, + peer => $peer, + }; + } + + if (scalar(keys %{$self->{peerings}}) <= 0) { + $self->{output}->add_option_msg(short_msg => "No virtual network peerings found."); + $self->{output}->option_exit(); + } +} + +1; + +__END__ + +=head1 MODE + +Check virtual network peerings status. + +Example: +perl centreon_plugins.pl --plugin=cloud::azure::network::virtualnetwork::plugin --custommode=azcli --mode=peerings-status +--resource-group='MYRESOURCEGROUP' --vnet-name='MyVNetName' --verbose + +=over 8 + +=item B<--resource-group> + +Set resource group (Required). + +=item B<--vnet-name> + +Set virtual network name (Required). + +=item B<--filter-name> + +Filter peering name (Can be a regexp). + +=item B<--warning-status> + +Set warning threshold for status (Default: ''). +Can used special variables like: %{peering_state}, %{provisioning_state}, %{peer}, %{display} + +=item B<--critical-status> + +Set critical threshold for status (Default: '%{peering_state} ne "Connected" || %{provisioning_state} ne "Succeeded"'). +Can used special variables like: %{peering_state}, %{provisioning_state}, %{peer}, %{display} + +=back + +=cut diff --git a/cloud/azure/network/virtualnetwork/plugin.pm b/cloud/azure/network/virtualnetwork/plugin.pm new file mode 100644 index 000000000..89710f641 --- /dev/null +++ b/cloud/azure/network/virtualnetwork/plugin.pm @@ -0,0 +1,62 @@ +# +# Copyright 2019 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::azure::network::virtualnetwork::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->{version} = '0.1'; + %{ $self->{modes} } = ( + 'list-virtual-networks' => 'cloud::azure::network::virtualnetwork::mode::listvirtualnetworks', + 'peerings-status' => 'cloud::azure::network::virtualnetwork::mode::peeringsstatus', + ); + + $self->{custom_modes}{azcli} = 'cloud::azure::custom::azcli'; + $self->{custom_modes}{api} = 'cloud::azure::custom::api'; + return $self; +} + +sub init { + my ($self, %options) = @_; + + $self->{options}->add_options(arguments => + { + 'api-version:s' => { name => 'api_version', default => '2018-01-01' }, + }); + + $self->SUPER::init(%options); +} + +1; + +__END__ + +=head1 PLUGIN DESCRIPTION + +Check Microsoft Azure Virtual Network. + +=cut