Mirrors/Munin-Contrib
1
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2025-07-21 18:41:03 +00:00
Code Issues Releases Wiki Activity

memory_by_process: try to be smarted about labels and cleanup field names more deeply

Browse source
This commit is contained in:
Raphaël Droz 2015-11-09 21:40:16 -03:00
parent b02fe4e8e7
commit 0c18fb5046
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
plugins/system/memory_by_process
View file

@ -30,18 +30,21 @@ if [ "$1" = "config" ]; then
{
@a = split;
$proc = $a[10];
$proc =~ s|.*/||;
$label = $proc;
$proc =~ s/ .*//;
if($proc =~ /^\[/) { $proc =~ s|/.*||; } else { $proc =~ s|.*/||; }
$proc =~ s/:.*//;
$proc =~ tr/[]//d;
$proc =~ tr/A-Za-z0-9/_/c;
$vsz = $a[4];
$total{$proc} += $vsz;
$labels{$proc} = $label;
}
my $stack = 0;
sub draw() { return $stack++ ? "STACK" : "AREA" }
print map
{
"$_.label $_\n" .
"$_.label " . $labels{$_} . "\n" .
"$_.min 0\n" .
"$_.draw " . draw() . "\n" .
"$_.cdef $_,1024,*\n"
@ -56,7 +59,7 @@ else
{
@a = split;
$proc = $a[10];
$proc =~ s|.*/||;
if($proc =~ /^\[/) { $proc =~ s|/.*||; } else { $proc =~ s|.*/||; }
$proc =~ s/:.*//;
$proc =~ tr/[]//d;
$proc =~ tr/A-Za-z0-9/_/c;