[24364] in North American Network Operators' Group
getasn 0.5
daemon@ATHENA.MIT.EDU (nikw@martnet.com)
Mon Jun 21 12:37:28 1999
Date: Mon, 21 Jun 1999 12:34:38 -0400 (EDT)
From: "nikw@martnet.com" <nikw@martnet.com>
To: nanog@merit.edu
Errors-To: owner-nanog-outgoing@merit.edu
I haven't seen one of these around, so I wrote one. My comments from the
top of the proggie speak for themselves.
#!/usr/local/bin/perl
#getasn, version .5, June 1999, by N.Weidenbacher (nikw@martnet.com)
#getasn is available from http://www.martnet.com/~nikw/getasn
#The purpose of this software is to find the originating AS of the route
#containing a given IP address or hostname, and to do so in a fun and
#exciting way! That is, you type "getasn www.cisco.com" and you get
#the ASN-CISCO record from the ARIN registry. Needless to say, this
#software is not well-tested at all.
#This software requires the perl Expect module, obtainable from CPAN
#(ftp://ftp.cdrom.com/pub/perl/CPAN), or more specifically,
#ftp://ftp.cdrom.com/pub/perl/CPAN/modules/by-module/Expect. Expect, in
#turn, requires IO::Stty, available from
#ftp://ftp.cdrom.com/pub/perl/CPAN/modules/by-module/IO
#getasn requires an internet connection for three reason.
#1) It may need to do a DNS lookup if you supply a name
#2) It needs to telnet to route-views to get a BGP4 route
#3) It needs to whois to rs.arin.net to look up the ASN.
#getasn has only been tested on Solaris 2.7, but it should work pretty well
#on most unixes whose "host" command produces output similar to Solaris's
#"host". This is a direct result of my lameness.
-nikw
