#!/bin/rc
switch($1){
case *@*
	person=`{echo $1|sed s/@.*//}
	machine=`{echo $1|sed s/.*@//}
case *
	person=$1
	machine=rs.internic.net
}
fn boilerplate {
	tail -r $1|sed '/agree to/,$d'|tail -r
}
file=/tmp/iwhois$pid
echo $person | telnet -n tcp!$machine!whois > $file
x=`{ sed -n 's/.*Whois Server: (.*)/\1/p' $file }
switch($x){
case ''
	;
case *
	echo $person | telnet -n tcp!$x!whois > $file
}
boilerplate $file
rm $file