tmakinen/puppet
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added munin plugins for OpenBSD.

Browse source
This commit is contained in:
Ossi Salmi 2009-09-11 19:59:36 +03:00 • committed by Timo Mkinen
parent 1d260a4997
commit 87afaeb059
11 changed files with 885 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

73
munin/files/plugins/interfaces Executable file
View file

@ -0,0 +1,73 @@
#!/usr/bin/perl -w
#
# Plugin to monitor individual interrupts
#
# $Log$
# Revision 1.7.2.1 2005/02/24 17:33:22 jimmyo
# linux/irqstats should no longer fail on some systems (Deb#296452).
#
#%# family=auto
#%# capabilities=autoconf
use strict;
if (defined $ARGV[0] && $ARGV[0] eq 'autoconf') {
if(-e '/usr/bin/netstat') {
print "yes\n";
exit(0);
} else {
print "no\n";
exit(1);
}
}
open my $in, "/usr/bin/netstat -bin |"
or die "Can't run netstat -bin: $!\n";
my @ifstats;
while (my $line = <$in>) {
if ($line =~ /<Link>/) {
my @values = split(' ', $line);
my $ifname = $values[0];
$ifname =~ s/\*/_/g;
my ($ibytes, $obytes);
if ($values[3] =~ /\:/) {
$ibytes = $values[4];
$obytes = $values[5];
} else {
$ibytes = $values[3];
$obytes = $values[4];
}
push @ifstats, {
ifname => $ifname,
ibytes => $ibytes,
obytes => $obytes
};
}
}
close $in;
if (defined $ARGV[0] && $ARGV[0] eq 'config') {
print "graph_title interface traffic (bytes) \n";
print <<EOM;
graph_args --base 1000
graph_vlabel bytes in(-) / out(+) per \${graph_period}
graph_category network
EOM
print join(' ', 'graph_order', map {$_->{ifname}."_in ".$_->{ifname}."_out"} @ifstats), "\n";
for my $if (@ifstats) {
print $if->{ifname}, '_in.label ', $if->{ifname}, "\n";
print $if->{ifname}, '_out.label ', $if->{ifname}, "\n";
print $if->{ifname}, '_in.info bytes in on: ', $if->{ifname}, "\n";
print $if->{ifname}, '_out.info bytes out on: ', $if->{ifname}, "\n";
print $if->{ifname}, "_in.type COUNTER\n";
print $if->{ifname}, "_out.type COUNTER\n";
print $if->{ifname}, "_in.min 0\n";
print $if->{ifname}, "_out.min 0\n";
print $if->{ifname}, "_in.graph no\n";
print $if->{ifname}, "_out.negative ", $if->{ifname}, "_in\n";
}
} else {
print $_->{ifname}, '_in.value ', $_->{ibytes}, "\n" for @ifstats;
print $_->{ifname}, '_out.value ', $_->{obytes}, "\n" for @ifstats;
}