122 lines
3.2 KiB
Perl
Executable File
122 lines
3.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# -*- perl -*-
|
|
|
|
=head1 NAME
|
|
|
|
Munin plugin to monitor the usage of memory on Voxtrot Sip Server (Kamailio + Freeswitch + RTPproxy).
|
|
|
|
=head1 CONFIGURATION
|
|
|
|
No configuration
|
|
|
|
=head1 AUTHOR
|
|
|
|
Copyright 2012 - Voxtrot <www.voxtrot.com>
|
|
Oussama Hammami <oussamacvoxtrot.com>
|
|
|
|
=head1 LICENSE
|
|
|
|
GPLv2
|
|
|
|
=head1 VERSION
|
|
|
|
$Id: kamailio_memory 2012-04-19 15:09 $
|
|
|
|
=head1 MAGIC MARKERS
|
|
|
|
#%# family=manual
|
|
#%# capabilities=autoconf
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
|
|
my %WANTED = ( "kamailio" => "ram_total",
|
|
"rtpproxy" => "ram_rtpproxy",
|
|
"freeswitch" => "ram_freeswitch",
|
|
);
|
|
|
|
my %VALUE = ( "ram_total" => 0,
|
|
"ram_rtpproxy" => 0,
|
|
"ram_freeswitch" => 0,
|
|
);
|
|
|
|
my $arg = shift();
|
|
|
|
if ($arg eq 'config') {
|
|
print_config();
|
|
exit();
|
|
} elsif ($arg eq 'autoconf') {
|
|
unless (test_service() ) {
|
|
print "yes\n";
|
|
} else {
|
|
print "no\n";
|
|
}
|
|
exit 0;
|
|
}
|
|
|
|
for my $key (keys %WANTED) {
|
|
$VALUE{$WANTED{$key}}=get_memory($key);
|
|
}
|
|
|
|
$VALUE{"ram_total"}+=$VALUE{"ram_rtpproxy"}+$VALUE{"ram_freeswitch"};
|
|
|
|
for my $key (keys %VALUE) {
|
|
print ("$key.value $VALUE{$key}\n");
|
|
}
|
|
|
|
sub print_config {
|
|
print ("graph_title Voxtrot SIP Server Memory\n");
|
|
# Arguments to "rrdtool graph". In this case, tell it that the
|
|
# lower limit of the graph is '0', and that 1k=1000 (not 1024).
|
|
print("graph_args --base 1024 --lower-limit 0\n");
|
|
print("graph_vlabel MB\n");
|
|
print("graph_scale no\n");
|
|
print("graph_category voip\n");
|
|
print("graph_info The graph describes the usage of memory in Voxtrot Sip Server.\n");
|
|
print("ram_total.label total (kam+fs+rtp)\n");
|
|
print("ram_freeswitch.label freeswitch\n");
|
|
print("ram_rtpproxy.label rtpproxy\n");
|
|
print("ram_total.info Average total memory used by kamailio, freeswitch and rtpproxy for the five minutes.\n");
|
|
print("ram_freeswitch.info Average used memory by freeswitch for the five minutes.\n");
|
|
print("ram_rtpproxy.info Average real used memory by rtpproxy for the five minutes.\n");
|
|
print("graph_order ram_total ram_freeswitch ram_rtpproxy\n");
|
|
print("ram_total.type GAUGE\n");
|
|
print("ram_freeswitch.type GAUGE\n");
|
|
print("ram_rtpproxy.type GAUGE\n");
|
|
print("ram_total.draw AREA\n");
|
|
print("ram_freeswitch.draw AREA\n");
|
|
print("ram_rtpproxy.draw LINE1\n");
|
|
print("ram_total.colour 6699FF\n");
|
|
print("ram_freeswitch.colour FF6633\n");
|
|
print("ram_rtpproxy.colour 993399\n");
|
|
# Ensure min values (useful when using 'DERIVE' as 'type').
|
|
print("ram_total.min 0\n");
|
|
print("ram_freeswitch.min 0\n");
|
|
print("ram_rtpproxy.min 0\n");
|
|
# Divide the got value by 1048576 to get MB.
|
|
print("ram_total.cdef ram_total,1048576,/\n");
|
|
print("ram_freeswitch.cdef ram_freeswitch,1048576,/\n");
|
|
print("ram_rtpproxy.cdef ram_rtpproxy,1048576,/\n");
|
|
}
|
|
|
|
|
|
sub test_service {
|
|
print "yes\n";
|
|
exit 0;
|
|
}
|
|
|
|
#########################
|
|
# function Get Memory
|
|
|
|
sub get_memory {
|
|
my $proc=shift;
|
|
my $i = 0;
|
|
my @cmd = `ps auwx | grep $proc | grep -v grep | grep -v kamailio_memory`;
|
|
foreach (@cmd) {
|
|
my @return = split(/ +/, $_);
|
|
$i += @return[5]*1024;
|
|
}
|
|
return $i;
|
|
}
|