mirror of
https://github.com/munin-monitoring/contrib.git
synced 2018-11-08 00:59:34 +01:00
111 lines
3.1 KiB
Bash
Executable file
111 lines
3.1 KiB
Bash
Executable file
#!/bin/sh
|
|
# -*- sh -*-
|
|
|
|
: << =cut
|
|
|
|
=pod
|
|
|
|
=encoding UTF-8
|
|
|
|
=head1 NAME
|
|
|
|
tc_ - Plugin to monitor traffic control queue class bandwidth usage
|
|
|
|
=head1 CONFIGURATION
|
|
|
|
None needed.
|
|
|
|
=head1 INTERPRETATION
|
|
|
|
Traffic control is the name given to the sets of queuing systems and mechanisms by which packets are received and transmitted on a router. This includes deciding which (and whether) packets to accept at what rate on the input of an interface and determining which packets to transmit in what order at what rate on the output of an interface.
|
|
|
|
This plugin monitors the bandwidth used by each queue class. The root class will draw as a single line, whereas children will be drawn in a stacked graph. Complex hierarchies which have more than the root and its direct children are not fully supported and may not render correctly.
|
|
|
|
=head1 SEE ALSO
|
|
|
|
"man tc" and "tc -s class show dev <interface>" to get more information about tc and to see the format of the statistics being parsed.
|
|
|
|
=head1 MAGIC MARKERS
|
|
|
|
#%# family=auto
|
|
#%# capabilities=autoconf suggest
|
|
|
|
=head1 AUTHORS
|
|
|
|
Steve Schnepp <steve.schnepp@gmail.com>,
|
|
Samuel Smith <esaym@cpan.org>,
|
|
Nye Liu <nyet@nyet.org>
|
|
|
|
=head1 LICENSE
|
|
|
|
GPLv2 or later
|
|
|
|
=cut
|
|
|
|
DEVICE=${0##*/tc_}
|
|
|
|
mytc() {
|
|
/sbin/tc -s class show dev "$1" | tr "\n" "|" | sed -e "s/ \+/ /g; s/ |/|/g; s/| /|/g; s/||/\n/g; s/|/ /g" | tr ":" "_" | grep -v -i sfq | sort -n
|
|
}
|
|
|
|
case "$1" in
|
|
autoconf)
|
|
if [ -r /proc/net/dev ]; then
|
|
echo yes
|
|
exit 0
|
|
else
|
|
echo "no (/proc/net/dev not found)"
|
|
exit 1
|
|
fi
|
|
;;
|
|
suggest)
|
|
if [ -r /proc/net/dev ]; then
|
|
awk '
|
|
/^ *(eth|tap|bond|wlan|ath|ra|sw)[0-9]+:/ {
|
|
split($0, a, /: */);
|
|
gsub(/^ +/,"",a[1]);
|
|
if (($2 > 0) || ($10 > 0)) print a[1]; }' /proc/net/dev
|
|
fi
|
|
exit 0
|
|
;;
|
|
config)
|
|
echo "graph_order $(mytc "$DEVICE" | awk '{ print $2 "_" $3 }' | tr "\n" " ")"
|
|
echo "graph_title $DEVICE TC traffic"
|
|
echo 'graph_args --base 1000'
|
|
echo 'graph_vlabel bits per ${graph_period}'
|
|
echo 'graph_category network'
|
|
echo "graph_info This graph shows the TC classes traffic of the $DEVICE network interface. Please note that the traffic is shown in bits per second, not bytes."
|
|
|
|
# the root(s)
|
|
mytc "$DEVICE" | grep -v " parent " | tr "_" " " | awk '{
|
|
print $2 "_" $3 "_" $4 ".label " $2 "/" $3 ":" $4;
|
|
print $2 "_" $3 "_" $4 ".type DERIVE";
|
|
print $2 "_" $3 "_" $4 ".min 0";
|
|
print $2 "_" $3 "_" $4 ".cdef " $2 "_" $3 "_" $4 ",8,*";
|
|
}'
|
|
# TODO: only AREASTACK things with no children
|
|
# the child(s)
|
|
mytc "$DEVICE" | grep " parent " | tr "_" " " | awk '{
|
|
print $2 "_" $3 "_" $4 ".label " $2 "/" $3 ":" $4;
|
|
print $2 "_" $3 "_" $4 ".type DERIVE";
|
|
print $2 "_" $3 "_" $4 ".min 0";
|
|
print $2 "_" $3 "_" $4 ".cdef " $2 "_" $3 "_" $4 ",8,*";
|
|
print $2 "_" $3 "_" $4 ".draw AREASTACK";
|
|
}'
|
|
exit 0
|
|
;;
|
|
esac
|
|
|
|
# the root(s)
|
|
mytc "$DEVICE" | grep -v " parent " | awk '{
|
|
split(substr($0, match($0, /[0-9]+ [Bb]ytes/)), a, " ");
|
|
print $2 "_" $3 ".value " a[1];
|
|
}'
|
|
|
|
# the child(s)
|
|
mytc "$DEVICE" | grep " parent " | awk '{
|
|
split(substr($0, match($0, /[0-9]+ [Bb]ytes/)), a, " ");
|
|
print $2 "_" $3 ".value " a[1];
|
|
}'
|
|
|
|
exit 0
|