source: fierce2/trunk/lib/Fierce/Domain/ZoneTransfer.pm @ 5

package ZoneTransfer;
{
    use Object::InsideOut;
    use Net::DNS;
 
    # execute: Domain Base -> Output(Array)
    # perform zone transfer domain
    sub execute {
        my ($self, $domain_obj, $base_obj) = @_;

        my $domain = $domain_obj->domain;
        my $name_servers = $base_obj->name_servers;
        my $res  = Net::DNS::Resolver->new;
        my (@zone, @output);
        
        if (scalar(@name_server) == 0 ) {
            my $query = $res->query($domain, 'NS');
            if ($query) {
                push(@output, "DNS Servers for $domain:\n");
                foreach my $rr (grep { $_->type eq 'NS' } $query->answer) {
                    my $dnssrv = $rr->nsdname;
                    push(@output, "\t$dnssrv\n");
                    push (@name_servers, $rr->nsdname);
                }
            }
        }
        
        if (scalar(@name_servers) > 0 ) {
            push(@output, "\nTrying zone transfer...\n");
            for (@name_servers) {
                $res->nameservers($_);
                push(@output, "\tTesting $_\n");
                @zone = $res->axfr($domain);
                @zone ? last : push(@output, "\t\tRequest timed out or transfer not allowed.\n");
            }
        }
        else {
            print "Error: No name servers set\n";
            exit;
        }
        
        if (@zone) {
            push(@output, "$_->string\n") for (@zone);
        }
        else {
            push(@output, "\nUnsuccessful in zone transfer (it was worth a shot)\n");
        }
        return @output;
    }
}



1;