note
fokat
<p>[Kanji] said:</p>
<blockquote>I second the use of DNS instead of whois.</blockquote>
<p>but [himanh] said...</p>
<blockquote>Basically checking if any of my domains are transferred or still with me.</blockquote>
<p>So, if [himanh] asks <strong>his</strong> DNS server, he will always believe the domain is with him. Just wanted to throw in this advice.</p>
<p>If you want to make it work, you need to ask a root name server for the delegation information to reach to the name servers. For instance...</p>
<code>#!/usr/bin/perl -w
use strict;
use NetAddr::IP;
use Net::DNS::Resolver;
my $res = new Net::DNS::Resolver;
# For domains in CCTLDs, you need to ask root-servers.net instead
# and follow the delegation chain.
$res->nameservers(NetAddr::IP->new("g.gtld-servers.net")->addr);
for my $dom (map { chomp; $_ } <DATA>)
{
my $packet = $res->query($dom, 'NS');
# No answer received...
unless ($packet)
{
warn "No response for $dom\n";
next;
}
# A DNS answer (response) was received but ...
my @answer = $packet->answer;
# ... it might not contain real answers ...
unless (@answer)
{
warn "Response packet contains no answer section for $dom\n";
next;
}
# ... or it might be what I am looking for.
for my $s (@answer)
{
next unless $s->type eq 'NS';
print "$dom: ", $s->nsdname, "\n";
}
}
__END__
google.com
yahoo.com
aol.com</code>
<p>will answer the right people for the 7 gTLDs. <em>This is only slightly tested</em> and you might need to change the gtld server to use.</p>
<p>This code should give you something to start playing with...</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-107541">
<P>Best regards</P>
<P>-<A HREF="http://mipagina.cantv.net/lem/">lem</A>, but some call me fokat
</div></div>
421334
421379