diff options
Diffstat (limited to 'src/pmdas/bonding')
| -rw-r--r-- | src/pmdas/bonding/GNUmakefile | 56 | ||||
| -rwxr-xr-x | src/pmdas/bonding/Install | 41 | ||||
| -rwxr-xr-x | src/pmdas/bonding/Remove | 29 | ||||
| -rw-r--r-- | src/pmdas/bonding/pmdabonding.pl | 154 |
4 files changed, 280 insertions, 0 deletions
diff --git a/src/pmdas/bonding/GNUmakefile b/src/pmdas/bonding/GNUmakefile new file mode 100644 index 0000000..be7f4b6 --- /dev/null +++ b/src/pmdas/bonding/GNUmakefile @@ -0,0 +1,56 @@ +#!gmake +# +# Copyright (c) 2009 Aconex. All Rights Reserved. +# +# This program is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2 of the License, or (at your +# option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License along +# with this program; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA +# + +TOPDIR = ../../.. +include $(TOPDIR)/src/include/builddefs + +IAM = bonding +PMDADIR = $(PCP_PMDAS_DIR)/$(IAM) +LSRCFILES = Install Remove pmda$(IAM).pl +LDIRT = domain.h root pmns *.log $(MAN_PAGES) + +ifneq ($(POD2MAN),) +MAN_SECTION = 1 +MAN_PAGES = pmda$(IAM).$(MAN_SECTION) +MAN_DEST = $(PCP_MAN_DIR)/man$(MAN_SECTION) +endif + +default: check_domain $(MAN_PAGES) + +pmda$(IAM).1: pmda$(IAM).pl + $(POD_MAKERULE) + +include $(BUILDRULES) + +ifeq "$(TARGET_OS)" "linux" +install: default + $(INSTALL) -m 755 -d $(PMDADIR) + $(INSTALL) -m 755 Install Remove $(PMDADIR) + $(INSTALL) -m 644 pmda$(IAM).pl $(PMDADIR)/pmda$(IAM).pl + @$(INSTALL_MAN) +else +install: +endif + +default_pcp : default + +install_pcp : install + +check_domain: ../../pmns/stdpmid + $(DOMAIN_PERLRULE) diff --git a/src/pmdas/bonding/Install b/src/pmdas/bonding/Install new file mode 100755 index 0000000..1abb843 --- /dev/null +++ b/src/pmdas/bonding/Install @@ -0,0 +1,41 @@ +#!/bin/sh +# +# Copyright (c) 2009 Aconex. All Rights Reserved. +# +# This program is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2 of the License, or (at your +# option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License along +# with this program; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA +# +# Install the Bonding PMDA (bonded network interfaces) +# + +. $PCP_DIR/etc/pcp.env +. $PCP_SHARE_DIR/lib/pmdaproc.sh + +iam=bonding +perl_opt=true +daemon_opt=false +forced_restart=false + +if ! test -d /sys/class/net; then + echo "SYSFS not enabled in your kernel" + exit 1 +fi +if ! test -f /sys/class/net/bonding_masters; then + echo "Bonding statistics unavailable (load bonding module)" + exit 1 +fi + +pmdaSetup +pmdaInstall +exit 0 diff --git a/src/pmdas/bonding/Remove b/src/pmdas/bonding/Remove new file mode 100755 index 0000000..04385a5 --- /dev/null +++ b/src/pmdas/bonding/Remove @@ -0,0 +1,29 @@ +#!/bin/sh +# +# Copyright (c) 2009 Aconex. All Rights Reserved. +# +# This program is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2 of the License, or (at your +# option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License along +# with this program; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA +# +# Remove the bonding PMDA +# + +. $PCP_DIR/etc/pcp.env +. $PCP_SHARE_DIR/lib/pmdaproc.sh + +iam=bonding + +pmdaSetup +pmdaRemove +exit 0 diff --git a/src/pmdas/bonding/pmdabonding.pl b/src/pmdas/bonding/pmdabonding.pl new file mode 100644 index 0000000..3a0a0e5 --- /dev/null +++ b/src/pmdas/bonding/pmdabonding.pl @@ -0,0 +1,154 @@ +# +# Copyright (c) 2009 Aconex. All Rights Reserved. +# +# This program is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2 of the License, or (at your +# option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# + +use strict; +use warnings; +use PCP::PMDA; + +my $pmda = PCP::PMDA->new('bonding', 96); +my $sysfs = '/sys/class/net/'; + +sub bonding_interface_check +{ + my @interfaces = (); + my $instanceid = 0; + + if (open(BONDS, $sysfs . 'bonding_masters')) { + my @bonds = split / /, <BONDS>; + foreach my $bond (@bonds) { + chomp $bond; + push @interfaces, $instanceid++, $bond; + } + close BONDS; + } + $pmda->replace_indom(0, \@interfaces); +} + +sub bonding_fetch_callback +{ + my ($cluster, $item, $inst) = @_; + my $metric_name = pmda_pmid_name($cluster, $item); + my ($path, $name, $value, $fh, @vals); + + #$pmda->log("bonding_fetch_callback $metric_name $cluster:$item ($inst)\n"); + + if ($inst == PM_IN_NULL) { return (PM_ERR_INST, 0); } + if (!defined($metric_name)) { return (PM_ERR_PMID, 0); } + + # special case: failures count from /proc (no sysfs equivalent) + if ($item == 7) { + $value = 0; + $name = '/proc/net/bonding/' . 'bond' . $inst; + open($fh, $name) || return (PM_ERR_APPVERSION, 0); + while (<$fh>) { + if (m/^Link Failure Count: (\d+)$/) { $value += $1; } + } + close $fh; + } else { + $name = $metric_name; + $path = $sysfs . 'bond' . $inst . '/bonding/'; + $name =~ s/^bonding\./$path/; + + # special case: mode contains two values (name and type) + if ($item == 5) { $name =~ s/\.type$//; } + if ($item == 6) { $name =~ s/\.name$//; } + + open($fh, $name) || return (PM_ERR_APPVERSION, 0); + $value = <$fh>; + close $fh; + + if (!defined($value)) { return (PM_ERR_APPVERSION, 0); } + if ($item == 5) { @vals = split / /, $value; $value = $vals[1]; } + if ($item == 6) { @vals = split / /, $value; $value = $vals[0]; } + chomp $value; + } + + return ($value, 1); +} + +$pmda->add_metric(pmda_pmid(0,0), PM_TYPE_STRING, 0, PM_SEM_INSTANT, + pmda_units(0,0,0,0,0,0), "bonding.slaves", '', ''); +$pmda->add_metric(pmda_pmid(0,1), PM_TYPE_STRING, 0, PM_SEM_INSTANT, + pmda_units(0,0,0,0,0,0), "bonding.active_slave", '', ''); +$pmda->add_metric(pmda_pmid(0,2), PM_TYPE_U32, 0, PM_SEM_INSTANT, + pmda_units(0,0,0,0,0,0), "bonding.use_carrier", '', ''); +$pmda->add_metric(pmda_pmid(0,3), PM_TYPE_U32, 0, PM_SEM_INSTANT, + pmda_units(0,1,0,0,PM_TIME_MSEC,0), "bonding.updelay", '', ''); +$pmda->add_metric(pmda_pmid(0,4), PM_TYPE_U32, 0, PM_SEM_INSTANT, + pmda_units(0,1,0,0,PM_TIME_MSEC,0), "bonding.downdelay", '', ''); +$pmda->add_metric(pmda_pmid(0,5), PM_TYPE_U32, 0, PM_SEM_INSTANT, + pmda_units(0,0,0,0,0,0), "bonding.mode.type", '', ''); +$pmda->add_metric(pmda_pmid(0,6), PM_TYPE_STRING, 0, PM_SEM_INSTANT, + pmda_units(0,0,0,0,0,0), "bonding.mode.name", '', ''); +$pmda->add_metric(pmda_pmid(0,7), PM_TYPE_U32, 0, PM_SEM_COUNTER, + pmda_units(0,0,1,0,0,PM_COUNT_ONE), "bonding.failures", '', ''); + +$pmda->add_indom(0, [], '', ''); + +$pmda->set_fetch(\&bonding_interface_check); +$pmda->set_instance(\&bonding_interface_check); +$pmda->set_fetch_callback(\&bonding_fetch_callback); +$pmda->set_user('pcp'); +$pmda->run; + +=pod + +=head1 NAME + +pmdabonding - Linux bonded interface performance metrics domain agent (PMDA) + +=head1 DESCRIPTION + +B<pmdabonding> is a Performance Metrics Domain Agent (PMDA) which +exports metric values from bonded network interfaces in the Linux +kernel. + +=head1 INSTALLATION + +If you want access to the names and values for the bonding performance +metrics, do the following as root: + + # cd $PCP_PMDAS_DIR/bonding + # ./Install + +If you want to undo the installation, do the following as root: + + # cd $PCP_PMDAS_DIR/bonding + # ./Remove + +B<pmdabonding> is launched by pmcd(1) and should never be executed +directly. The Install and Remove scripts notify pmcd(1) when +the agent is installed or removed. + +=head1 FILES + +=over + +=item $PCP_PMDAS_DIR/bonding/Install + +installation script for the B<pmdabonding> agent + +=item $PCP_PMDAS_DIR/bonding/Remove + +undo installation script for the B<pmdabonding> agent + +=item $PCP_LOG_DIR/pmcd/bonding.log + +default log file for error messages from B<pmdabonding> + +=back + +=head1 SEE ALSO + +pmcd(1) and ifenslave(8). |