From 932ba3888e62854d82b067646b799e1a8ca5e9af Mon Sep 17 00:00:00 2001 From: uvok cheetah Date: Mon, 4 Sep 2023 19:58:51 +0200 Subject: bird,munin: Add filtered routes, fix uninit vars --- other_scripts/munin_bird | 254 ----------------------------------------------- 1 file changed, 254 deletions(-) delete mode 100755 other_scripts/munin_bird (limited to 'other_scripts/munin_bird') diff --git a/other_scripts/munin_bird b/other_scripts/munin_bird deleted file mode 100755 index ad6b9ca..0000000 --- a/other_scripts/munin_bird +++ /dev/null @@ -1,254 +0,0 @@ -#!/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; - } - # no filtered present - when (/^\s+Routes:\s+(\d+)\s+imported,\s+(\d+)\s+exported,\s+(\d+)\s+preferred$/){ - next unless $protocol ~~ $protocols; - $stats->{$name}->{imported} = $1; - $stats->{$name}->{exported} = $2; - $stats->{$name}->{preferred} = $3; - } - # filtered present - 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} = $3; - $stats->{$name}->{preferred} = $4; - } - # 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