version 1.1.1.1, 2012/02/21 17:26:12
|
version 1.1.1.3, 2013/07/21 23:54:40
|
Line 37 $ignore{'"router ripng"'} = "ignore";
|
Line 37 $ignore{'"router ripng"'} = "ignore";
|
$ignore{'"router ospf"'} = "ignore"; |
$ignore{'"router ospf"'} = "ignore"; |
$ignore{'"router ospf <0-65535>"'} = "ignore"; |
$ignore{'"router ospf <0-65535>"'} = "ignore"; |
$ignore{'"router ospf6"'} = "ignore"; |
$ignore{'"router ospf6"'} = "ignore"; |
|
$ignore{'"router babel"'} = "ignore"; |
$ignore{'"router bgp " "<1-4294967295>"'} = "ignore"; |
$ignore{'"router bgp " "<1-4294967295>"'} = "ignore"; |
$ignore{'"router bgp " "<1-4294967295>" " view WORD"'} = "ignore"; |
$ignore{'"router bgp " "<1-4294967295>" " view WORD"'} = "ignore"; |
$ignore{'"router isis WORD"'} = "ignore"; |
$ignore{'"router isis WORD"'} = "ignore"; |
Line 62 $ignore{'"show history"'} = "ignore";
|
Line 63 $ignore{'"show history"'} = "ignore";
|
foreach (@ARGV) { |
foreach (@ARGV) { |
$file = $_; |
$file = $_; |
|
|
open (FH, "cpp -DHAVE_CONFIG_H -DVTYSH_EXTRACT_PL -DHAVE_IPV6 -I@top_builddir@ -I@srcdir@/ -I@srcdir@/.. -I@top_srcdir@/lib -I@top_srcdir@/isisd/topology @SNMP_INCLUDES@ $file |"); | open (FH, "@CPP@ -DHAVE_CONFIG_H -DVTYSH_EXTRACT_PL -DHAVE_IPV6 -I@top_builddir@ -I@srcdir@/ -I@srcdir@/.. -I@top_srcdir@/lib -I@top_builddir@/lib -I@top_srcdir@/isisd/topology @CPPFLAGS@ $file |"); |
local $/; undef $/; |
local $/; undef $/; |
$line = <FH>; |
$line = <FH>; |
close (FH); |
close (FH); |
|
|
@defun = ($line =~ /(?:DEFUN|ALIAS)\s*\((.+?)\);?\s?\s?\n/sg); |
@defun = ($line =~ /(?:DEFUN|ALIAS)\s*\((.+?)\);?\s?\s?\n/sg); |
@install = ($line =~ /install_element \(\s*[0-9A-Z_]+,\s*&[^;]*;\s*\n/sg); | @install = ($line =~ /install_element\s*\(\s*[0-9A-Z_]+,\s*&[^;]*;\s*\n/sg); |
|
|
# DEFUN process |
# DEFUN process |
foreach (@defun) { |
foreach (@defun) { |