[nmstools-cvs] src/bin isis_collect_spf_log.pl.in,NONE,1.1

[Michel H. <mi...@us...>]

Update of /cvsroot/nmstools/src/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv9389

Added Files:
	isis_collect_spf_log.pl.in 
Log Message:
initial import

--- NEW FILE: isis_collect_spf_log.pl.in ---
#!%%PERL%%
#
# NMSTOOLS -- NMS Helper Tools
# $Id: isis_collect_spf_log.pl.in,v 1.1 2002/12/17 08:21:02 mihahn Exp $
#
# Author: Michel Hahne <morangie at bluemail dot ch>
# Copyright (C) 2001, 2002 Fault Correction and Maintenance, Cablecom GmbH
#
#     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
#
# Revision history:
# $Log: isis_collect_spf_log.pl.in,v $
# Revision 1.1  2002/12/17 08:21:02  mihahn
# initial import
#
# Revision

require '%%NMSTOOLS_HOME%%/lib/lib_nmstools.pl';

$Expect::Log_Stdout=1;

nms_readconfig('devlogin');


my $nodelist = $nms_config{'env'}{'HOME'} . '/lib/route_ref_list';
    
$spflogdir  = $nms_config{'env'}{'DATA'} . '/mpls/spflogs';

   
system("rm -f $spflogdir/* ") != -1 or
    die "Cannot execute: $!";
       


#Enumerate nodes and collect information

nms_enumnodes( $nodelist, \&cb_collectall );

sub cb_collectall
{
    my ($telnet, $node, $hostname) = @_;

    # Get "sh running" report
    
    $telnet->log_file($spflogdir . '/' . $node, "w");

    printf $telnet ("show clock\r", $_);
    $telnet->expect(60, '-re', '\n\w+\#');

    printf $telnet ("show isis spf-log\r", $_);
    $telnet->expect(60, '-re', '\n\w+\#');

    $telnet->log_file(undef);
    
    
}