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

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

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

Modified Files:
	mpls_collect_rt_vpnint1.pl.in 
Log Message:
error corrected

Index: mpls_collect_rt_vpnint1.pl.in
===================================================================
RCS file: /cvsroot/nmstools/src/bin/mpls_collect_rt_vpnint1.pl.in,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** mpls_collect_rt_vpnint1.pl.in	18 Nov 2002 11:39:52 -0000	1.1
--- mpls_collect_rt_vpnint1.pl.in	18 Nov 2002 12:43:49 -0000	1.2
***************
*** 34,42 ****
  $workingdir  = $nms_config{'env'}{'DATA'} . '/mpls';
      
  
  
  #Enumerate nodes and collect information
  
! nms_enumnodes( $nodelist, \&cb_collectall );
  
  sub cb_collectall
--- 34,43 ----
  $workingdir  = $nms_config{'env'}{'DATA'} . '/mpls';
      
+ $rt_vpnint1_outfile = $workingdir . '/rt_vpnint1';
  
  
  #Enumerate nodes and collect information
  
! nms_enumnodes( $seednode, \&cb_collectall );
  
  sub cb_collectall
***************
*** 46,50 ****
      # Get "sh running" report
      
!     $telnet->log_file($workingdir . '/rt_vpnint1', "w");
  
      printf $telnet ("show ip route vrf VPN-INT1\r", $_);
--- 47,51 ----
      # Get "sh running" report
      
!     $telnet->log_file($rt_vpnint1_outfile, "w");
  
      printf $telnet ("show ip route vrf VPN-INT1\r", $_);