🚀 go-pugleaf

Pawel Krawczyk <kravietz@pipeta.chemia.pk.edu.pl> wrote:
: In pl.comp.lang.perl Piotr Piatkowski <kompas@galaxy.uci.agh.edu.pl> wrote:

: > Czy przez nazwę kanoniczną rozumiesz CNAME? Jeżeli tak, to się nie da :-)
: > Przynajmniej nie w dopuszalnie krótkim czasie. Problem jest mniej więcej taki 
: > sam, jak z odkowaniam hasła z /etc/passwd :-)

: A jakas gotowa funkcja do zone transferow w perlu?

use Net::DNS;

my $res = new Net::DNS::Resolver;

my @zone = $res->axfr( "uci.agh.edu.pl" );

foreach $rr ( @zone ) {
  if( $rr->type eq "CNAME" && $rr->cname eq "galaxy.uci.agh.edu.pl" ) {
    print $rr->name . "\n";
  }
}


$ ./example
mail.uci.agh.edu.pl
gal.uci.agh.edu.pl
news.uci.agh.edu.pl
nic.uci.agh.edu.pl

Tylko że po pierwsze - kto powiedział że CNAME musi być w tej samej 
domenie, a po drugie - to nie uwzględnia CNAME zagnieżdżonych.

W praktyce żeby znaleźć wszystkie CNAME trzeba by sprawdzić cały DNS,
dlatego napisałem że się nie da :-)

P.S. Oczywiście DNS::Net trzeba sobie ściągnąć, 

ftp://ftp.pk.edu.pl/pub/lang/perl/CPAN/modules/by-category/

A oprócz niego potrzebny jest jeszcze IO::Socket (tamże) no i w miarę
nowy perl, np. 5.003_90:
ftp://ftp.pk.edu.pl/pub/lang/perl/CPAN/src/5.0/unsupported/

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND