diff --git a/network/freebox/restapi/custom/api.pm b/network/freebox/restapi/custom/api.pm index 13e31220c..b52bc4a6c 100644 --- a/network/freebox/restapi/custom/api.pm +++ b/network/freebox/restapi/custom/api.pm @@ -49,7 +49,7 @@ sub new { "freebox-api-version:s@" => { name => 'freebox_api_version', }, "proxyurl:s@" => { name => 'proxyurl' }, "timeout:s@" => { name => 'timeout' }, - "precision:s@" => { name => 'precision' }, + "resolution:s@" => { name => 'resolution' }, }); } $options{options}->add_help(package => __PACKAGE__, sections => 'REST API OPTIONS', once => 1); @@ -208,7 +208,40 @@ sub get_data { sub get_performance { my ($self, %options) = @_; + if (!defined($self->{session_token})) { + $self->get_session(); + } + my $json_request = { db => $options{db}, date_start => time() - $self->{resolution}, precision => 100 }; + my $encoded; + eval { + $encoded = encode_json($json_request); + }; + if ($@) { + $self->{output}->add_option_msg(short_msg => "Cannot encode json request"); + $self->{output}->option_exit(); + } + + $self->settings(); + my $content = $self->{http}->request(url_path => '/api/' . $self->{freebox_api_version} . '/' . $options{path}, + method => 'POST', query_form_post => $encoded, + critical_status => '', warning_status => ''); + my $decoded = $self->manage_response(content => $content); + my ($datas, $total) = ({}, 0); + foreach my $data (@{$decoded->{result}->{datas}}) { + foreach my $label (keys %$data) { + next if ($label eq 'time'); + $datas->{label} = 0 if (!defined($datas->{$label})); + $datas->{label} += $datas->{$label}; + } + $total++; + } + + foreach (keys %$datas) { + $datas->{$_} /= $total; + } + + return $datas; } sub DESTROY { @@ -259,7 +292,7 @@ Proxy URL if any. Set HTTP timeout in seconds (Default: '10'). -=item B<--precision> +=item B<--resolution> Selected data performance resolution in seconds (Default: '300'). diff --git a/network/freebox/restapi/mode/dslusage.pm b/network/freebox/restapi/mode/dslusage.pm new file mode 100644 index 000000000..cc804e111 --- /dev/null +++ b/network/freebox/restapi/mode/dslusage.pm @@ -0,0 +1,128 @@ +# +# Copyright 2017 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 network::freebox::restapi::mode::dslusage; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0 }, + ]; + + $self->{maps_counters}->{global} = [ + { label => 'rate-up', set => { + key_values => [ { name => 'rate_up' } ], + output_template => 'Dsl available upload bandwidth : %.2f %s/s', + output_change_bytes => 2, + perfdatas => [ + { label => 'rate_up', value => 'rate_up_absolute', template => '%.2f', + unit => 'b/s', min => 0 }, + ], + } + }, + { label => 'rate-down', set => { + key_values => [ { name => 'rate_down' } ], + output_template => 'Dsl available download bandwidth : %.2f %s/s', + output_change_bytes => 2, + perfdatas => [ + { label => 'rate_down', value => 'rate_down_absolute', template => '%.2f', + unit => 'b/s', min => 0 }, + ], + } + }, + { label => 'snr-up', set => { + key_values => [ { name => 'snr_up' } ], + output_template => 'Dsl upload signal/noise ratio : %.2f dB', + output_change_bytes => 2, + perfdatas => [ + { label => 'snr_up', value => 'snr_up_absolute', template => '%.2f', + unit => 'dB' }, + ], + } + }, + { label => 'snr-down', set => { + key_values => [ { name => 'snr_down' } ], + output_template => 'Dsl download signal/noise ratio : %.2f dB', + output_change_bytes => 2, + perfdatas => [ + { label => 'snr_down', value => 'snr_down_absolute', template => '%.2f', + unit => 'dB' }, + ], + } + }, + ]; +} + +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 => + { + }); + + return $self; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $result = $options{custom}->get_performance(db => 'dsl', path => 'rrd/'); + $result->{snr_up} *= 10 if (defined($result->{snr_up})); + $result->{snr_down} *= 10 if (defined($result->{snr_down})); + $self->{global} = { %{$result} }; +} + +1; + +__END__ + +=head1 MODE + +Check dsl usage. + +=over 8 + +=item B<--filter-counters> + +Only display some counters (regexp can be used). +Example: --filter-counters='^rate-up$' + +=item B<--warning-*> + +Threshold warning. +Can be: 'rate-up', 'rate-down', 'snr-up', 'snr-down'. + +=item B<--critical-*> + +Threshold critical. +Can be: 'rate-up', 'rate-down', 'snr-up', 'snr-down'. + +=back + +=cut diff --git a/network/freebox/restapi/mode/netusage.pm b/network/freebox/restapi/mode/netusage.pm new file mode 100644 index 000000000..3a2ce7113 --- /dev/null +++ b/network/freebox/restapi/mode/netusage.pm @@ -0,0 +1,146 @@ +# +# Copyright 2017 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 network::freebox::restapi::mode::netusage; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0 }, + ]; + + $self->{maps_counters}->{global} = [ + { label => 'bw-up', set => { + key_values => [ { name => 'bw_up' } ], + output_template => 'Upload available bandwidth : %.2f %s/s', + output_change_bytes => 2, + perfdatas => [ + { label => 'bw_up', value => 'bw_up_absolute', template => '%.2f', + unit => 'b/s', min => 0 }, + ], + } + }, + { label => 'bw-down', set => { + key_values => [ { name => 'bw_down' } ], + output_template => 'Download available bandwidth : %.2f %s/s', + output_change_bytes => 2, + perfdatas => [ + { label => 'bw_down', value => 'bw_down_absolute', template => '%.2f', + unit => 'b/s', min => 0 }, + ], + } + }, + { label => 'rate-up', set => { + key_values => [ { name => 'rate_up' } ], + output_template => 'Upload rate : %.2f %s/s', + output_change_bytes => 2, + perfdatas => [ + { label => 'rate_up', value => 'rate_up_absolute', template => '%.2f', + unit => 'b/s', min => 0 }, + ], + } + }, + { label => 'rate-down', set => { + key_values => [ { name => 'rate_down' } ], + output_template => 'Download rate : %.2f %s/s', + output_change_bytes => 2, + perfdatas => [ + { label => 'rate_down', value => 'rate_down_absolute', template => '%.2f', + unit => 'b/s', min => 0 }, + ], + } + }, + { label => 'vpn-rate-up', set => { + key_values => [ { name => 'vpn_rate_up' } ], + output_template => 'Vpn client upload rate : %.2f %s/s', + output_change_bytes => 2, + perfdatas => [ + { label => 'vpn_rate_up', value => 'vpn_rate_up_absolute', template => '%.2f', + unit => 'b/s', min => 0 }, + ], + } + }, + { label => 'vpn-rate-down', set => { + key_values => [ { name => 'vpn_rate_down' } ], + output_template => 'Vpn client download rate : %.2f %s/s', + output_change_bytes => 2, + perfdatas => [ + { label => 'vpn_rate_down', value => 'vpn_rate_down_absolute', template => '%.2f', + unit => 'b/s', min => 0 }, + ], + } + }, + ]; +} + +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 => + { + }); + + return $self; +} + +sub manage_selection { + my ($self, %options) = @_; + + my $result = $options{custom}->get_performance(db => 'net', path => 'rrd/'); + $self->{global} = { %{$result} }; +} + +1; + +__END__ + +=head1 MODE + +Check network usage. + +=over 8 + +=item B<--filter-counters> + +Only display some counters (regexp can be used). +Example: --filter-counters='^bw-up$' + +=item B<--warning-*> + +Threshold warning. +Can be: 'bw-up', 'bw-down', 'rate-up', 'rate-down', 'vpn-rate-up', 'vpn-rate-down'. + +=item B<--critical-*> + +Threshold critical. +Can be: 'bw-up', 'bw-down', 'rate-up', 'rate-down', 'vpn-rate-up', 'vpn-rate-down'. + +=back + +=cut diff --git a/network/freebox/restapi/plugin.pm b/network/freebox/restapi/plugin.pm index 4f0451268..e88849059 100644 --- a/network/freebox/restapi/plugin.pm +++ b/network/freebox/restapi/plugin.pm @@ -31,8 +31,10 @@ sub new { $self->{version} = '1.0'; %{$self->{modes}} = ( - 'system' => 'network::freebox::restapi::mode::system', - ); + 'dsl-usage' => 'network::freebox::restapi::mode::dslusage', + 'net-usage' => 'network::freebox::restapi::mode::netusage', + 'system' => 'network::freebox::restapi::mode::system', + ); $self->{custom_modes}{api} = 'network::freebox::restapi::custom::api'; return $self;