diff --git a/apps/voip/asterisk/lib/ami.pm b/apps/voip/asterisk/ami/lib/ami.pm similarity index 100% rename from apps/voip/asterisk/lib/ami.pm rename to apps/voip/asterisk/ami/lib/ami.pm diff --git a/apps/voip/asterisk/ami/mode/iax/showpeers.pm b/apps/voip/asterisk/ami/mode/iax/showpeers.pm new file mode 100644 index 000000000..286614139 --- /dev/null +++ b/apps/voip/asterisk/ami/mode/iax/showpeers.pm @@ -0,0 +1,153 @@ +################################################################################ +# Copyright 2005-2015 MERETHIS +# Centreon is developped by : Julien Mathis and Romain Le Merlus under +# GPL Licence 2.0. +# +# This program is free software; you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free Software +# Foundation ; either version 2 of the License. +# +# This program is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, see . +# +# Linking this program statically or dynamically with other modules is making a +# combined work based on this program. Thus, the terms and conditions of the GNU +# General Public License cover the whole combination. +# +# As a special exception, the copyright holders of this program give MERETHIS +# permission to link this program with independent modules to produce an executable, +# regardless of the license terms of these independent modules, and to copy and +# distribute the resulting executable under terms of MERETHIS choice, provided that +# MERETHIS also meet, for each linked independent module, the terms and conditions +# of the license of that module. An independent module is a module which is not +# derived from this program. If you modify this program, you may extend this +# exception to your version of the program, but you are not obliged to do so. If you +# do not wish to do so, delete this exception statement from your version. +# +# For more information : contact@centreon.com +# Authors : Mathieu Cinquin +# +#################################################################################### + +package apps::voip::asterisk::ami::mode::iax::showpeers; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; +use centreon::plugins::misc; +use apps::voip::asterisk::ami::lib::ami; + +use Data::Dumper; + +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 => + { + "hostname:s" => { name => 'hostname' }, + "port:s" => { name => 'port', default => 5038 }, + "username:s" => { name => 'username' }, + "password:s" => { name => 'password' }, + "filter-name:s" => { name => 'filter_name', }, + "timeout:s" => { name => 'timeout', default => 20 }, + }); + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); + + if (!defined($self->{option_results}->{hostname})) { + $self->{output}->add_option_msg(short_msg => "Please set the --hostname option"); + $self->{output}->option_exit(); + } + + if (!defined($self->{option_results}->{username})) { + $self->{output}->add_option_msg(short_msg => "Please set the --username option"); + $self->{output}->option_exit(); + } + + if (!defined($self->{option_results}->{password})) { + $self->{output}->add_option_msg(short_msg => "Please set the --password option"); + $self->{output}->option_exit(); + } + +} + + +sub run { + my ($self, %options) = @_; + + # Get data from asterisk + apps::voip::asterisk::lib::ami::connect($self); + $self->{command} = 'iax2 show peers'; + my @result = apps::voip::asterisk::lib::ami::action($self); + apps::voip::asterisk::lib::ami::quit(); + + # Compute data + foreach my $line (@result) { + next if ($line !~ /^(\w*)\/\w* .* (OK|Unreachable) \((.*)\)/); + my ($trunkname, $trunkstatus, $trunkvalue) = ($1, $2, $3); + + if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $trunkname !~ /$self->{option_results}->{filter_name}/) { + $self->{output}->output_add(long_msg => "Skipping trunk '" . $trunkname . "': no matching filter name"); + next; + } + + $self->{result}->{$trunkname} = {name => $trunkname, status => $trunkstatus, value => $trunkvalue}; + } + + # Send formated data to Centreon + my $msg; + $self->{output}->output_add(severity => 'OK', + short_msg => 'Everything is OK'); + + foreach my $name (sort(keys %{$self->{result}})) { + $msg = sprintf("Trunk: %s %s", $self->{result}->{$name}->{name}, $self->{result}->{$name}->{status}); + $self->{output}->perfdata_add(label => $self->{result}->{$name}->{name}, + value => $self->{result}->{$name}->{value}, + # keep this lines for future upgrade of this plugin + #warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn1'), + #critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit1'), + min => 0); + if (!$self->{output}->is_status(value => $self->{result}->{$name}->{status}, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $self->{result}->{$name}->{status}, + short_msg => $msg); + } + } + + $self->{output}->display(); + $self->{output}->exit(); +} + +1; + +__END__ + +=head1 MODE + +List partitions. + +=over 8 + +=item B<--hostname> + +Hostname to query. + +=item B<--filter-name> + +Filter on trunkname (regexp can be used). + +=back + +=cut diff --git a/apps/voip/asterisk/mode/sip/.asterisk_sipshowpeer.pm.swo b/apps/voip/asterisk/ami/mode/sip/.asterisk_sipshowpeer.pm.swo similarity index 100% rename from apps/voip/asterisk/mode/sip/.asterisk_sipshowpeer.pm.swo rename to apps/voip/asterisk/ami/mode/sip/.asterisk_sipshowpeer.pm.swo diff --git a/apps/voip/asterisk/mode/sip/.asterisk_sipshowpeer.pm.swp b/apps/voip/asterisk/ami/mode/sip/.asterisk_sipshowpeer.pm.swp similarity index 100% rename from apps/voip/asterisk/mode/sip/.asterisk_sipshowpeer.pm.swp rename to apps/voip/asterisk/ami/mode/sip/.asterisk_sipshowpeer.pm.swp diff --git a/apps/voip/asterisk/mode/sip/.showpeers.pm.swp b/apps/voip/asterisk/ami/mode/sip/.showpeers.pm.swp similarity index 100% rename from apps/voip/asterisk/mode/sip/.showpeers.pm.swp rename to apps/voip/asterisk/ami/mode/sip/.showpeers.pm.swp diff --git a/apps/voip/asterisk/mode/sip/showpeers.pm b/apps/voip/asterisk/ami/mode/sip/showpeers.pm similarity index 53% rename from apps/voip/asterisk/mode/sip/showpeers.pm rename to apps/voip/asterisk/ami/mode/sip/showpeers.pm index c92b49314..e38b9d3e1 100644 --- a/apps/voip/asterisk/mode/sip/showpeers.pm +++ b/apps/voip/asterisk/ami/mode/sip/showpeers.pm @@ -33,14 +33,14 @@ # #################################################################################### -package apps::voip::asterisk::mode::sip::showpeers; +package apps::voip::asterisk::ami::mode::sip::showpeers; use base qw(centreon::plugins::mode); use strict; use warnings; use centreon::plugins::misc; -use apps::voip::asterisk::lib::ami; +use apps::voip::asterisk::ami::lib::ami; use Data::Dumper; @@ -56,7 +56,6 @@ sub new { "port:s" => { name => 'port', default => 5038 }, "username:s" => { name => 'username' }, "password:s" => { name => 'password' }, - "trunkname:s" => { name => 'trunkname' }, "filter-name:s" => { name => 'filter_name', }, "timeout:s" => { name => 'timeout', default => 20 }, }); @@ -87,89 +86,50 @@ sub check_options { sub run { my ($self, %options) = @_; - - apps::voip::asterisk::lib::ami::connect($self); - - $self->{command} = 'sip show peers'; + # Get data from asterisk + apps::voip::asterisk::lib::ami::connect($self); + $self->{command} = 'sip show peers'; my @result = apps::voip::asterisk::lib::ami::action($self); - - print "@result"; - apps::voip::asterisk::lib::ami::quit(); + + # Compute data + foreach my $line (@result) { + next if ($line !~ /^(\w*)\/\w* .* (OK|Unreachable) \((.*)\)/); + my ($trunkname, $trunkstatus, $trunkvalue) = ($1, $2, $3); + if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && + $trunkname !~ /$self->{option_results}->{filter_name}/) { + $self->{output}->output_add(long_msg => "Skipping trunk '" . $trunkname . "': no matching filter name"); + next; + } + + $self->{result}->{$trunkname} = {name => $trunkname, status => $trunkstatus, value => $trunkvalue}; + } + + # Send formated data to Centreon + my $msg; + $self->{output}->output_add(severity => 'OK', + short_msg => 'Everything is OK'); + foreach my $name (sort(keys %{$self->{result}})) { + $msg = sprintf("Trunk: %s %s", $self->{result}->{$name}->{name}, $self->{result}->{$name}->{status}); + $self->{output}->perfdata_add(label => $self->{result}->{$name}->{name}, + value => $self->{result}->{$name}->{value}, + # keep this lines for future upgrade of this plugin + #warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn1'), + #critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit1'), + min => 0); + if (!$self->{output}->is_status(value => $self->{result}->{$name}->{status}, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $self->{result}->{$name}->{status}, + short_msg => $msg); + } + } + $self->{output}->display(); + $self->{output}->exit(); } - -# trunkname => $self->{option_results}->{trunkname}); -# my @lines = split /\n/, $stdout; -# # Header not needed -# #shift @lines; -# foreach my $line (@lines) { -# next if ($line !~ /^(.*): (.*) \((.*)\)/); -# my ($trunkname, $trunkstatus, $trunkvalue) = ($1, $2, $3); -# -# if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && -# $trunkname !~ /$self->{option_results}->{filter_name}/) { -# $self->{output}->output_add(long_msg => "Skipping trunk '" . $trunkname . "': no matching filter name"); -# next; -# } -# ##### -# # test -# ##### -# if ($trunkname eq '009900524') -# { -# $self->{result}->{$trunkname} = {name => $trunkname, status => $trunkstatus, value => $trunkvalue}; -# } -# else -# { -# $self->{result}->{$trunkname} = {name => $trunkname, status => 'Unknown', value => $trunkvalue}; -# } -# } -#} -# -#sub run { -# my ($self, %options) = @_; -# my $msg; -# $self->{output}->output_add(severity => 'OK', -# short_msg => 'Everything is OK'); -# $self->manage_selection(); -# -# foreach my $name (sort(keys %{$self->{result}})) { -# $msg = sprintf("Trunk: %s %s", $self->{result}->{$name}->{name}, $self->{result}->{$name}->{status}); -# $self->{output}->perfdata_add(label => $self->{result}->{$name}->{name}, -# value => $self->{result}->{$name}->{value}, -# #warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn1'), -# #critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit1'), -# min => 0); -# if (!$self->{output}->is_status(value => $self->{result}->{$name}->{status}, compare => 'ok', litteral => 1)) { -# $self->{output}->output_add(severity => $self->{result}->{$name}->{status}, -# short_msg => $msg); -# } -# } -# -# $self->{output}->display(); -# $self->{output}->exit(); -#} -# -#sub disco_format { -# my ($self, %options) = @_; -# -# $self->{output}->add_disco_format(elements => ['name']); -#} -# -#sub disco_show { -# my ($self, %options) = @_; -# -# $self->manage_selection(); -# foreach my $name (sort(keys %{$self->{result}})) { -# $self->{output}->add_disco_entry(name => $name, -# ); -# } -#} - 1; __END__ @@ -180,50 +140,13 @@ List partitions. =over 8 -=item B<--remote> - -Execute command remotely in 'ssh'. - =item B<--hostname> Hostname to query (need --remote). -=item B<--ssh-option> - -Specify multiple options like the user (example: --ssh-option='-l=centreon-engine' --ssh-option='-p=52'). - -=item B<--ssh-path> - -Specify ssh command path (default: none) - -=item B<--ssh-command> - -Specify ssh command (default: 'ssh'). Useful to use 'plink'. - -=item B<--timeout> - -Timeout in seconds for the command (Default: 30). - -=item B<--sudo> - -Use 'sudo' to execute the command. - -=item B<--command> - -Command to get information (Default: 'cat'). -Can be changed if you have output in a file. - -=item B<--command-path> - -Command path (Default: none). - -=item B<--command-options> - -Command options (Default: '/proc/partitions 2>&1'). - =item B<--filter-name> -Filter partition name (regexp can be used). +Filter on trunkname (regexp can be used). =back diff --git a/apps/voip/asterisk/plugin.pm b/apps/voip/asterisk/ami/plugin.pm similarity index 91% rename from apps/voip/asterisk/plugin.pm rename to apps/voip/asterisk/ami/plugin.pm index ad44042d8..ae8c113ca 100644 --- a/apps/voip/asterisk/plugin.pm +++ b/apps/voip/asterisk/ami/plugin.pm @@ -33,7 +33,7 @@ # #################################################################################### -package apps::voip::asterisk::plugin; +package apps::voip::asterisk::ami::plugin; use strict; use warnings; @@ -49,7 +49,8 @@ sub new { $self->{version} = '0.1'; %{$self->{modes}} = ( - 'showpeers' => 'apps::voip::asterisk::mode::sip::showpeers', + 'sipshowpeers' => 'apps::voip::asterisk::ami::mode::sip::showpeers', + 'iaxshowpeers' => 'apps::voip::asterisk::ami::mode::iax::showpeers', ); return $self; diff --git a/apps/voip/asterisk/mode/sip/asterisk_sipshowpeer.pm b/apps/voip/asterisk/mode/sip/asterisk_sipshowpeer.pm deleted file mode 100644 index d5875d436..000000000 --- a/apps/voip/asterisk/mode/sip/asterisk_sipshowpeer.pm +++ /dev/null @@ -1,139 +0,0 @@ -#!/usr/bin/perl -w -# -# Copyright (C) 2005 Rodolphe Quiedeville -# -# This program is free software; you can redistribute it and/or -# modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation; version 2 dated June, -# 1991. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# -# If you improve this script please send your version to my email address -# with the copyright notice upgrade with your name. -# -# -# $Log$ -# Revision 1.1 2005/10/22 21:04:01 rodo -# Created by Rodolphe Quiedeville -# -# Revision 1.2 2010/11/04 10:11 Guillaume Bour -# Allow channels monitoring per device (IAX/SIP/... account or trunk). -# To monitor a particular device, link asterisk_sipshowpeer_tech_identifier to this file, where: -# - tech is one of SIP, IAX, DAHDI, ... -# - identifier is account name (102, foo, ...) -# -# i.e: -# ls -s /path/to/asterisk_sipshowpeer /etc/munin/plugins/asterisk_sipshowpeer_trunk1 -# will monitor SIP/trunk1 device -# -# -# Parameters mandatory: -# -# username -# secret -# -#%# family=asterisk -#%# capabilities=autoconf - -use strict; - -my $ret = undef; -if (! eval "require Net::Telnet;") -{ - $ret = "Net::Telnet not found"; -} - -my $DEVICE=`basename $0`; -if ($DEVICE =~ /^asterisk_sipshowpeer_(.*)$/) -{ $DEVICE = "$1"; } -elsif (defined($ARGV[0])) -{ ($DEVICE) = @ARGV; } -else -{ $DEVICE = ''; } - -my $command = 'sip show peers'; - -my $host = exists $ENV{'host'} ? $ENV{'host'} : "10.50.1.65"; -my $port = exists $ENV{'port'} ? $ENV{'port'} : "5038"; - -#[asterisk_*] -#env.username xivo_munin_user -#env.secret jeSwupAd0 - -#my $username = $ENV{'username'}; -my $username = 'xivo_munin_user'; -#my $secret = $ENV{'secret'}; -my $secret = 'jeSwupAd0'; - -my $pop = new Net::Telnet (Telnetmode => 0); -$pop->open(Host => $host, - Port => $port); - -## Read connection message. -my $line = $pop->getline; -die $line unless $line =~ /^Asterisk/; - -## Send user name. -$pop->print("Action: login"); -$pop->print("Username: $username"); -$pop->print("Secret: $secret"); -$pop->print("Events: off"); -$pop->print(""); - -#Response: Success -#Message: Authentication accepted - -## Request status of messages. -$pop->print("Action: command"); -$pop->print("Command: ".$command); -$pop->print(""); -my @result = ('Nothing Monitored'); -my $nb = 0; -while (($line = $pop->getline) and ($line !~ /END COMMAND/o)) -{ -# print $line; - if ($DEVICE eq '') - { - $result[$nb] = $line if $line !~ /^Name|Unmonitored/; - } - else - { - $result[$nb] = $line if $line =~ /^$DEVICE/; - } - $nb++; -} -$pop->print("Action: logoff"); -$pop->print(""); -while (($line = $pop->getline) and ($line !~ /END COMMAND/o)) -{} -$pop->close(); - -my $peername; -my $status; -my $splitresult; - -foreach (@result) -{ - if ((defined($_)) && ($_ =~ /^.*\/.* /)) - { - chomp($_); - $peername = $status = $_; - $peername =~ /^(\w*)\/\w* .* (OK|Unreachable) (\(.*\))/; - $splitresult = $1.": ".$2; - if (defined($3)) - { - $splitresult = $splitresult." ".$3; - } - print $splitresult."\n"; - } -} - -# vim:syntax=perl diff --git a/apps/voip/asterisk/snmp/mode/activecalls.pm b/apps/voip/asterisk/snmp/mode/activecalls.pm new file mode 100644 index 000000000..e7905bd53 --- /dev/null +++ b/apps/voip/asterisk/snmp/mode/activecalls.pm @@ -0,0 +1,135 @@ +################################################################################ +# Copyright 2005-2014 MERETHIS +# Centreon is developped by : Julien Mathis and Romain Le Merlus under +# GPL Licence 2.0. +# +# This program is free software; you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free Software +# Foundation ; either version 2 of the License. +# +# This program is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, see . +# +# Linking this program statically or dynamically with other modules is making a +# combined work based on this program. Thus, the terms and conditions of the GNU +# General Public License cover the whole combination. +# +# As a special exception, the copyright holders of this program give MERETHIS +# permission to link this program with independent modules to produce an executable, +# regardless of the license terms of these independent modules, and to copy and +# distribute the resulting executable under terms of MERETHIS choice, provided that +# MERETHIS also meet, for each linked independent module, the terms and conditions +# of the license of that module. An independent module is a module which is not +# derived from this program. If you modify this program, you may extend this +# exception to your version of the program, but you are not obliged to do so. If you +# do not wish to do so, delete this exception statement from your version. +# +# For more information : contact@centreon.com +# Authors : Quentin Garnier +# +#################################################################################### + +package apps::voip::asterisk::snmp::mode::activecalls; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; +use centreon::plugins::statefile; + +my $oid_astBase = '.1.3.6.1.4.1.22736'; +my $oid_astConfigCallsActive = $oid_astBase.'.1.2.5.0'; +#my $oid_AsteriskConfigCallsProcessed = $oid_AsteriskBase.'.1.2.6.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 => + { + "warning:s" => { name => 'warning', }, + "critical:s" => { name => 'critical', }, + "force-oid:s" => { name => 'force_oid', }, + }); + $self->{statefile_value} = centreon::plugins::statefile->new(%options); + 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(); + } + + $self->{statefile_value}->check_options(%options); +} + +sub run { + my ($self, %options) = @_; + # $options{snmp} = snmp object + $self->{snmp} = $options{snmp}; + + my ($result, $value); + + if (defined($self->{option_results}->{force_oid})) { + $result = $self->{snmp}->get_leef(oids => [ $self->{option_results}->{force_oid} ], nothing_quit => 1); + $value = $result->{$self->{option_results}->{force_oid}}; + } else { + $result = $self->{snmp}->get_leef(oids => [ $oid_astConfigCallsActive ], nothing_quit => 1); + $value = $result->{$oid_astConfigCallsActive}; + } + + my $exit_code = $self->{perfdata}->threshold_check(value => $value, + threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); + $self->{output}->perfdata_add(label => 'channels', + value => $value, + warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'), + critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'), + min => 0); + + $self->{output}->output_add(severity => $exit_code, + short_msg => sprintf("Current active calls: %s", $value) + ); + + $self->{output}->display(); + $self->{output}->exit(); +} + +1; + +__END__ + +=head1 MODE + +Check system uptime. + +=over 8 + +=item B<--warning> + +Threshold warning. + +=item B<--critical> + +Threshold critical. + +=item B<--force-oid> + +Can choose your oid (numeric format only). + +=back + +=cut \ No newline at end of file diff --git a/apps/voip/asterisk/snmp/mode/activecallsbytrunk.pm b/apps/voip/asterisk/snmp/mode/activecallsbytrunk.pm new file mode 100644 index 000000000..789640697 --- /dev/null +++ b/apps/voip/asterisk/snmp/mode/activecallsbytrunk.pm @@ -0,0 +1,168 @@ +################################################################################ +# Copyright 2005-2014 MERETHIS +# Centreon is developped by : Julien Mathis and Romain Le Merlus under +# GPL Licence 2.0. +# +# This program is free software; you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free Software +# Foundation ; either version 2 of the License. +# +# This program is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, see . +# +# Linking this program statically or dynamically with other modules is making a +# combined work based on this program. Thus, the terms and conditions of the GNU +# General Public License cover the whole combination. +# +# As a special exception, the copyright holders of this program give MERETHIS +# permission to link this program with independent modules to produce an executable, +# regardless of the license terms of these independent modules, and to copy and +# distribute the resulting executable under terms of MERETHIS choice, provided that +# MERETHIS also meet, for each linked independent module, the terms and conditions +# of the license of that module. An independent module is a module which is not +# derived from this program. If you modify this program, you may extend this +# exception to your version of the program, but you are not obliged to do so. If you +# do not wish to do so, delete this exception statement from your version. +# +# For more information : contact@centreon.com +# Authors : Quentin Garnier +# +#################################################################################### + +package apps::voip::asterisk::snmp::mode::activecallsbytrunk; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; +use centreon::plugins::statefile; + +my $oid_astBase = '.1.3.6.1.4.1.22736'; +my $oid_astConfigCallsActive = $oid_astBase.'.1.2.5.0'; +#my $oid_AsteriskConfigCallsProcessed = $oid_AsteriskBase.'.1.2.6.0'; +my $oid_astChanName = $oid_astBase.'.1.5.2.1.2'; # need an index at the end +my $oid_astChanIndex = $oid_astBase.'.1.5.2.1.1'; # need an index at the end +my $oid_astNumChannels = $oid_astBase.'.1.5.1.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 => + { + "warning:s" => { name => 'warning', }, + "critical:s" => { name => 'critical', }, + "force-oid:s" => { name => 'force_oid', }, + "trunklist:s" => { name => 'trunklist', }, + }); + $self->{statefile_value} = centreon::plugins::statefile->new(%options); + 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(); + } + + $self->{statefile_value}->check_options(%options); +} + +sub run { + my ($self, %options) = @_; + # $options{snmp} = snmp object + $self->{snmp} = $options{snmp}; + + my ($result, $value); + my @callsbytrunk; + + # explode trunk list + my @trunklist = split(';',$self->{option_results}->{trunklist}); + foreach my $trunk (@trunklist) + { + push @callsbytrunk , { trunk => $trunk, num => 0}; + } + # get chanName and sum calls for each + $result = $self->{snmp}->get_leef(oids => [ $oid_astNumChannels ], nothing_quit => 1); + my $astNumChannels = $result->{$oid_astNumChannels}; + foreach my $i (1..$astNumChannels) { + $result = $self->{snmp}->get_leef(oids => [ $oid_astChanName.'.'.$i ], nothing_quit => 1); + $value = $result->{$oid_astChanName.'.'.$i}; + $value =~ /^(.*)\/(.*)-.*/; + my ($protocol, $trunkname) = ($1, $2); + foreach my $val (@callsbytrunk) + { + if ( $val->{trunk} eq $trunkname) + { + $val->{num}=$val->{num}+1; + } + } + } + +#print $callsbytrunk[1]->{num}; +#exit; + +# if (defined($self->{option_results}->{force_oid})) { +# $result = $self->{snmp}->get_leef(oids => [ $self->{option_results}->{force_oid} ], nothing_quit => 1); +# $value = $result->{$self->{option_results}->{force_oid}}; +# } else { + $result = $self->{snmp}->get_leef(oids => [ $oid_astConfigCallsActive ], nothing_quit => 1); + my $astConfigCallsActive = $result->{$oid_astConfigCallsActive}; +# } + +# my $exit_code = $self->{perfdata}->threshold_check(value => $value, +# threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); + foreach $value (@callsbytrunk) + { + $self->{output}->perfdata_add(label => $value->{trunk}, + value => $value->{num}, +# warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'), +# critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'), + min => 0); + } + $self->{output}->output_add(severity => 'OK', + short_msg => sprintf("Current active calls: %s", $astConfigCallsActive) + ); + + $self->{output}->display(); + $self->{output}->exit(); +} + +1; + +__END__ + +=head1 MODE + +Check system uptime. + +=over 8 + +=item B<--warning> + +Threshold warning. + +=item B<--critical> + +Threshold critical. + +=item B<--force-oid> + +Can choose your oid (numeric format only). + +=back + +=cut \ No newline at end of file diff --git a/apps/voip/asterisk/snmp/plugin.pm b/apps/voip/asterisk/snmp/plugin.pm new file mode 100644 index 000000000..82254259d --- /dev/null +++ b/apps/voip/asterisk/snmp/plugin.pm @@ -0,0 +1,68 @@ +################################################################################ +# Copyright 2005-2014 MERETHIS +# Centreon is developped by : Julien Mathis and Romain Le Merlus under +# GPL Licence 2.0. +# +# This program is free software; you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free Software +# Foundation ; either version 2 of the License. +# +# This program is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, see . +# +# Linking this program statically or dynamically with other modules is making a +# combined work based on this program. Thus, the terms and conditions of the GNU +# General Public License cover the whole combination. +# +# As a special exception, the copyright holders of this program give MERETHIS +# permission to link this program with independent modules to produce an executable, +# regardless of the license terms of these independent modules, and to copy and +# distribute the resulting executable under terms of MERETHIS choice, provided that +# MERETHIS also meet, for each linked independent module, the terms and conditions +# of the license of that module. An independent module is a module which is not +# derived from this program. If you modify this program, you may extend this +# exception to your version of the program, but you are not obliged to do so. If you +# do not wish to do so, delete this exception statement from your version. +# +# For more information : contact@centreon.com +# Authors : Mathieu Cinquin +# +#################################################################################### + +package apps::voip::asterisk::snmp::plugin; + +use strict; +use warnings; +#use base qw(centreon::plugins::script_simple); +use base qw(centreon::plugins::script_snmp); + +sub new { + my ($class, %options) = @_; + + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + # $options->{options} = options object + + $self->{version} = '0.1'; + %{$self->{modes}} = ( + 'activecalls' => 'apps::voip::asterisk::snmp::mode::activecalls', + 'activecallsbytrunk' => 'apps::voip::asterisk::snmp::mode::activecallsbytrunk', + ); + + return $self; +} + + +1; + +__END__ + +=head1 PLUGIN DESCRIPTION + +Check BlueMind through InfluxDB API + +=cut