107 lines
2.6 KiB
Perl
Executable File
107 lines
2.6 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
#
|
|
# Plugin to monitor BGP table summary statistics on a cisco router.
|
|
#
|
|
# Original Author: Peter Holzleitner
|
|
#
|
|
# Revision 1.1 2010/10/14 19:19
|
|
#
|
|
# Configuration variables:
|
|
#
|
|
# iosuser - username (default "")
|
|
# iospass - password (default "")
|
|
#
|
|
# Parameters:
|
|
#
|
|
# config (required)
|
|
#
|
|
# Magic markers (optional - only used by munin-config and some
|
|
# installation scripts):
|
|
#%# family=auto
|
|
|
|
|
|
use Net::Telnet::Cisco;
|
|
use Sys::Syslog;
|
|
|
|
|
|
if ($0 =~ /^(?:|.*\/)cisco_bgp_([^_]+)$/) {
|
|
$host = $1;
|
|
}
|
|
|
|
($^O eq "linux" || $^O eq "openbsd") && Sys::Syslog::setlogsock('unix');
|
|
openlog('munin.bgp', 'cons,pid', 'daemon');
|
|
|
|
|
|
my @BGP_nbr;
|
|
my @BGP_pfx;
|
|
my $tot_pfx;
|
|
my $iosuser = $ENV{iosuser} || "";
|
|
my $iospass = $ENV{iospass} || "";
|
|
|
|
&fetch_bgpstats($host, $iosuser, $iospass);
|
|
|
|
|
|
if ($ARGV[0] and $ARGV[0] eq "config") {
|
|
print "host_name $host\n";
|
|
print "graph_args --base 1024 -l 0 --vertical-label Prefixes\n";
|
|
print "graph_title BGP Neighbour Statistics\n";
|
|
print "graph_category network\n";
|
|
print "graph_info This graph shows the number of BGP prefixes received by neighbour.\n";
|
|
|
|
my($n, $i); $n = scalar @BGP_nbr; $i = 0;
|
|
while($n--) {
|
|
my $neigh = $BGP_nbr[$i++];
|
|
print "n$i.label $neigh\n";
|
|
}
|
|
|
|
# print "total.label Total\n";
|
|
# print "total.info Total number of prefixes in the BGP table\n";
|
|
|
|
} else {
|
|
|
|
my($n, $i); $n = scalar @BGP_nbr; $i = 0;
|
|
while($n--) {
|
|
my $pfx = $BGP_pfx[$i++];
|
|
print "n$i.value $pfx\n";
|
|
}
|
|
# print "total.value $tot_pfx\n";
|
|
}
|
|
|
|
|
|
|
|
|
|
sub fetch_bgpstats
|
|
{
|
|
my $hostname = shift;
|
|
my $username = shift;
|
|
my $password = shift;
|
|
my $session = Net::Telnet::Cisco->new(Host => $host);
|
|
|
|
$session->login($username, $password);
|
|
$session->cmd('terminal length 200');
|
|
$session->cmd('terminal width 200');
|
|
my @output = $session->cmd('show ip bgp summary');
|
|
|
|
# example output of router
|
|
# ------------------------
|
|
# [...]
|
|
# Neighbor V AS MsgRcvd MsgSent TblVer InQ OutQ Up/Down State/PfxRcd
|
|
# 11.111.11.111 4 98765 12403694 509571 308911893 0 0 1d23h 329193
|
|
# 122.122.122.122 4 1234 13242856 383827 308911879 0 0 00:08:22 330761
|
|
|
|
foreach(@output) {
|
|
chomp; s/\r//g;
|
|
$tot_pfx = $1 if /^BGP activity (\d+)\/(\d+) prefixes/;
|
|
syslog('debug', "$hostname: $_\n");
|
|
|
|
next unless /^(\d+\.\d+\.\d+\.\d+)\s+\d+\s+(\d+)\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+[0-9a-z:]+\s+(\d+)/;
|
|
my ($neigh, $as, $pfx) = ($1, $2, $3);
|
|
syslog('debug', "$neigh (AS $as)");
|
|
push @BGP_nbr, "$neigh (AS $as)";
|
|
push @BGP_pfx, $pfx;
|
|
}
|
|
}
|
|
|
|
|
|
# vim:syntax=perl:ts=8
|