Пример скрипта для ловли BGP trap-ов с Сisco. (perl bgp cisco trap snmp script example)
Ключевые слова: perl, bgp, cisco, trap, snmp, script, example, (найти похожие документы)
Date: Tue, 03 Dec 2002 13:23:16 +0500
From: Konstantin Kubatkin <Konstantin_Kubatkin@f13.n468.z2.fidonet.org>
Newsgroups: ftn.ru.cisco
Subject: Пример скрипта для ловли BGP trap-ов с Сisco.
AI> Имеется CISCO с поднятым BGP и "snmp-server enable bgp" + Linux с
AI> ucd-snmp, необходимо отлавливать bgpEstablished и
AI> bgpBackwardTransition. Попытка решить задачу: в snmptrapsd.conf
вот такой скрипт у меня прописанн как default в ucd-snmp и отлично работает:
=== Hачало snmp-trap.pl ===
#!/usr/bin/perl -w
use strict;
$| = 1;
my $debug = 1;
my( $host, $num, $interface, $diag );
while( <STDIN> ) {
chomp;
# &write_log( "$_" );
$host = $1 if /^(\D+).3logic.net$/;
if( /^15.3.1.2.(.*)\s+1$/ ) { $diag = "down"; $host = "bgp"; $interface = $1; }
if( /^15.3.1.2.(.*)\s+6$/ ) { $diag = "up"; $host = "bgp"; $interface = $1; }
}
if( $diag =~ /down/i ) {
# BGP
if( $host eq "bgp" ) {
&write_log( "$host - упала BGP сессия с $interface." );
}
}
# поднялся интерфейс
if( $diag =~ /up/i ) {
# BGP
if( $host eq "bgp" ) {
&write_log( "$host - поднялась BGP сессия с $interface." );
}
}
exit 0;
=== Конец snmp-trap.pl ===
