On Wed, Feb 25, 2004 at 12:10:05PM -0800, Jim Trocki wrote:
> On Wed, 25 Feb 2004, Mehmet Ali Suzen wrote:
>
> > Hi All,
> > I wrote a simple monitor script to check whether Cisco routers given
> > interface is up or down. Is it worth to publish it as contrib monitor
> > script? If so how?
>
> is it different than this one?
>
> http://ftp.kernel.org/pub/software/admin/mon/contrib/monitors/cisco/
my version is primitive compare to that one and tested only on cisco 2500 series,
relies
on an IoS command. I got an other script which checks CPU utilization
and IP Input load, which returns exit 1 when the value is above the
treshold. Does anyone might need this as well? If so I will post it
to the mailing list.
>
>
> just post your script to the mailing list.
Here is the source:
###################################################################
# Check the given interface of Cisco Router. Return 1
# if line protocol is down.
#
# Arguments it should be in quotes
# "interface_name" : First Argument
# Copyright (C) 2004, Mehmet Ali Suzen <[EMAIL PROTECTED]>
# Kibris.Net Internet Services Nicosia, Cyprus
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
###################################################################
use Net::Telnet::Cisco;
use strict;
my ($router_ip,$password,$password_ena,
$interface_name,$session,@output,$line,
@upinfo,$command,$comment);
$interface_name=$ARGV[0];
##############################################################3
# Change this info to fit your system
$router_ip="your_router_ip";
$password="acess_password";
$password_ena="ena_password";
##############################################################3
$session = Net::Telnet::Cisco->new(Host => $router_ip);
$session->login(Password => $password);
# Execute a command
$session->enable(Password => $password_ena);
#$output= $session->cmd('show interface serial 0 | include line protocol');
$command="show interface $interface_name | include line protocol";
@output= $session->cmd($command);
$line=$output[0];
@upinfo=split(/\s+/,$line);
if( ($upinfo[2] ne ",up") && ($upinfo[6] ne "up") ) {
print "$interface_name down\n";
exit 1;
}
print "$interface_name up\n";
exit 0;
##############################################################3
_______________________________________________
mon mailing list
[EMAIL PROTECTED]
http://linux.kernel.org/mailman/listinfo/mon
