view release on metacpan or  search on metacpan

bin/zonewalk  view on Meta::CPAN

    #
    # check for IPv4 address as start zone, build reverse zone
    if ( Net::DNS::Resolver::Base::_ip_is_ipv4($start_zone) ) {
        my @octets = split( /\./, $start_zone );
        $start_zone = join( '.', reverse @octets );
        $start_zone .= '.in-addr.arpa';
    }
    # check for IPv6 address as start zone, build reverse zone
    elsif ( Net::DNS::Resolver::Base::_ip_is_ipv6($start_zone) ) {

        # this simple algo works only for fully expanded IPv6 addresses
        $start_zone =~ s/://g;
        my @octets = split( //, $start_zone );
        $start_zone = join( '.', reverse @octets );
        $start_zone .= '.ip6.arpa';
    }

    return 1;
}

#