75daff8880
checks IPv6 routes' stability and correctness on IPv6 internet. PR: 48001 Submitted by: Janos Mohacsi <janos.mohacsi@bsd.hu>
66 lines
2 KiB
Perl
66 lines
2 KiB
Perl
--- 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");
|