From 5efe2d5b32d0bcd338c19f7b689886c0abfca6b5 Mon Sep 17 00:00:00 2001 From: uvok cheetah Date: Fri, 25 Aug 2023 20:30:15 +0200 Subject: Add my munin bird plugin --- other_scripts/munin_bird | 247 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 247 insertions(+) create mode 100755 other_scripts/munin_bird diff --git a/other_scripts/munin_bird b/other_scripts/munin_bird new file mode 100755 index 0000000..294104e --- /dev/null +++ b/other_scripts/munin_bird @@ -0,0 +1,247 @@ +#!/usr/bin/perl + +### +# based on https://gallery.munin-monitoring.org/plugins/munin-contrib/bird/ +# which itself seems to be based on https://github.com/luben/bird-multigraph-plugin +## + +use IO::Socket::UNIX; +use Munin::Plugin; +use strict; +use warnings; +use v5.10; + +# get rid of some variables +use feature qw( switch ); +no if $] >= 5.018, warnings => qw( experimental::smartmatch ); + +=head1 NAME + +bird - Munin multigraph plugin to monitor BIRD routing daemon activity + +=head1 APPLICABLE SYSTEMS + +Every system with running bird + +=head1 CONFIGURATION + +The plugin must run with a user or group that could connect to bird +control socket. + +This configuration snipplet is an example with the defaults: + + [bird] + user root + env.protocols BGP + env.socket /var/run/bird.ctl + +=head1 USAGE + +Link this plugin to /etc/munin/plugins/ and restart the munin-node. + +=head1 MAGIC MARKERS + + #%# family=auto + #%# capabilities=autoconf + +=head1 BUGS + +Not known + +=head1 AUTHOR + +Luben Karavelov (karavelov at mail.bg) + +=head1 LICENSE + +Same as perl + +=cut + +need_multigraph(); +my $protocols = [ split(/ /, $ENV{'protocols'} || 'BGP') ]; +my $socket = $ENV{'socket'} || '/var/run/bird/bird.ctl'; + +sub get_stats { + state $stats; + return $stats if defined $stats; + + my $bird_ctl = IO::Socket::UNIX->new( + Type => SOCK_STREAM, + Peer => $socket + ) or die $!; + + my ($protocol,$name); + while (my $var = <$bird_ctl>) { + given($var) { + when (/1002-(\w+)\s+(\w+)\s+.*/) { + ($name, $protocol) = ($1,$2); + next unless $protocol ~~ $protocols; + $stats->{$name}->{protocol} = $protocol; + # fix uninit variable + $stats->{$name}->{title} = $name; + } + when (/^0001 /) { + print $bird_ctl "show protocols all\n"; + next; + } + when (/^0000 /) { + last; + } + when (/^1002- /) { + print; + } + when (/^1006-\s+Description:\s+(.+)$/){ + next unless $protocol ~~ $protocols; + $stats->{$name}->{title} = $1; + } +# when (/^\s+Routes:\s+(\d+)\s+imported,\s+(\d+)\s+exported,\s+(\d+)\s+preferred$/){ + when (/^\s+Routes:\s+(\d+)\s+imported,(?:\s+(\d+)\s+filtered,)?\s+(\d+)\s+exported,\s+(\d+)\s+preferred$/){ + next unless $protocol ~~ $protocols; + $stats->{$name}->{imported} = $1; + $stats->{$name}->{exported} = $2; + $stats->{$name}->{preferred} = $3; + } + # received rejected filtered ignored accepted + when (/^\s+(Import|Export)\s(updates|withdraws):\s+(\d+|-+)\s+(\d+|-+)\s+(\d+|-+)\s+(\d+|-+)\s+(\d+|-+)$/){ + next unless $protocol ~~ $protocols; + $stats->{$name}->{ lc("$1_$2_received") } = $3; + $stats->{$name}->{ lc("$1_$2_rejected") } = $4; + $stats->{$name}->{ lc("$1_$2_filtered") } = $5; + $stats->{$name}->{ lc("$1_$2_ignored" ) } = $6; + $stats->{$name}->{ lc("$1_$2_accepted") } = $7; + } + when (/^$/) { + undef $protocol; + undef $name; + } + } + } + $bird_ctl->close; + return $stats; +} + +sub autoconf { + if (-S $socket) { + say 'yes'; + } else { + say 'no'; + } + exit 0; +} + +sub config { + my $stats = get_stats; + while ( my ($name,$proto) = each %$stats) { + print <{title} +graph_args --base 1000 +graph_vlabel routes +graph_category network +exported.label Exported routes +exported.type GAUGE +exported.info Exported routes +exported.min 0 +exported.draw LINE1 +imported.label Imported routes +imported.type GAUGE +imported.info Impored routes +imported.min 0 +imported.draw LINE1 +preferred.label Preferred routes +preferred.type GAUGE +preferred.info Preferred routes +preferred.min 0 +preferred.draw LINE1 +HEREDOC + print <{title} +graph_args --base 1000 +graph_vlabel routes per second +graph_category network +import_updates_received.label Import updates received +import_updates_received.type DERIVE +import_updates_received.draw LINE1 +import_updates_rejected.label Import updates rejected +import_updates_rejected.type DERIVE +import_updates_rejected.draw LINE1 +import_updates_filtered.label Import updates filtered +import_updates_filtered.type DERIVE +import_updates_filtered.draw LINE1 +import_updates_ignored.label Import updates ignored +import_updates_ignored.type DERIVE +import_updates_ignored.draw LINE1 +import_updates_accepted.label Import updates accepted +import_updates_accepted.type DERIVE +import_updates_accepted.draw LINE1 +import_withdraws_received.label Import withdraws_received +import_withdraws_received.type DERIVE +import_withdraws_received.draw LINE1 +import_withdraws_rejected.label Import withdraws rejected +import_withdraws_rejected.type DERIVE +import_withdraws_rejected.draw LINE1 +import_withdraws_ignored.label Import withdraws ignored +import_withdraws_ignored.type DERIVE +import_withdraws_ignored.draw LINE1 +import_withdraws_accepted.label Import withdraws accepted +import_withdraws_accepted.type DERIVE +import_withdraws_accepted.draw LINE1 +export_updates_received.label Export updates received +export_updates_received.type DERIVE +export_updates_received.draw LINE1 +export_updates_rejected.label Export updates rejected +export_updates_rejected.type DERIVE +export_updates_rejected.draw LINE1 +export_updates_filtered.label Export updates filtered +export_updates_filtered.type DERIVE +export_updates_filtered.draw LINE1 +export_updates_accepted.label Export updates accepted +export_updates_accepted.type DERIVE +export_updates_accepted.draw LINE1 +export_withdraws_received.draw LINE1 +export_withdraws_received.label Export withdraws received +export_withdraws_received.type DERIVE +export_withdraws_accepted.label Export withdraws accepted +export_withdraws_accepted.type DERIVE +export_withdraws_accepted.draw LINE1 +HEREDOC + } +} + +sub fetch { + my $stats = get_stats; + while ( my ($name,$proto) = each %$stats) { + print <{exported} +imported.value $proto->{imported} +preferred.value $proto->{preferred} +multigraph ${name}_activity +import_updates_received.value $proto->{import_updates_received} +import_updates_rejected.value $proto->{import_updates_rejected} +import_updates_filtered.value $proto->{import_updates_filtered} +import_updates_ignored.value $proto->{import_updates_ignored} +import_updates_accepted.value $proto->{import_updates_accepted} +import_withdraws_received.value $proto->{import_withdraws_received} +import_withdraws_rejected.value $proto->{import_withdraws_rejected} +import_withdraws_ignored.value $proto->{import_withdraws_ignored} +import_withdraws_accepted.value $proto->{import_withdraws_accepted} +export_updates_received.value $proto->{export_updates_received} +export_updates_rejected.value $proto->{export_updates_rejected} +export_updates_filtered.value $proto->{export_updates_filtered} +export_updates_accepted.value $proto->{export_updates_accepted} +export_withdraws_received.value $proto->{export_withdraws_received} +export_withdraws_accepted.value $proto->{export_withdraws_accepted} +HEREDOC + } +} + +given ($ARGV[0]) { + when ('autoconf') { autoconf } + when ('config') { config } + default { fetch } +} + + -- cgit v1.2.3