#!/bin/rc
rfork n
ramfs
for (i in $*){
hget 'http://www.dnsstuff.com/tools/whois.ch?ip='^$i^'&email=on' |
htmlfmt > /tmp/iwhois
if ( grep -s 'Unfortunately, this domain is registered through Network Solutions' /tmp/iwhois )
/rc/bin/iwhois $i
if not
sed '
/^[#%]$/d
/^[%#] /d
/^$/d
/^Found .* Looking up$/d
/^WHOIS results for/d
/^I was referred to /d
/^Using [0-9]+ day old cached answer/d
/^Generated by/d
/^Displaying E-mail address/d
/The Data in the Tucows Registrar/,$d
/^--$/,$d
/^=======$/,$d
/^\[The following lines added by www.dnsstuff.com/,$d
' /tmp/iwhois
}
|