Sims24
commit
0eae24f309
|
|
@ -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
|
||||
|
|
@ -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
|
||||
|
|
@ -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
|
||||
|
|
@ -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
|
||||
Loading…
Reference in New Issue