summaryrefslogtreecommitdiff
path: root/other_scripts
diff options
context:
space:
mode:
Diffstat (limited to 'other_scripts')
-rwxr-xr-xother_scripts/munin_bird247
1 files changed, 247 insertions, 0 deletions
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 <<HEREDOC;
+multigraph ${name}_routes
+graph_title bird routes for $proto->{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 <<HEREDOC;
+multigraph ${name}_activity
+graph_title bird activity for $proto->{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 <<HEREDOC;
+multigraph ${name}_routes
+exported.value $proto->{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 }
+}
+
+