tyler.durden
/
pandorafms
mirror of https://github.com/pandorafms/pandorafms.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

2010-05-11 Sancho Lerena <slerena@artica.es> 

* util/plugin/bgp_plugin.pl: New plugin: Connect the device via SNMP
        and performs a check of each BGP connection to verify its active
        status. If cannot connect or BGP has no connection or a single
        connection its down, returns a CRITICAL state. It uses password to
        provide SNMP community for device. It should work with SNMP v1 and v2c




git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@2693 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
slerena 2010-05-11 14:54:52 +00:00
parent e03e5f434f
commit 624281452f
2 changed files with 217 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pandora_server/ChangeLog
View File

@ -1,5 +1,11 @@
2010-05-11 Sancho Lerena <slerena@artica.es>
* util/plugin/bgp_plugin.pl: New plugin: Connect the device via SNMP
and performs a check of each BGP connection to verify its active
status. If cannot connect or BGP has no connection or a single
connection its down, returns a CRITICAL state. It uses password to
provide SNMP community for device. It should work with SNMP v1 and v2c
* util/dns_plugin.sh: New DNS plugin for the Plugin Server. It
checks a Domain/IP pair and also get time to get response from
a given DNS server (ms).

211
pandora_server/util/plugin/bgp_plugin.pl Executable file
View File

@ -0,0 +1,211 @@
#!/usr/bin/perl -w
#
# Router bgp (Border Gateway Protocol v4 ) monitor
# look at each router and get the status of all is BGP neighbour
# Adapted version for a Pandora FMS server plugin
# Copyright 2002, Marc Hauswirth, Safe Host SA <marc@safehostnet.com>
# Copyright 2006, Val Glinskiy, <vglinskiy@gmail.com>
# Copyright 2010, Sancho Lerena <slerena@artica.es>
# Some inspiration was taken from Marc Hauswirth's script http://www.kernel.org/pub/software/admin/mon/contrib/monitors/bgp/bgp.monitor
# Modified to get bad status on a non-BGP device.
# License: GNU GPL v2, see http://www.gnu.org/copyleft/gpl.html
#
# This script needs the Net::SNMP module
my $version=1;
use Net::SNMP qw(:snmp);
use strict;
use Getopt::Long;
sub print_usage () {
print "Usage: $0 -r <router> -c <community> [-hV]\n";
print "\n";
exit;
}
my ($opt_v, $opt_h, $opt_r, $verbose, $router, $community);
my %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3);
GetOptions
("h" => \$opt_h, "help" => \$opt_h,
"r=s" => \$opt_r, "router=s" => \$opt_r,
"c=s" => \$community, "community=s" => \$community,
"v" => \$opt_v, "verbose" => \$opt_v);
if ($opt_v) {
print "\n";
print "check_bgp_snmp Pandora FMS server plugin version $version\n";
print "\n";
print_usage();
}
if ($opt_h) {
print_usage();
}
if ( !defined($opt_r) || !defined($community) ){
print_usage();
}
# OID's to the SNMP elements that I want to show...
# From Cisco's MIB and RFC's
# http://tools.cisco.com/Support/SNMP/do/BrowseMIB.do?local=en&step=2&mibName=BGP4-MIB
my %oids = (
"SysUptime" => "1.3.6.1.2.1.1.3.0",
"bgpVersion" => "1.3.6.1.2.1.15.1.0",
"bgpLocalAs" => "1.3.6.1.2.1.15.2.0",
# "bgpPeerTable" => "1.3.6.1.2.1.15.3",
"bgpPeerEntry" => "1.3.6.1.2.1.15.3.1",
"bgpPeerIdentifier" => "1.3.6.1.2.1.15.3.1.1",
"bgpPeerState" => "1.3.6.1.2.1.15.3.1.2",
"bgpPeerAdminStatus" => "1.3.6.1.2.1.15.3.1.3",
"bgpPeerNegotiatedVersion" => "1.3.6.1.2.1.15.3.1.4",
"bgpPeerLocalAddr" => "1.3.6.1.2.1.15.3.1.5",
"bgpPeerLocalPort" => "1.3.6.1.2.1.15.3.1.6",
"bgpPeerRemoteAddr" => "1.3.6.1.2.1.15.3.1.7",
"bgpPeerRemotePort" => "1.3.6.1.2.1.15.3.1.8",
"bgpPeerRemoteAs" => "1.3.6.1.2.1.15.3.1.9",
"bgpPeerInUpdates" => "1.3.6.1.2.1.15.3.1.10",
"bgpPeerOutUpdates" => "1.3.6.1.2.1.15.3.1.11",
"bgpPeerInTotalMessages" => "1.3.6.1.2.1.15.3.1.12",
"bgpPeerOutTotalMessages" => "1.3.6.1.2.1.15.3.1.13",
"bgpPeerLastError" => "1.3.6.1.2.1.15.3.1.14",
"bgpPeerFsmEstablishedTransitions" => "1.3.6.1.2.1.15.3.1.15",
"bgpPeerFsmEstablishedTime" => "1.3.6.1.2.1.15.3.1.16",
"bgpPeerConnectRetryInterval" => "1.3.6.1.2.1.15.3.1.17",
"bgpPeerHoldTime" => "1.3.6.1.2.1.15.3.1.18",
"bgpPeerKeepAlive" => "1.3.6.1.2.1.15.3.1.19",
"bgpPeerHoldTimeConfigured" => "1.3.6.1.2.1.15.3.1.20",
"bgpPeerKeepAliveConfigured" => "1.3.6.1.2.1.15.3.1.21",
"bgpPeerMinASOriginationInterval" => "1.3.6.1.2.1.15.3.1.22",
"bgpPeerMinRouteAdvertisementInterval" => "1.3.6.1.2.1.15.3.1.23",
"bgpPeerInUpdateElapsedTime" => "1.3.6.1.2.1.15.3.1.24",
"bgpIdentifier" => "1.3.6.1.2.1.15.4",
"bgpRcvdPathAttrTable" => "1.3.6.1.2.1.15.5",
"bgp4PathAttrTable" => "1.3.6.1.2.1.15.6",
"bgpPathAttrEntry" => "1.3.6.1.2.1.15.5.1",
"bgpPathAttrPeer" => "1.3.6.1.2.1.15.5.1.1",
"bgpPathAttrDestNetwork" => "1.3.6.1.2.1.15.5.1.2",
"bgpPathAttrOrigin" => "1.3.6.1.2.1.15.5.1.3",
"bgpPathAttrASPath" => "1.3.6.1.2.1.15.5.1.4",
"bgpPathAttrNextHop" => "1.3.6.1.2.1.15.5.1.5",
"bgpPathAttrInterASMetric" => "1.3.6.1.2.1.15.5.1.6",
"bgp4PathAttrEntry" => "1.3.6.1.2.1.15.6.1",
"bgp4PathAttrPeer" => "1.3.6.1.2.1.15.6.1.1",
"bgp4PathAttrIpAddrPrefixLen" => "1.3.6.1.2.1.15.6.1.2",
"bgp4PathAttrIpAddrPrefix" => "1.3.6.1.2.1.15.6.1.3",
"bgp4PathAttrOrigin" => "1.3.6.1.2.1.15.6.1.4",
"bgp4PathAttrASPathSegment" => "1.3.6.1.2.1.15.6.1.5",
"bgp4PathAttrNextHop" => "1.3.6.1.2.1.15.6.1.6",
"bgp4PathAttrMultiExitDisc" => "1.3.6.1.2.1.15.6.1.7",
"bgp4PathAttrLocalPref" => "1.3.6.1.2.1.15.6.1.8",
"bgp4PathAttrAtomicAggregate" => "1.3.6.1.2.1.15.6.1.9",
"bgp4PathAttrAggregatorAS" => "1.3.6.1.2.1.15.6.1.10",
"bgp4PathAttrAggregatorAddr" => "1.3.6.1.2.1.15.6.1.11",
"bgp4PathAttrCalcLocalPref" => "1.3.6.1.2.1.15.6.1.12",
"bgp4PathAttrBest" => "1.3.6.1.2.1.15.6.1.13",
"bgp4PathAttrUnknown" => "1.3.6.1.2.1.15.6.1.14",
);
my %BgpPeerState = (
1 => "idle",
2 => "connect",
3 => "active",
4 => "opensnet",
5 => "openconfirm",
6 => "established"
);
my %BgpPeerAdminState = (
1 => "stop",
2 => "start"
);
if ($opt_r) {
$router= $opt_r;
# Get some infos about this router
my ($sess, $error) = Net::SNMP->session ( -hostname => $router, -community => $community, -version => 2 );
if(!defined($sess)) {
#print("SESSION ERROR: $error\n");
print ("0\n");
exit;
}
# if you get "Message size exceeded buffer maxMsgSize" error, try reducing -maxrepetitions
my $results = $sess->get_bulk_request(-varbindlist => [$oids{bgpPeerRemoteAddr}], -maxrepetitions =>20 );
if (!defined($results)){
# print "ERROR: $oids{bgpPeerRemoteAddr} No results $sess->error \n";
print ("0\n");
exit;
}
my $key;
my %vals=%{$results};
my $valid_keys = 0;
foreach $key (keys %vals) {
if(oid_base_match($oids{bgpPeerRemoteAddr}, $key)) {
$valid_keys++;
my $PeerState;
my $oidPeerStatus=$oids{bgpPeerState}.".".$vals{$key};
$PeerState = $sess->get_request(-varbindlist => [$oidPeerStatus]);
my $oidInPrefixes=$oids{bgpPeerInUpdates}.".".$vals{$key};
my $InPrefixStatus;
$InPrefixStatus = $sess->get_request(-varbindlist => [$oidInPrefixes]);
if (!defined($PeerState)){
# print "ERROR: $oidPeerStatus No results $sess->error\n";
print ("0\n");
exit;
}
if (!defined($InPrefixStatus)) {
# print "ERROR: $InPrefixStatus No results $sess->error\n";
print ("0\n");
exit;
}
# Let's check neighbor's state. If it's not "established" and not administratively down , send alarm
if ( $BgpPeerState{$PeerState->{$oidPeerStatus}} ne "established" ) {
my $oidNeighborAdminStatus= $oids{bgpPeerAdminStatus}.".".$vals{$key};
my $NeighborAdminStatus = $sess->get_request(-varbindlist => [$oidNeighborAdminStatus]);
if ( $NeighborAdminStatus -> {$oidNeighborAdminStatus} == 2 ) {
# print ("ERROR: Neighbor $vals{$key} is $BgpPeerState{$PeerState->{$oidPeerStatus}}\n");
print ("0\n");
exit;
}
}
else {
if(($InPrefixStatus ->{$oidInPrefixes}) == 0) {
# print "Neighbor $vals{$key} sends 0 prefixes\n";
print ("0\n");
exit;
}
}
}
}
# If doesnt have any BGP information, exit. BGP not good (modified from original nagios plugin)
if ($valid_keys == 0){
print "0\n";
exit;
}
$sess->close;
# print(" All BGP Neighbors are sending updates\n");
print ("1\n");
exit;
}