October 1997 - Test - lists.nanog.org

REMINDER NANOG MEETING
by Pam Ciesla 14 Oct '97

14 Oct '97

The attendee list has been updated. Please check there to see if you have registered and/or paid. The cutoff date for $150 registration fee is 10/20 after then the fee will be $170. If you do not plan to attend please cancel by 10/20 after then there will be a $20 cancelation fee. Any questions please contact me. Thanks xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Pam Ciesla 313-936-0172 - phone Merit Network, Inc. 313-647-3185 - fax University of Michigan 4251 Plymouth Road Bldg. I, Suite C Ann Arbor, MI 48105-2785 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

1 0

Have you been bought by a telco yet?
by Bradley Dunn 13 Oct '97

13 Oct '97

The assimilation continues. http://www.news.com/News/Item/0,4,15154,00.html Bradley

3 2

NSI Bulletin 097-007 | Network Solutions emergency telephone number
by David H. Holtzman 13 Oct '97

13 Oct '97

For after-hours emergencies, such as DNS outages, Network Solutions has implemented the following emergency contact number: (703) 925-6997. This number should be used for InterNIC emergency situations only. For routine requests, such as modifications and billing inquires, please contact the Help Line at (703)742-4777 M-F, 7 a.m. - 9 p.m. Eastern Daylight Time. _____________________________________ David H. Holtzman (dholtz(a)internic.net) Sr Vice President of Engineering Network Solutions, Inc.

1 0

Fall 97 NANOG update...
by Rodney Joffe 13 Oct '97

13 Oct '97

At Bill Norton's suggestion, here's a quick summary of facilities for the Phoenix NANOG: Besides the normal terminal room, we're also deploying 10 BT ethernet hubs (300+ ports) and power receptacles accessable from all seats in the main room. So, bring your laptops (and help us out by bringing ethernet cables if you can). We'll be using DHCP, but will have a few fixed IP addresses available if you must. There will be tables around the entire room for those of you who want to use them (obviously first come etc...). Steve Stuart from DEC has also offered (thanks Steve) to bring his Roam-about wireless stuff, so you can make use of that if he has cards available, or bring your own card and use the network. We're not sure if the roam-about will reach all of the hotel rooms (it is spread out like a resort) so we can't promise. Talking about the hotel, here is some non-technical info: Some of the reasons we picked the hotel: It has a well known micro-brew bar. Cigar room. Fancy coffees. 24 hour room service. Weather at this time is great - high season. The hotel has a really nice swimming pool. Temperatures will be 80s during the day, 50s at night. If you're coming out earlier, Phoenix has great local hiking and climbing, golf, etc. See y'all on the 27th. Rodney Joffe Chief Technology Officer Genuity Inc., a Bechtel company http://www.genuity.net

1 0

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