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

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

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

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

--- NEW FILE: mpls_collect_rt_vpnint1.pl.in ---
#!%%PERL%%
#
# NMSTOOLS -- NMS Helper Tools
# $Id: mpls_collect_rt_vpnint1.pl.in,v 1.1 2002/11/18 11:39:52 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:


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

$Expect::Log_Stdout=1;

nms_readconfig('devlogin');

my $seednode = $nms_config{'env'}{'DATA'} . '/mpls/rr_seed';
    
$workingdir  = $nms_config{'env'}{'DATA'} . '/mpls';
    


#Enumerate nodes and collect information

nms_enumnodes( $nodelist, \&cb_collectall );

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

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

    printf $telnet ("show ip route vrf VPN-INT1\r", $_);
    $telnet->expect(60, '-re', '\n\w+\#');

    $telnet->log_file(undef);
    
    
    
    
}