mirror of
https://github.com/munin-monitoring/contrib.git
synced 2025-07-22 02:51:03 +00:00
asterisk: Add configuration options to disable conference graphs
Since the MeetMe application is not available anymore on Debian, it makes no sense to keep the graph around. We do however want to keep code around for parsing stats from MeetMe. So we'll add two "binary" flags that'll let users which of these two graphs they want. The default values will favor getting information from ConfBridge which is the suggested replacement for MeetMe. An added bonus of this is that some users might decide to disable both graphs if they use neither applications, which was impossible before.
This commit is contained in:
Gabriel Filion
parent
46b5f4bd13
commit
7492865044
1 changed files with 69 additions and 48 deletions
|
|
@ -30,13 +30,15 @@ This plugin will produce multiple graphs showing:
|
|||
The following configuration parameters are used by this plugin
|
||||
|
||||
[asterisk]
|
||||
env.host - hostname to connect to
|
||||
env.port - port number to connect to
|
||||
env.username - username used for authentication
|
||||
env.secret - secret used for authentication
|
||||
env.channels - The channel types to look for
|
||||
env.codecsx - List of codec IDs (hexadecimal values)
|
||||
env.codecs - List of codecs names, matching codecsx order
|
||||
env.host - hostname to connect to
|
||||
env.port - port number to connect to
|
||||
env.username - username used for authentication
|
||||
env.secret - secret used for authentication
|
||||
env.channels - The channel types to look for
|
||||
env.codecsx - List of codec IDs (hexadecimal values)
|
||||
env.codecs - List of codecs names, matching codecsx order
|
||||
env.meetme - Set to 1 to enable graphs for the MeetMe application
|
||||
env.confbridge - Set to 1 to enable graphs for the ConfBridge application
|
||||
|
||||
The "username" and "secret" parameters are mandatory, and have no
|
||||
defaults.
|
||||
|
|
@ -49,6 +51,8 @@ defaults.
|
|||
env.channels Zap IAX2 SIP
|
||||
env.codecsx 0x2 0x4 0x8
|
||||
env.codecs gsm ulaw alaw
|
||||
env.meetme 0
|
||||
env.confbridge 1
|
||||
|
||||
=head2 WILDCARD CONFIGURATION
|
||||
|
||||
|
|
@ -122,6 +126,9 @@ my @CHANNELS = exists $ENV{'channels'} ? split ' ',$ENV{'channels'} : qw(Zap IAX
|
|||
my @CODECS = exists $ENV{'codecs'} ? split ' ',$ENV{'codecs'} : qw(gsm ulaw alaw);
|
||||
my @CODECSX = exists $ENV{'codecsx'} ? split ' ',$ENV{'codecsx'} : qw(0x2 0x4 0x8);
|
||||
|
||||
my $meetme_enabled = $ENV{'meetme'} || '0';
|
||||
my $confbridge_enabled = $ENV{'confbridge'} || '1';
|
||||
|
||||
my $line, my $error;
|
||||
my $socket = new IO::Socket::INET(PeerAddr => $peeraddr,
|
||||
PeerPort => $peerport,
|
||||
|
|
@ -182,7 +189,8 @@ graph_category voip
|
|||
total.label Total messages
|
||||
END
|
||||
|
||||
print <<END;
|
||||
if ($meetme_enabled == '1') {
|
||||
print <<END;
|
||||
|
||||
multigraph asterisk_meetme
|
||||
graph_title Asterisk meetme statistics
|
||||
|
|
@ -191,8 +199,10 @@ graph_category voip
|
|||
users.label Connected users
|
||||
conferences.label Active conferences
|
||||
END
|
||||
}
|
||||
|
||||
print <<END;
|
||||
if ($confbridge_enabled == '1') {
|
||||
print <<END;
|
||||
|
||||
multigraph asterisk_confbridge
|
||||
graph_title Asterisk ConfBridge statistics
|
||||
|
|
@ -201,6 +211,7 @@ graph_category asterisk
|
|||
users.label Connected users
|
||||
conferences.label Active conferences
|
||||
END
|
||||
}
|
||||
|
||||
print <<END;
|
||||
|
||||
|
|
@ -246,15 +257,21 @@ my $voicemail_response = asterisk_command($socket, "voicemail show users");
|
|||
#other 1234 Company2 User 0
|
||||
#2 voicemail users configured.
|
||||
|
||||
my $meetme_response = asterisk_command($socket, "meetme list");
|
||||
#Conf Num Parties Marked Activity Creation
|
||||
#5500 0001 N/A 00:00:03 Static
|
||||
#* Total number of MeetMe users: 1
|
||||
my $meetme_response;
|
||||
if ($meetme_enabled == '1') {
|
||||
$meetme_response = asterisk_command($socket, "meetme list");
|
||||
#Conf Num Parties Marked Activity Creation
|
||||
#5500 0001 N/A 00:00:03 Static
|
||||
#* Total number of MeetMe users: 1
|
||||
}
|
||||
|
||||
my $confbridge_response = asterisk_command($socket, "confbridge list");
|
||||
#Conference Bridge Name Users Marked Locked Muted
|
||||
#================================ ====== ====== ====== =====
|
||||
#3 1 0 No No
|
||||
my $confbridge_response;
|
||||
if ($confbridge_enabled == '1') {
|
||||
$confbridge_response = asterisk_command($socket, "confbridge list");
|
||||
#Conference Bridge Name Users Marked Locked Muted
|
||||
#================================ ====== ====== ====== =====
|
||||
#3 1 0 No No
|
||||
}
|
||||
|
||||
my $sipchannels_response = asterisk_command($socket, "sip show channels");
|
||||
#Peer User/ANR Call ID Format Hold Last Message Expiry Peer
|
||||
|
|
@ -299,54 +316,58 @@ if ( !$voicemail_response or $voicemail_response =~ /no voicemail users/ ) {
|
|||
print "total.value $messages\n";
|
||||
}
|
||||
|
||||
print "\nmultigraph asterisk_meetme\n";
|
||||
if ( !$meetme_response ) {
|
||||
print <<END;
|
||||
if ($meetme_enabled == '1') {
|
||||
print "\nmultigraph asterisk_meetme\n";
|
||||
if ( !$meetme_response ) {
|
||||
print <<END;
|
||||
users.value U
|
||||
conferences.value U
|
||||
END
|
||||
} else {
|
||||
if ( $meetme_response =~ /No active/ ) {
|
||||
print <<END;
|
||||
} else {
|
||||
if ( $meetme_response =~ /No active/ ) {
|
||||
print <<END;
|
||||
users.value 0
|
||||
conferences.value 0
|
||||
END
|
||||
} else {
|
||||
my @meetme_list = split(/\r?\n/, $meetme_response);
|
||||
} else {
|
||||
my @meetme_list = split(/\r?\n/, $meetme_response);
|
||||
|
||||
my $users = pop(@meetme_list);
|
||||
$users =~ s/^Total number of MeetMe users: ([0-9]+)$/$1/;
|
||||
my $users = pop(@meetme_list);
|
||||
$users =~ s/^Total number of MeetMe users: ([0-9]+)$/$1/;
|
||||
|
||||
print "users.value $users\n";
|
||||
print "conferences.value " . (scalar(@meetme_list)-1) . "\n";
|
||||
print "users.value $users\n";
|
||||
print "conferences.value " . (scalar(@meetme_list)-1) . "\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
print "\nmultigraph asterisk_confbridge\n";
|
||||
if ( !$confbridge_response ) {
|
||||
print <<END;
|
||||
if ($confbridge_enabled == '1') {
|
||||
print "\nmultigraph asterisk_confbridge\n";
|
||||
if ( !$confbridge_response ) {
|
||||
print <<END;
|
||||
users.value U
|
||||
conferences.value U
|
||||
END
|
||||
} else {
|
||||
my @confbridge_list = split(/\r?\n/, $confbridge_response);
|
||||
# Remove column headers, then line of =
|
||||
shift(@confbridge_list);
|
||||
shift(@confbridge_list);
|
||||
} else {
|
||||
my @confbridge_list = split(/\r?\n/, $confbridge_response);
|
||||
# Remove column headers, then line of =
|
||||
shift(@confbridge_list);
|
||||
shift(@confbridge_list);
|
||||
|
||||
my $users = 0;
|
||||
foreach my $bridge (@confbridge_list) {
|
||||
my @fields = split ' ', $bridge;
|
||||
# yes we ARE parsing a command's output. if we end up getting some
|
||||
# unexpected things, just break out to and avoid computing nonsense.
|
||||
if (scalar(@fields) < 5 or $fields[1] !~ /^[0-9]+$/) {
|
||||
last;
|
||||
my $users = 0;
|
||||
foreach my $bridge (@confbridge_list) {
|
||||
my @fields = split ' ', $bridge;
|
||||
# yes we ARE parsing a command's output. if we end up getting some
|
||||
# unexpected things, just break out to and avoid computing nonsense.
|
||||
if (scalar(@fields) < 5 or $fields[1] !~ /^[0-9]+$/) {
|
||||
last;
|
||||
}
|
||||
$users += $fields[1];
|
||||
}
|
||||
$users += $fields[1];
|
||||
}
|
||||
|
||||
print "users.value $users\n";
|
||||
print "conferences.value " . (scalar(@confbridge_list)) . "\n";
|
||||
print "users.value $users\n";
|
||||
print "conferences.value " . (scalar(@confbridge_list)) . "\n";
|
||||
}
|
||||
}
|
||||
|
||||
print "\nmultigraph asterisk_codecs\n";
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue