 | ||||||
| << Предыдущая | ИНДЕКС | Поиск в статьях | src | Установить закладку | Перейти на закладку | Следующая >> |
| ||||||
| |||||||||||||||||||||
Ключевые слова: 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 ===
| |||||||||||||||||||||
|
|
|