diff --git a/apps/lync/2013/mssql/mode/appsharingqoe.pm b/apps/lync/2013/mssql/mode/appsharingqoe.pm new file mode 100644 index 000000000..87e15beea --- /dev/null +++ b/apps/lync/2013/mssql/mode/appsharingqoe.pm @@ -0,0 +1,134 @@ +# +# Copyright 2016 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 apps::lync::2013::mssql::mode::appsharingqoe; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'spoiled_tile_prct_total_avg', type => 0 }, + { name => 'rdp_tile_processing_latency_avg', type => 0 }, + { name => 'relative_one_way_average', type => 0 }, + ]; + + $self->{maps_counters}->{spoiled_tile_prct_total_avg} = [ + { label => 'spoiled-tile-prct-total-avg', set => { + key_values => [ { name => 'value' } ], + output_template => 'SpoiledTilePercentTotal(Avg) : %.2f ms', + perfdatas => [ + { label => 'spoiled_tile_prct_total_avg', value => 'value_absolute', template => '%.2f', + unit => 'ms', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + + $self->{maps_counters}->{rdp_tile_processing_latency_avg} = [ + { label => 'rdp-tile-processing-latency-avg', set => { + key_values => [ { name => 'value' } ], + output_template => 'RDPTileProcessingLatencyAverage : %.2f ms', + perfdatas => [ + { label => 'rdp_tile_processing_latency_avg', value => 'value_absolute', template => '%.2f', + unit => 'ms', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{relative_one_way_average} = [ + { label => 'relative-one-way-average', set => { + key_values => [ { name => 'value' } ], + output_template => 'RelativeOneWayAverage : %.2f ms', + perfdatas => [ + { label => 'relative_one_way_average', value => 'value_absolute', template => '%.2f', + unit => 'ms', min => 0, label_extra_instance => 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) = @_; + # $options{sql} = sqlmode object + $self->{sql} = $options{sql}; + $self->{sql}->connect(); + + $self->{sql}->query(query => q{SELECT avg(SpoiledTilePercentTotal) + ,avg(RDPTileProcessingLatencyAverage) + ,avg(RelativeOneWayAverage) + FROM [QoEMetrics].[dbo].AppSharingStream}); + + my ($spoiled_tile_prct_total_avg, $rdp_tile_processing_latency_avg, $relative_one_way_average) = $self->{sql}->fetchrow_array(); + + $self->{spoiled_tile_prct_total_avg} = { value => $spoiled_tile_prct_total_avg }; + $self->{rdp_tile_processing_latency_avg} = { value => $rdp_tile_processing_latency_avg }; + $self->{relative_one_way_average} = { value => $relative_one_way_average }; + +} + +1; + +__END__ + +=head1 MODE + +Check AppSharing Qoe metrics from SQL Server Lync 2013 Database ([QoEMetrics].[dbo].AppSharingStream) + +MS Recommandations : + +SpoiledTilePercentTotal (Total percentage of the content that did not reach the viewer but was instead discarded and overwritten by fresh content) > 36 +RDPTileProcessingLatencyAverage (Average processing time for remote desktop protocol (RDP) tiles. A higher total equates to a longer delay in the viewing experience) > 400 +RelativeOneWayAverage (Average amount of one-way latency. Relative one-way latency measures the delay between the client and the server) > 1.75 + +=over 8 + +=item B<--filter-counters> + +Only display some counters (regexp can be used). + +=item B<--warning-*> + +Set warning threshold for number of user. Can be : 'spoiled-tile-prct-total-avg', 'rdp-tile-processing-latency-avg', 'relative-one-way-average' + +=item B<--critical-*> + +Set critical threshold for number of user. Can be : 'spoiled-tile-prct-total-avg', 'rdp-tile-processing-latency-avg', 'relative-one-way-average' + +=back + +=cut diff --git a/apps/lync/2013/mssql/mode/audioqoe.pm b/apps/lync/2013/mssql/mode/audioqoe.pm new file mode 100644 index 000000000..2e8f9895b --- /dev/null +++ b/apps/lync/2013/mssql/mode/audioqoe.pm @@ -0,0 +1,172 @@ +# +# Copyright 2016 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 apps::lync::2013::mssql::mode::audioqoe; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'jittermin', type => 0 }, + { name => 'jittermax', type => 0 }, + { name => 'jitteravg', type => 0 }, + { name => 'pcktlossmin', type => 0 }, + { name => 'pcktlossmax', type => 0 }, + { name => 'pcktlossavg', type => 0 }, + ]; + + $self->{maps_counters}->{jittermin} = [ + { label => 'jitter-min', set => { + key_values => [ { name => 'min' } ], + output_template => 'Jitter(Min) : %d ms', + perfdatas => [ + { label => 'jitter_min', value => 'min_absolute', template => '%d', + unit => 'ms', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{jittermax} = [ + { label => 'jitter-max', set => { + key_values => [ { name => 'max' } ], + output_template => 'Jitter(Max) : %d ms', + perfdatas => [ + { label => 'jitter_max', value => 'max_absolute', template => '%d', + unit => 'ms', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{jitteravg} = [ + { label => 'jitter-avg', set => { + key_values => [ { name => 'avg' } ], + output_template => 'Jitter(Avg) : %d ms', + perfdatas => [ + { label => 'jitter_avg', value => 'avg_absolute', template => '%d', + unit => 'ms', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{pcktlossmin} = [ + { label => 'loss-min', set => { + key_values => [ { name => 'min' } ], + output_template => 'Packet-loss(Min) : %.2f%%', + perfdatas => [ + { label => 'pckt_loss_min', value => 'min_absolute', template => '%.2f', + unit => '%', min => 0, max => 100, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{pcktlossmax} = [ + { label => 'loss-max', set => { + key_values => [ { name => 'max' } ], + output_template => 'Packet-loss(Max) : %.2f%%', + perfdatas => [ + { label => 'pckt_loss_max', value => 'max_absolute', template => '%.2f', + unit => '%', min => 0, max => 100 }, + ], + } + }, + ]; + $self->{maps_counters}->{pcktlossavg} = [ + { label => 'loss-avg', set => { + key_values => [ { name => 'avg' } ], + output_template => 'Packet-loss(Avg) : %.2f%%', + perfdatas => [ + { label => 'pckt_loss_avg', value => 'avg_absolute', template => '%.2f', + unit => '%', min => 0, max => 100, label_extra_instance => 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) = @_; + # $options{sql} = sqlmode object + $self->{sql} = $options{sql}; + $self->{sql}->connect(); + + $self->{sql}->query(query => q{select min(cast(JitterInterArrival as bigint)) as JitterMin, + max(cast(JitterInterArrival as bigint)) as JitterMax, + avg(cast(JitterInterArrival as bigint)) as JitterAvg, + min(PacketLossRate) as PacketLossMin, + max(PacketLossRate) as PacketLossMax, + avg(PacketLossRate) as PacketLossRateAvg + from [QoEMetrics].[dbo].AudioStream + } + ); + + my ($jittermin, $jittermax, $jitteravg, $pcktlossmin, $pcktlossmax, $pcktlossavg) = $self->{sql}->fetchrow_array(); + + $self->{jittermin} = { min => $jittermin }; + $self->{jittermax} = { max => $jittermax }; + $self->{jitteravg} = { avg => $jitteravg }; + $self->{pcktlossmin} = { min => $pcktlossmin }; + $self->{pcktlossmax} = { max => $pcktlossmax }; + $self->{pcktlossavg} = { avg => $pcktlossavg }; + +} + +1; + +__END__ + +=head1 MODE + +Check audio metrics QoE from SQL Server Lync Database [QoEMetrics].[dbo].AudioStream + +=over 8 + +=item B<--filter-counters> + +Only display some counters (regexp can be used). + +=item B<--warning-*> + +Set warning threshold for number of user. Can be : 'jitter-min', 'jitter-max', 'jitter-avg', 'loss-min', 'loss-max', 'loss-avg' + +=item B<--critical-*> + +Set critical threshold for number of user. Can be : 'jitter-min', 'jitter-max', 'jitter-avg', 'loss-min', 'loss-max', 'loss-avg' + +=back + +=cut diff --git a/apps/lync/2013/mssql/mode/sessionstypes.pm b/apps/lync/2013/mssql/mode/sessionstypes.pm new file mode 100644 index 000000000..8ad9703d2 --- /dev/null +++ b/apps/lync/2013/mssql/mode/sessionstypes.pm @@ -0,0 +1,181 @@ +# +# Copyright 2016 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 apps::lync::2013::mssql::mode::sessionstypes; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'instant_messaging', type => 0 }, + { name => 'file_transfer', type => 0 }, + { name => 'remote_assistance', type => 0 }, + { name => 'app_sharing', type => 0 }, + { name => 'audio', type => 0 }, + { name => 'video', type => 0 }, + { name => 'app_invite', type => 0 }, + ]; + + $self->{maps_counters}->{instant_messaging} = [ + { label => 'instant-messaging', set => { + key_values => [ { name => 'value' } ], + output_template => 'Instant Messaging : %d', + perfdatas => [ + { label => 'instant_messaging', value => 'value_absolute', template => '%d', + unit => 'sessions', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{file_transfer} = [ + { label => 'file-transfer', set => { + key_values => [ { name => 'value' } ], + output_template => 'File transfer : %d', + perfdatas => [ + { label => 'file_transfer', value => 'value_absolute', template => '%d', + unit => 'sessions', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{remote_assistance} = [ + { label => 'remote-assistance', set => { + key_values => [ { name => 'value' } ], + output_template => 'Remote assistance : %d', + perfdatas => [ + { label => 'remote_assistance', value => 'value_absolute', template => '%d', + unit => 'sessions', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{app_sharing} = [ + { label => 'app-sharing', set => { + key_values => [ { name => 'value' } ], + output_template => 'App Sharing : %d', + perfdatas => [ + { label => 'app_sharing', value => 'value_absolute', template => '%d', + unit => 'sessions', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{audio} = [ + { label => 'audio', set => { + key_values => [ { name => 'value' } ], + output_template => 'Audio : %d', + perfdatas => [ + { label => 'audio', value => 'value_absolute', template => '%d', + unit => 'sessions', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{video} = [ + { label => 'video', set => { + key_values => [ { name => 'value' } ], + output_template => 'Video : %d', + perfdatas => [ + { label => 'video', value => 'value_absolute', template => '%d', + unit => 'sessions', min => 0, label_extra_instance => 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 => + { + 'lookback:s' => { name => 'lookback', default => '5' }, + }); + return $self; +} + +my %mapping_types = ( + 1 => 'instant_messaging', + 2 => 'file_transfer', + 4 => 'remote_assistance', + 8 => 'app_sharing', + 16 => 'audio', + 32 => 'video', + 64 => 'app_invite', +); + +sub manage_selection { + my ($self, %options) = @_; + # $options{sql} = sqlmode object + $self->{sql} = $options{sql}; + $self->{sql}->connect(); + + foreach my $bit (keys %mapping_types) { + my $query = "SELECT count(*) + FROM [LcsCDR].[dbo].[SessionDetails] s + left outer join [LcsCDR].[dbo].[Users] u1 on s.User1Id = u1.UserId left outer join [LcsCDR].[dbo].[Users] u2 on s.User2Id = u2.UserId + WHERE MediaTypes=".$bit." + AND s.SessionIdTime>=dateadd(minute,-".$self->{option_results}->{lookback}.",getdate())"; + + $self->{sql}->query(query => $query); + my $value = $self->{sql}->fetchrow_array(); + $self->{$mapping_types{$bit}} = { value => $value }; + } + +} + +1; + +__END__ + +=head1 MODE + +Check number of sessions ordered by type during last X minutes + +=over 8 + +=item B<--filter-counters> + +Only display some counters (regexp can be used). + +=item B<--lookback> + +Minutes to lookback (From you to UTC) + +=item B<--warning-*> + +Set warning threshold Can be : 'instant-messaging', 'app-sharing', 'audio', 'video', 'app-invite', 'remote-assistance' + +=item B<--critical-*> + +Set critical threshold for number of user. Can be : 'instant-messaging', 'app-sharing', 'audio', 'video', 'app-invite', 'remote-assistance' + +=back + +=cut diff --git a/apps/lync/2013/mssql/mode/videoqoe.pm b/apps/lync/2013/mssql/mode/videoqoe.pm new file mode 100644 index 000000000..96cc688ac --- /dev/null +++ b/apps/lync/2013/mssql/mode/videoqoe.pm @@ -0,0 +1,152 @@ +package apps::lync::2013::mssql::mode::videoqoe; + +use base qw(centreon::plugins::templates::counter); + +use strict; +use warnings; + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'video_post_fecplr', type => 0 }, + { name => 'video_local_frame_loss_prct_avg', type => 0 }, + { name => 'recv_frame_rate_avg', type => 0 }, + { name => 'video_packet_loss_rate', type => 0 }, + { name => 'inbound_video_frame_rate_avg', type => 0 }, + { name => 'outbound_video_frame_rate_avg', type => 0 }, + ]; + + $self->{maps_counters}->{video_post_fecplr} = [ + { label => 'post-fecplr', set => { + key_values => [ { name => 'value' } ], + output_template => 'VideoPostFECPLR : %d', + perfdatas => [ + { label => 'video_post_fecplr', value => 'value_absolute', template => '%d', + unit => '', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{video_local_frame_loss_prct_avg} = [ + { label => 'local-frame-loss', set => { + key_values => [ { name => 'value' } ], + output_template => 'VideoLocalFrameLossPercentageAvg : %d', + perfdatas => [ + { label => 'video_frame_loss_prct_avg', value => 'value_absolute', template => '%d', + unit => '', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{recv_frame_rate_avg} = [ + { label => 'recv-frame', set => { + key_values => [ { name => 'value' } ], + output_template => 'RecvFrameRateAverage : %d', + perfdatas => [ + { label => 'rcv_frame_rate_avg', value => 'value_absolute', template => '%d', + unit => '', min => 0, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{video_packet_loss_rate} = [ + { label => 'packet-loss', set => { + key_values => [ { name => 'value' } ], + output_template => 'video_packet_loss_rate : %.2f%%', + perfdatas => [ + { label => 'video_pckt_loss_rate', value => 'value_absolute', template => '%.2f', + unit => '%', min => 0, max => 100, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{inbound_video_frame_rate_avg} = [ + { label => 'inbound-frame', set => { + key_values => [ { name => 'value' } ], + output_template => 'inbound_video_frame_rate_avg : %.2f%%', + perfdatas => [ + { label => 'inbound_video_frame_rate_avg', value => 'value_absolute', template => '%.2f', + unit => '%', min => 0, max => 100, label_extra_instance => 0 }, + ], + } + }, + ]; + $self->{maps_counters}->{outbound_video_frame_rate_avg} = [ + { label => 'outbound-frame', set => { + key_values => [ { name => 'value' } ], + output_template => 'outbound_video_frame_rate_avg : %.2f%%', + perfdatas => [ + { label => 'outbound_video_frame_rate_avg', value => 'value_absolute', template => '%.2f', + unit => '%', min => 0, max => 100, label_extra_instance => 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) = @_; + # $options{sql} = sqlmode object + $self->{sql} = $options{sql}; + $self->{sql}->connect(); + + $self->{sql}->query(query => q{select avg(VideoPostFECPLR) + ,avg(VideoLocalFrameLossPercentageAvg) + ,avg(RecvFrameRateAverage) + ,avg(VideoPacketLossRate) + ,avg(InboundVideoFrameRateAvg) + ,avg(OutboundVideoFrameRateAvg) + from [QoEMetrics].[dbo].VideoStream + } + ); + + my ($video_post_fecplr, $video_local_frame_loss_prct_avg, $recv_frame_rate_avg, + $video_packet_loss_rate, $inbound_video_frame_rate_avg, $outbound_video_frame_rate_avg) = $self->{sql}->fetchrow_array(); + + $self->{video_post_fecplr} = { value => $video_post_fecplr }; + $self->{video_local_frame_loss_prct_avg} = { value => $video_local_frame_loss_prct_avg }; + $self->{recv_frame_rate_avg} = { value => $recv_frame_rate_avg }; + $self->{video_packet_loss_rate} = { value => $video_packet_loss_rate }; + $self->{inbound_video_frame_rate_avg} = { value => $inbound_video_frame_rate_avg }; + $self->{outbound_video_frame_rate_avg} = { value => $outbound_video_frame_rate_avg }; + +} + +1; + +__END__ + +=head1 MODE + +Check video metrics QoE from SQL Server Lync Database [QoEMetrics].[dbo].VideoStream + +=over 8 + +=item B<--filter-counters> + +Only display some counters (regexp can be used). + +=item B<--warning-*> + +Set warning threshold for QoE metrics. Can be : 'recv-frame', 'local-frame-loss', 'post-fecplr', ''packet-loss', 'inboud-frame', 'outbound-frame' + +=item B<--critical-*> + +Set critical threshold for QoE. Can be : 'recv-frame', 'local-frame-loss', 'post-fecplr', ''packet-loss', 'inboud-frame', 'outbound-frame' + +=back + +=cut