- Test - lists.nanog.org

Multihoming at same NAP/IX?
by Hank Nussbacher 13 Oct '97

13 Oct '97

This is a general question directed to the operators of NAPs or IXs. If company X buys a port, but wants to buy another port for backup purposes, is the 2nd port offered at the same cost, or at a reduced cost? Thanks, Hank

2 1

Looking Glass Source
by Mark Tripod 13 Oct '97

13 Oct '97

To all interested parties: The availability of this code is being made public in the hope that other ISPs will put up trouble shooting sites of their own. I beleive that the more troubleshooting sites publicly available at the major exchange points the better. I make no guarantees as to the stability or portibility of this code. I have it running on an Ultra 1 with Solaris 2.5.1 and Apache 1.2.4 with mod_perl. I can see no reason why it wouldn't run on any web server with perl installed on it seperately. The code, as written, requires perl 5.004. With a few variable declaration changes it can be made to run under 5.002. It also requires the Net::Telnet module which can be found on CPAN and installed in a matter of minutes. It also requires the CGI module which comes standard with the 5.004 release of PERL. There are five variable near the beginning of the code that need to be defined before this program will work properly. Now that all of that is said, enjoy! Mark Tripod Senior Backbone Engineer Exodus Communications --- CODE BEGINS HERE --- #!/usr/local/bin/perl -w ######################################################### # # # CGI program to allow NCC engineers # # to access our routers for troubleshooting # # purposes. # # # # Mark Tripod Exodus Communications # # 9/23/97 # # # ######################################################### use strict; use Net::Telnet; use CGI; require 5.004; # With a few minor code modifications this could be # changed to 5.002 ################ # Begin MAIN # ################ # Global variables use vars qw(@return $site $router %Sites); ############ # DEFINE THESE VARIABLE FIRST ############ my $company = ''; # Company name for WWW header my $logo = '/icons/logo.gif'; # Path to company logo (if exists) my $timeout = '45'; # Time to wait for remote command to respond my $user = ''; # User ID to login to routers my $passwd = ''; # Router login password my $email = ''; # email account to send comments to # Sites passed over command line must be defined # in a file called "looking-glass.sites". # The file format is a two column tab seperated list containing # the site name in the first column and the router IP # address in the second column. Each line contains one site entry. # This is done not only for cleaner looking URIs, # but for security reasons also. open(SITES, 'looking-glass.sites') || die "Looking Glass Sites: $!\n"; while( defined( my $var = <SITES> ) ) { my ($sitename, $siteip) = split(/\t/, $var); $Sites{$sitename} = $siteip; } close(SITES); my $q = new CGI; $q->use_named_parameters(1); #$q->nph(1); # I was playing with using non-parsed headers for the tracing # and ping utilities, but I haven't had time to work out all # of the buffering issues. print $q->header(); if ($q->request_method eq 'POST') { &ExecCmd(); &DisplayResult(); } elsif ($q->request_method eq 'GET') { # Site to look into comes from command line (or in this case # the text after the "?" in the HTML link) $site = shift; die &Usage() unless $site; $router = $Sites{$site}; &DisplayForm(); } else { &DisplayForm(); } print "<HR SIZE=2 WIDTH=85%>"; print "<I><CENTER>Please email questions/comments to $email</CENTER></I>"; print $q->end_html(); ############## # End MAIN # ############## sub DisplayForm { my $Site; if ($Sites{$site} eq '') { &NoSupport(); return; } if ($site eq 'Mae-West-mfs') { $Site = 'Mae-West (MFS)'; } elsif ($site eq 'Mae-West-ames') { $Site = 'Mae-West (AMES)'; } else { $Site = $site; } # Some JavaScript for a help button that is displayed. I use the help window to # display an explaination for each of the commands listed on the web page # as well as list pointers to Ciscos online documentation if more information # is needed. print <<"Script"; <SCRIPT> function HelpWin() { Win1=open('/public/look_help.html',"HelpWin","height=400,width=400,scrollbars=yes,resize=yes"); } </SCRIPT> Script print $q->start_html('title'=>"$company : $Site Looking Glass", 'BGCOLOR'=>'FFFFFF', 'TEXT'=>'0F0F0F' ); print "<IMG SRC=\"$logo\">\n"; print "<H2><CENTER>$Site Looking Glass</CENTER><BR></H2>\n"; print $q->start_form(); print $q->hidden('name'=>'site', 'default'=>$site); print "Select a query type:<BR><BR>\n"; # Leading spaces are needed in the value list below to keep # the radio button names from being displayed right next # to the buttons themselves. I supposed I could strip them, # but I can't see any useful reason to do so. print $q->radio_group( 'name'=>'query_type', 'values'=>[' Access List', ' BGP', ' BGP Summary', ' Dampened AS Paths', ' Environmental', ' Route Flap Statistics', ' Ping from this site', ' Trace from this site'], 'default'=>' BGP', 'rows'=>'3', 'cols'=>'3', 'linebreak'=>'true' ); print "<BR><BR>Address: "; print $q->textfield( 'name'=>'address', 'size'=>'18'); print "<BR><BR>\n"; print "<TABLE WIDTH=100\%>"; print "<TR><TD WIDTH=33\%><CENTER>", $q->submit('Submit'), "</CENTER>\n"; print "<TD WIDTH=33\%><CENTER>"; print "<INPUT TYPE=button NAME=but1 VALUE=\"View Help\" onclick=\"HelpWin()\"></CENTER>\n"; print "<TD WIDTH=33\%><CENTER>", $q->reset(), "</CENTER>\n"; print "</TABLE>"; print "<BR>\n"; print $q->endform(); } sub ExecCmd { # Translate commands into usable router statements. my %Commands = ( ' Access List' => 'sh ip access-list', ' BGP' => 'sh ip bgp', ' BGP Summary' => 'sh ip bgp sum', ' Dampened AS Paths' => 'sh ip bgp damp', ' Environmental' => 'sh env all', ' Route Flap Statistics' => 'sh ip bgp flap', ' Ping from this site' => 'ping', ' Trace from this site' => 'trace' ); my $cmd = $Commands{$q->param('query_type')}; my $address = $q->param('address'); my $router = $Sites{$q->param('site')}; $site = $q->param('site'); my $connection = new Net::Telnet (Host => "$router", Timeout => 10, Prompt => '/[\w\-]+>$/'); $connection->login($user, $passwd); $connection->timeout($timeout); $connection->errmode('return'); $connection->max_buffer_length('3048576'); unless ($connection->cmd("terminal length 0")) { print "Can't set terminal length"; } if (($address ne "") && (($q->param('query_type') eq ' BGP') || ($cmd eq 'ping') || ($cmd eq 'trace'))) { @return = $connection->cmd("$cmd $address"); if ($connection->timed_out()) { @return = 'Command timed out'; } } elsif (($address eq "") && ($q->param('query_type') eq ' BGP')) { # I really don't want to kill my routers or the web server just # because an experienced NOC person didn't bother to read the # help page. @return = 'It is not recommended that the BGP table be queried without '. 'an address entry. <BR>This would cause a dump of the entire '. 'BGP route table (over 40,000 routes).'; } else { @return = $connection->cmd("$cmd"); if ($address ne "") { $address =~ s/\./\\./g; my @lines = grep(/$address/, @return); @lines = 'No matches found.' unless @lines; unshift(@lines, "\n"); # I like things to look nice! my @head = splice(@return, 0, 4); @return = @head; while( defined( my $var = shift( @lines ) ) ) { push(@return, $var); } } if ($connection->timed_out()) { @return = 'Command timed out'; } } $connection->close; } sub DisplayResult { my $Site; if ($site eq 'Mae-West-mfs') { $Site = 'Mae-West (MFS)'; } elsif ($site eq 'Mae-West-ames') { $Site = 'Mae-West (AMES)'; } else { $Site = $site; } print $q->start_html( 'title'=>"$company : $Site Query Results", 'BGCOLOR'=>'FFFFFF', 'TEXT'=>'000000' ); print "<IMG SRC=\"$logo\">\n"; print "<H2><CENTER>$Site Query Results</CENTER><BR></H2>\n"; print "<PRE>\n"; print "@return<BR>\n"; print "</PRE>\n"; } sub Usage { print $q->start_html("Error"); print "Program cannot be run without a site designation<BR>\n"; print $q->end_html; exit; } sub NoSupport { print $q->start_html('title'=>"$company : $site Looking Glass", 'BGCOLOR'=>'FFFFFF', 'TEXT'=>'0F0F0F' ); print "<IMG SRC=\"$logo\">\n"; print "<H2><CENTER>$site is not yet supported.</CENTER></H2>"; } --- CODE ENDS HERE ---

1 0

Re: BGP tables
by mark＠exodus.net 13 Oct '97

13 Oct '97

I have an exact copy of the nitrous.digex.net page running internally for our NCC. I wrote it all in PERL. I am still fixing up a few pieces of the code (namely the ping and traceroute functions), but when I am finished I would be more than happy to share it with anyone that wants it. I should note that it is written to be utilized on Cisco routers with rsh enabled. Mark Tripod Senior Backbone Engineer Exodus Commuications ---- From: miguel a.l. paraz <map(a)iphil.net> To: nanog(a)merit.edu Cc: Gary Mensenares <jug(a)iphil.net> Date: Saturday, October 11, 1997 6:17 AM Subject: Re: BGP tables On Sat, 11 Oct 1997, Alex Rubenstein wrote: > Question is; would Digex share the source to those tools, so that others > could provide the same? It seems like a perl/expect combination. If folks want to cook up a freely redistributable implementation, I can assist. Cheers, -- miguel a.l. paraz <map(a)iphil.net> / IPhil Communications / +63-2-750-2288

4 3

Re: [NOOP] 24x7 NOC..
by Todd Graham Lewis 11 Oct '97

11 Oct '97

The way our NOC does it is: - alternating between 3 and 4 days per week - 12 hours per day - two people per shift This makes for an average of 42 hours per week and a four shifts of two people, or a staff of eight. Keeping a ringer in the rotation is probably not a bad idea either, and of course fnord! a manager is needed, bringing the total to ten. This is not my department, so I'm not the expert I pretend to be. -- "I always drive properly. A bit fast, perhaps, but always with consummate skill and a natural feel for the road that even cops recognize. No cop was ever born who isn't a sucker for a finely-executed hi-speed Controlled Drift all the way around one of those cloverleaf freeway interchanges." -- HST

1 0

BGP tables
by Ben Kirkpatrick, ELI 11 Oct '97

11 Oct '97

I'm interested in trading a full BGP table once a day/week to be used for trouble shooting some of our announcements. Are people doing this already? --Ben Kirkpatrick Data Products, Electric Lightwave, DD: 360-816-3508

8 8

Operational issue - mae-east
by dlr＠bungi.com 11 Oct '97

11 Oct '97

I'm seeing 50%+ loss rates to the majority of my peers at mae-east. currently (15:00 EDT, 12:00 PDT). The sessions are not flapping, yet, but very high loss... Anyone else see this? Dave Rand -- Dave Rand dlr(a)bungi.com http://www.bungi.com

2 1

Re: MAE-East Down better than up?
by Hank Nussbacher 11 Oct '97

11 Oct '97

At 11:45 AM 10/11/97 -0400, Jon Lewis wrote: >On Sat, 11 Oct 1997, Alec H. Peterson wrote: > >> > Is it just me, or is there a moral here ... >> >> Well, it _is_ Saturday morning, which is typically a very light time >> of day traffic-wise. > >Even connectivity between UUNet and Sprint is good today. Now we just >have to figure out how to make it always be Saturday morning. And Yom Kippur :-) -Hank

1 0

MAE-East Down better than up?
by Alex Bligh 11 Oct '97

11 Oct '97

I'm sitting here with most of my MAE-East peers down, expecting chaos and packet loss everywhere. However, generally speaking the world seems to be performing far better than with it up. I can reach Microsoft with no packet loss. When MAE-East was up, record was 75% packet loss ("that's normal" was the response). I'd figured all the other IXPs would be congestion hell. Not from here. Is it just me, or is there a moral here ... -- Alex Bligh GX Networks (formerly Xara Networks)

3 2

70,000 entries?
by jamie＠intuition.iagnet.net 11 Oct '97

11 Oct '97

core1.cleveland#sho ip bgp su BGP table version is 15580314, main routing table version 15580314 70616 network entries (185718/338586 paths) using 20414408 bytes of memory 18570 BGP path attribute entries using 2496004 bytes of memory 16788 BGP route-map cache entries using 268608 bytes of memory 0 BGP filter-list cache entries using 0 bytes of memory 69818 received paths for inbound soft reconfiguration -- jamie g.k. rishaw dal/efnet:gavroche __ IAGnet/CICNet/netILLINOIS Netops DID:216.902.5455 FAX:216.623.3566 \/ 800.637.4IAGx5455 "No. I'm *not* going to walk a nun through a router config." -dan(a)nic.net Forget regret, or life is yours to miss -- RENT

1 0

RE: Mae-East Reboot?
by McElearney, Kevin 10 Oct '97

10 Oct '97

We are also seeing several daily "batch" peer state flaps. The WorldCom NOC reports that @02:30 EDT they will be replacing several switches. Kevin McElearney MediaOne > -----Original Message----- > From: Justin W. Newton [SMTP:justin@priori.net] > Sent: Wednesday, October 08, 1997 5:02 PM > To: J.D. Falk; Deepak Jain > Cc: nanog(a)merit.edu > Subject: Re: Mae-East Reboot? > > At 09:43 PM 10/7/97 -0700, J.D. Falk wrote: > >On Oct 7, Deepak Jain <deepak(a)jain.com> wrote: > > > >> Was the Mae-East reboot scheduled or unscheduled? > > > > MFS seems to think it was scheduled, but I don't know anybody > > besides them who had heard about it beforehand. > > What appears to be happening is that trunking between the switches > appears > to be intermittently failing (its the only explanation that I can come > up > with for suddenly losing all of the peers on one switch, and then > getting > them back a few moments later). I haven't seen any new problems with > it > since about 9pm PST (or is it PDT now, I can never remember) last > night. > When the connections are up it appears that the trunking between > several of > the Gigaswitches is saturated and needs to be increased. I am > currently > working on graphing packet loss and latency between my router and > routers > on other switches. (Yes, I know this isn't terribly precise, but its > better > than nothing). > > I wonder if the congestion between the AMES site and the MFS site for > MAE > West will be cleared up any time soon. (Kudos to the NASA folks for > god > responsiveness on this issue, actually, I'll trust that they will get > something done). > > ************************************************************** > Justin W. Newton voice: +1-650-482-2840 > Senior Network Architect fax: +1-650-482-2844 > PRIORI NETWORKS, INC. http://www.priori.net > Legislative and Policy Director, ISP/C http://www.ispc.org > "The People You Know. The People You Trust." > **************************************************************

1 0