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