1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
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).
|
