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

Initial version

Browse source
This commit is contained in:
Bjrn Ruberg 2010-05-25 09:48:23 +02:00 • committed by Steve Schnepp
parent a22ae3ba0b
commit ff70a64ef1
1 changed files with 80 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

80
plugins/other/varnish2_ Executable file
View file

@ -0,0 +1,80 @@
#!/usr/bin/perl
# Original author: Bjørn Ruberg
# Updated to Varnish 2.0/added instructions: Daniel Wirtz
#
# Installation (Debian):
# 1. Upload file to /usr/share/munin/plugins
# 2. Create symlinks:
# ln -s /usr/share/munin/plugins/varnish2_ /etc/munin/plugins/varnish_cache
# ln -s /usr/share/munin/plugins/varnish2_ /etc/munin/plugins/varnish_backend
# ln -s /usr/share/munin/plugins/varnish2_ /etc/munin/plugins/varnish_shm
# 3. Restart Munin-Node:
# /etc/init.d/munin-node restart
$arg = shift @ARGV;
%aspects = (
'cache' => 'Cache',
'backend' => 'Backend',
'shm' => 'SHM'
);
(my $whut = $0) =~ s/^.*\_//;
# Hvis $whut IKKE fins, men $arg fins OG er noe annet enn blabla
# så skal den trigge
if (!$whut && $arg && $arg !~ /^(suggest|autoconf)$/) {
print "Only 'suggest' and 'autoconf' may be used w/o symlinked name\n";
exit 2;
} elsif (!$whut && !$arg) {
print "Uh. Bugger.\n";
exit 2;
}
if ($arg eq 'autoconf') {
print "Autoconf starting...\n";
exit 0;
} elsif ($arg eq 'suggest') {
print "Suggest starting...\n";
exit 0;
} elsif ($arg eq 'config') {
$config = 1;
}
$grepfor = $aspects{$whut};
# print "Looking for $grepfor\n";
if ($config) {
print "graph_title Varnish $grepfor usage\n";
print "graph_args --base 1000\n";
print "graph_vlabel Activity / \${graph_period}\n";
print "graph_category Varnish\n";
}
$i = 0;
foreach $line (`varnishstat -1`) {
chomp $line;
if ($line =~ /\s+(\d+)\s+\d+\.\d+\s+($grepfor.*)$/) {
$val = $1;
$key = $2;
($printkey = lc ($key)) =~ s/\s/_/g;
if ($config) {
print "$printkey\.label $key\n";
print "$printkey\.type DERIVE\n";
print "$printkey\.min 0\n";
print "$printkey\.draw ";
if ($i == 0) {
print "AREA\n";
} else {
print "STACK\n";
}
$i++;
} else {
print "$printkey\.value $val\n";
}
}
}
exit;