014197f8d3
patch from gall0ws: > It's impossible to get whois right and probably nobody cares about it, > nevertheless this small patch fixes some issues with the current version: > > * use a more common filter for default boilerplate (useful when > following the referral chain) > * updated boilerplate for *.co.uk *.net.uk *.org.uk > * added case *.com *.net (got it from iana.org) > * use ARIN for IPv6 addresses > * when unsure, check first whether whois.nic.$tld exists otherwise > usual fallback to InterNIC > * fixed regexp for the referral chain (case, extra spaces or /) - add usage handling. -- cinap
103 lines
2.4 KiB
Bash
Executable file
103 lines
2.4 KiB
Bash
Executable file
#!/bin/rc
|
|
# print registration data for domain
|
|
rfork e
|
|
noboiler=()
|
|
if (~ $1 -n){
|
|
noboiler=yes
|
|
shift
|
|
}
|
|
if (~ $#* 0 || ~ $1 -*) {
|
|
echo 'iwhois [-n] domain' >[1=2]
|
|
exit usage
|
|
}
|
|
person=`{echo $1|sed s/@.*//}
|
|
fn boilerplate { sed '/>>> ?Last update of ..... database:/,$d' $* }
|
|
|
|
switch($1){
|
|
case *@*
|
|
machine=`{echo $1|sed s/.*@//}
|
|
case *.ca
|
|
machine=whois.cira.ca
|
|
fn boilerplate { grep -v ':[ ]*$' $* }
|
|
case *.us
|
|
machine=whois.nic.us
|
|
fn boilerplate { sed '/^>* Whois database was last updated on/,$d' $* }
|
|
case *.co.uk *.net.uk *.org.uk
|
|
machine=whois.nic.uk
|
|
fn boilerplate { sed '/^-- /,$d' $* }
|
|
case *.ac.uk
|
|
machine=whois.ja.net
|
|
case *.au
|
|
machine=whois.aunic.net
|
|
fn boilerplate { grep -v ':[ ]*$' $* }
|
|
case *.be
|
|
machine=whois.dns.be
|
|
person='-T dn '^$person
|
|
fn boilerplate { cat $* }
|
|
case *.com *.net
|
|
machine=whois.verisign-grs.com
|
|
case *.cn
|
|
machine=whois.cnnic.net.cn
|
|
fn boilerplate { cat $* }
|
|
case *.de
|
|
machine=whois.denic.de
|
|
person='-T dn '^$person
|
|
fn boilerplate { cat $* }
|
|
case *.dk
|
|
machine=whois.dk-hostmaster.dk
|
|
fn boilerplate { grep -v '^#' $* }
|
|
case *.es
|
|
echo no known whois server for .es >[1=2]
|
|
exit '.es not supported'
|
|
case *.fr
|
|
machine=whois.nic.fr
|
|
fn boilerplate { grep -v '^%%' $* }
|
|
case *.in
|
|
machine=whois.inregistry.net
|
|
fn boilerplate { cat $* }
|
|
case *.jp
|
|
machine=whois.jprs.jp
|
|
person=$person^'/e'
|
|
fn boilerplate { cat $* }
|
|
case *.org
|
|
machine=whois.pir.org
|
|
case *.se
|
|
machine=whois.nic-se.se
|
|
fn boilerplate { grep -v '^#' $* | uniq }
|
|
case [0-9]*.[0-9]*.[0-9]*.[0-9]* *:*:*
|
|
machine=whois.arin.net
|
|
fn boilerplate { cat $* }
|
|
case *
|
|
tld=`{echo $1 | sed 's;.*\.(.*)$;\1;'}
|
|
if(ndb/dnsgetip whois.nic.$tld >/dev/null >[2=1])
|
|
machine=whois.nic.$tld
|
|
if not{
|
|
machine=whois.internic.net # alternate: whois.networksolutions.com
|
|
fn boilerplate { cat $* }
|
|
}
|
|
}
|
|
if(! ~ $#noboiler 0)
|
|
fn boilerplate { cat $* }
|
|
file=/tmp/iwhois.$pid
|
|
fn sigexit {
|
|
rm -f $file
|
|
}
|
|
echo $person | telnet -nr tcp!$machine!whois > $file
|
|
x=`{ tr A-Z a-z < $file | sed -n -e 's;.*whois server: ([^ /]+).*$;\1;p' \
|
|
-e 's;.*referralserver: +whois://(.*)(:43)?;\1;p'}
|
|
switch($#x){
|
|
case 0
|
|
; # e.g., for .ca
|
|
case 1
|
|
# chase the referral chain
|
|
echo $person | telnet -nr tcp!$x!whois > $file
|
|
case *
|
|
# echo $0: buggery: `{echo $x | tr ' ' '\12' | sort -u} >[1=2]
|
|
echo $person | telnet -nr tcp!^$x(1)^!whois > $file
|
|
}
|
|
if (test ! -s $file) {
|
|
echo $0: broken whois server tcp!$x!whois returned no data >[1=2]
|
|
exit broken
|
|
}
|
|
boilerplate $file
|