The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги ]

Пример скрипта для ловли BGP trap-ов с Сisco. (perl bgp cisco trap snmp script example)


<< Предыдущая ИНДЕКС Поиск в статьях 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 ===

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

Ваш комментарий
Имя:         
E-Mail:      
Заголовок:
Текст:





  Закладки на сайте
  Проследить за страницей
Created 1996-2017 by Maxim Chirkov  
ДобавитьРекламаВебмастеруГИД  
Hosting by Ihor