> Is there any whois server who can display ALL domains, no matter which
> registrar registered them? Normally I would have to query internic.net
> about the registrar, then querying it's whois server
Save this as "whois2"
#!/usr/bin/perl
die "Usage: whois2 <domain>\n" unless @ARGV;
$domain = shift;
$cmd1 = 'whois "domain '.$domain.'"';
@out1 = `$cmd1`;
foreach (@out1) {
chop;
/Registrar: (.+)$/ && ($registrar = $1);
/Whois Server: (.+)$/ && ($whois = $1);
/No match for/ && ($nomatch = true);
}
if ($nomatch) {
print "No match for \"" . $domain . "\"\n";
exit;
}
print "\n";
print " Domain: ",$domain, "\n";
print " Registrar: ",$registrar, "\n";
print "Querying whois server: ",$whois, " ... \n";
print "\n";
$cmd2 = $domain.'@'.$whois;
exec 'whois', $cmd2;
__________________________________________________________________
Colin Viebrock easyDNS Technologies
Co-Founder control your domain
http://www.easyDNS.com
