diff options
Diffstat (limited to 'net/aspathtree/files/patch-lib::getbgptable.pl')
| -rw-r--r-- | net/aspathtree/files/patch-lib::getbgptable.pl | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/net/aspathtree/files/patch-lib::getbgptable.pl b/net/aspathtree/files/patch-lib::getbgptable.pl deleted file mode 100644 index d428d27200d6..000000000000 --- a/net/aspathtree/files/patch-lib::getbgptable.pl +++ /dev/null @@ -1,66 +0,0 @@ ---- lib/getbgptable.pl.orig Thu Feb 6 11:25:26 2003 -+++ lib/getbgptable.pl Thu Feb 6 11:43:58 2003 -@@ -24,10 +24,55 @@ - # ASs (all the ASs in the router BGP table) - # Finally this routine produces a text file containing the raw version of the router table - # and if required log files of both the raw router table and the normalized table. -+ -+ - sub get_bgp_table { - my ($parser, $command, $line) = ('', '', ''); - my (@lines) = (); - -+ use Socket; -+ use Net::Telnet; -+ -+ if (defined($ROUTERUSERPASS)) { -+ -+# TELNET module to get BGP4+ AS Path table -+ -+ if ($ROUTER =~ /^JUNIPER$/i) { -+ $parser = "juniper"; -+ $STATUSCODES = "*> active"; -+ my $telnet_session = new Net::Telnet( -+ prompt => '/[\w().-]*[\$#]\s*$/' -+ ); -+ -+ $telnet_session->open($ROUTERADDR); -+ $telnet_session->login($ROUTERUSER, $ROUTERUSERPASS); -+ $telnet_session->cmd(String => "set cli screen-length 0", Timeout => 1800); -+ -+ @lines = $telnet_session->cmd(String => "show route table inet6.0 all terse", -+ Timeout => 1800); -+ $telnet_session->close; -+ } else { -+ $ROUTER = "CISCO"; -+ $parser = "cisco"; -+ $STATUSCODES = "s suppressed, d damped, h history, * valid, > best, r RIB-failure"; -+ my $telnet_session = new Net::Telnet( -+ prompt => '/[\w().-]*[\$#]\s*$/' -+ ); -+ -+ $telnet_session->open($ROUTERADDR); -+ $telnet_session->login($ROUTERUSER, $ROUTERUSERPASS); -+ $telnet_session->cmd(String => "terminal length 0", Timeout => 1800); -+ -+ @lines = $telnet_session->cmd(String => "show bgp ipv6", -+ Timeout => 1800); -+ $telnet_session->close; -+ } -+# end TELNET module -+ -+ } else { -+ -+# RSH module to get BGP4+ AS Path table -+ - if ($ROUTER =~ /^JUNIPER$/i) { - $parser = "juniper"; - $STATUSCODES = "*> active"; -@@ -58,6 +103,7 @@ - push(@lines, $_); - } - close(OUTPUT); -+ } - chomp(@lines); - # Write log and for web files (raw table) - open(TXTFILE,"> $BGPTABLEFILE"); |