From e0b3ea9e7d7bc3a2c64c79cf8f5cb64fa34272a2 Mon Sep 17 00:00:00 2001 From: garnier-quentin Date: Fri, 29 Jan 2016 16:00:09 +0100 Subject: [PATCH] + remove old lync (use new one) --- centreon-plugins/apps/lync/mode/imsessions.pm | 105 ------------- centreon-plugins/apps/lync/mode/lyncusers.pm | 148 ------------------ .../apps/lync/mode/remoteassistance.pm | 105 ------------- .../apps/lync/mode/sessionstype.pm | 142 ----------------- 4 files changed, 500 deletions(-) delete mode 100644 centreon-plugins/apps/lync/mode/imsessions.pm delete mode 100644 centreon-plugins/apps/lync/mode/lyncusers.pm delete mode 100644 centreon-plugins/apps/lync/mode/remoteassistance.pm delete mode 100644 centreon-plugins/apps/lync/mode/sessionstype.pm diff --git a/centreon-plugins/apps/lync/mode/imsessions.pm b/centreon-plugins/apps/lync/mode/imsessions.pm deleted file mode 100644 index fd941d27c..000000000 --- a/centreon-plugins/apps/lync/mode/imsessions.pm +++ /dev/null @@ -1,105 +0,0 @@ -# -# 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::mode::imsessions; - -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 => - { - "warning:s" => { name => 'warning', }, - "critical:s" => { name => 'critical', }, - }); - - return $self; -} - -sub check_options { - my ($self, %options) = @_; - $self->SUPER::init(%options); - - if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'."); - $self->{output}->option_exit(); - } -} - -sub run { - my ($self, %options) = @_; - # $options{sql} = sqlmode object - $self->{sql} = $options{sql}; - - $self->{sql}->connect(); - $self->{sql}->query(query => q{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 & 1)=1 - AND s.SessionIdTime>=dateadd(minute,-5,getdate())} - ); - my $im_sessions = $self->{sql}->fetchrow_array(); - - my $exit_code = $self->{perfdata}->threshold_check(value => $im_sessions, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); - - $self->{output}->output_add(severity => $exit_code, - short_msg => sprintf("%i instant messaging sessions running", $im_sessions)); - $self->{output}->perfdata_add(label => 'im_sessions', unit => 'sessions', - value => $im_sessions, - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'), - min => 0); - - $self->{output}->display(); - $self->{output}->exit(); -} - -1; - -__END__ - -=head1 MODE - -Check Lync number of active instant messaging session during last five minutes - -=over 8 - -=item B<--warning> - -Threshold warning on number of active messaging sessions - -=item B<--critical> - -Threshold critical on number of active messaging sessions - -=back - -=cut diff --git a/centreon-plugins/apps/lync/mode/lyncusers.pm b/centreon-plugins/apps/lync/mode/lyncusers.pm deleted file mode 100644 index 55613a909..000000000 --- a/centreon-plugins/apps/lync/mode/lyncusers.pm +++ /dev/null @@ -1,148 +0,0 @@ -# -# 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::mode::lyncusers; - -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 => - { - "warning:s" => { name => 'warning', }, - "critical:s" => { name => 'critical', }, - "warning-unique:s" => { name => 'warning_unique', }, - "critical-unique:s" => { name => 'critical_unique', }, - }); - - return $self; -} - -sub check_options { - my ($self, %options) = @_; - $self->SUPER::init(%options); - - if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'warning-unique', value => $self->{option_results}->{warning})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'critical-unique', value => $self->{option_results}->{critical})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'."); - $self->{output}->option_exit(); - } -} - -sub run { - my ($self, %options) = @_; - # $options{sql} = sqlmode object - $self->{sql} = $options{sql}; - - $self->{sql}->connect(); - $self->{sql}->query(query => q{Select - (cast (RE.ClientApp as varchar (100))) as ClientVersion, - R.UserAtHost as UserName, - Reg.Fqdn - From - rtcdyn.dbo.RegistrarEndpoint RE - Inner Join - rtc.dbo.Resource R on R.ResourceId = RE.OwnerId - Inner Join - rtcdyn.dbo.Registrar Reg on Reg.RegistrarId = RE.PrimaryRegistrarClusterId - Order By ClientVersion, UserName } - ); - my $users = $self->{sql}->fetchrow_array(); - - $self->{sql}->query(query => q{Select - count(*) as totalonline, count(distinct UserAtHost) as totalunique - From - rtcdyn.dbo.RegistrarEndpoint RE - Inner Join - rtc.dbo.Resource R on R.ResourceId = RE.OwnerId - Inner Join - rtcdyn.dbo.Registrar Reg on Reg.RegistrarId = RE.PrimaryRegistrarClusterId} - ); - my $unique_users = $self->{sql}->fetchrow_array(); - - my $exit1 = $self->{perfdata}->threshold_check(value => $unique_users, threshold => [ { label => 'critical-unique', 'exit_litteral' => 'critical' }, { label => 'warning-unique', exit_litteral => 'warning' } ]); - my $exit2 = $self->{perfdata}->threshold_check(value => $users, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); - my $exit_code = $self->{output}->get_most_critical(status => [ $exit1, $exit2 ]); - - $self->{output}->output_add(severity => $exit_code, - short_msg => sprintf("%i lync unique user(s). (%i total users)", $unique_users, $users)); - $self->{output}->perfdata_add(label => 'unique_users', - value => $unique_users, - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-unique'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-unique'), - min => 0); - $self->{output}->perfdata_add(label => 'total_users', - value => $users, - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'), - min => 0); - - $self->{output}->display(); - $self->{output}->exit(); -} - -1; - -__END__ - -=head1 MODE - -Check Lync users and unique users (one user can be connected with several devices) -- use with dyn-mode mssql plugin) - -=over 8 - -=item B<--warning> - -Threshold warning on total users - -=item B<--critical> - -Threshold critical on total users - -=item B<--warning-unique> - -Threshold warning on unique users - -=item B<--critical-unique> - -Threshold critical on unique users - - -=back - -=cut diff --git a/centreon-plugins/apps/lync/mode/remoteassistance.pm b/centreon-plugins/apps/lync/mode/remoteassistance.pm deleted file mode 100644 index 8814abca9..000000000 --- a/centreon-plugins/apps/lync/mode/remoteassistance.pm +++ /dev/null @@ -1,105 +0,0 @@ -# -# 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::mode::remoteassistance; - -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 => - { - "warning:s" => { name => 'warning', }, - "critical:s" => { name => 'critical', }, - }); - - return $self; -} - -sub check_options { - my ($self, %options) = @_; - $self->SUPER::init(%options); - - if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'."); - $self->{output}->option_exit(); - } -} - -sub run { - my ($self, %options) = @_; - # $options{sql} = sqlmode object - $self->{sql} = $options{sql}; - - $self->{sql}->connect(); - $self->{sql}->query(query => q{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 & 1)=4 - AND s.SessionIdTime>=dateadd(minute,-5,getdate())} - ); - my $remote_assistance_sessions = $self->{sql}->fetchrow_array(); - - my $exit_code = $self->{perfdata}->threshold_check(value => $remote_assistance_sessions, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); - - $self->{output}->output_add(severity => $exit_code, - short_msg => sprintf("%i remote assistance sessions running", $remote_assistance_sessions)); - $self->{output}->perfdata_add(label => 'assistance_sessions', unit => 'sessions', - value => $remote_assistance_sessions, - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'), - min => 0); - - $self->{output}->display(); - $self->{output}->exit(); -} - -1; - -__END__ - -=head1 MODE - -Check Lync number of active remote assistance sessions during last five minutes -- use with dyn-mode mssql plugin - -=over 8 - -=item B<--warning> - -Threshold warning - -=item B<--critical> - -Threshold critical - -=back - -=cut diff --git a/centreon-plugins/apps/lync/mode/sessionstype.pm b/centreon-plugins/apps/lync/mode/sessionstype.pm deleted file mode 100644 index 67f8a5cb0..000000000 --- a/centreon-plugins/apps/lync/mode/sessionstype.pm +++ /dev/null @@ -1,142 +0,0 @@ -# -# 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::mode::sessionstype; - -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 => - { - "warning-audio:s" => { name => 'warning-audio', }, - "critical-audio:s" => { name => 'critical-audio', }, - "warning-video:s" => { name => 'warning_video', }, - "critical-video:s" => { name => 'critical_video', }, - }); - - return $self; -} - -sub check_options { - my ($self, %options) = @_; - $self->SUPER::init(%options); - - if (($self->{perfdata}->threshold_validate(label => 'warning-audio', value => $self->{option_results}->{warning})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong warning-audio threshold '" . $self->{option_results}->{warning} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'critical-audio', value => $self->{option_results}->{critical})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong critical-audio threshold '" . $self->{option_results}->{critical} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'warning-video', value => $self->{option_results}->{warning})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong warning-video threshold '" . $self->{option_results}->{warning} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'critical-video', value => $self->{option_results}->{critical})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong critical-video threshold '" . $self->{option_results}->{critical} . "'."); - $self->{output}->option_exit(); - } -} - -sub run { - my ($self, %options) = @_; - # $options{sql} = sqlmode object - $self->{sql} = $options{sql}; - - $self->{sql}->connect(); - - $self->{sql}->query(query => q{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 & 1)=16 - AND s.SessionIdTime>=dateadd(minute,-5,getdate())} - ); - - - my $audio = $self->{sql}->fetchrow_array(); - - $self->{sql}->query(query => q{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 & 1)=32 - AND s.SessionIdTime>=dateadd(minute,-5,getdate())} - ); - - my $video = $self->{sql}->fetchrow_array(); - - my $exit1 = $self->{perfdata}->threshold_check(value => $audio, threshold => [ { label => 'critical-audio', 'exit_litteral' => 'critical' }, { label => 'warning-audio', exit_litteral => 'warning' } ]); - my $exit2 = $self->{perfdata}->threshold_check(value => $video, threshold => [ { label => 'critical-video', 'exit_litteral' => 'critical' }, { label => 'warning-video', exit_litteral => 'warning' } ]); - my $exit_code = $self->{output}->get_most_critical(status => [ $exit1, $exit2 ]); - - $self->{output}->output_add(severity => $exit_code, - short_msg => sprintf("Lync sessions type : %i audio sessions and %i video sessions", $audio, $video)); - $self->{output}->perfdata_add(label => 'video_sessions', - value => $video, - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-video'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-video'), - min => 0); - $self->{output}->perfdata_add(label => 'audio_sessions', - value => $audio, - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-audio'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-audio'), - min => 0); - - $self->{output}->display(); - $self->{output}->exit(); -} - -1; - -__END__ - -=head1 MODE - -Check Lync type of sessions (audio or video) during the last five minutes -- use with dyn-mode and mssql plugin - -=over 8 - -=item B<--warning-audio> - -Threshold warning on number of audio sessions during last five minutes - -=item B<--critical-audio> - -Threshold critical on number of audio sessions during last five minutes - -=item B<--warning-video> - -Threshold critical on number of video sessions during last five minutes - -=item B<--critical-video> - -Threshold critical on number of video sessions during last five minutes - -=back - -=cut