A and PTR records auto-generation about nictool HOT 2 CLOSED

$fqdn ||= $util->ask("fully qualified domain name (FQDN)");
$ip   ||= $util->ask("IPv4 address");
$ip6  ||= $util->ask("IPv6 address");       # get optional IPv6 IP

usage() if ( ! $fqdn || ( ! $ip && ! $ip6 ) );

$cnt->nt_connect();                         # connect to nictool

my ($host, $domain) = split /\./, $fqdn, 2; # get the $host / $domain
#print "host: $host\n";
#print "domn: $domain\n";

my $zone_id = $cnt->get_zone_id( $domain )  # find the $domain zone
    or die "could not find zone ID for $domain\n";

foreach my $t ( qw/ A AAAA / ) {

    my $now = $cnt->_get_zone_records( $zone_id, $host, $t ); # find the host record
    if ( $now ) {
        warn "$t record exists\n";
        my %new = %$now;
        $new{address} = $t eq 'A' ? $ip : $ip6;
        $cnt->update_record( \%new, $now );     # update the $host record
    }
    else {
        my $address = $t eq 'A' ? $ip : $ip6;
        if ( $address ) {
            $cnt->create_forward( $fqdn, $address, $t );
        };
    }
};

my $now = $cnt->get_reverse_zone_record($ip);  # find the reverse zone
if ( $now ) {
    my %new = %$now;
    $new{address} = "$fqdn.";
    $cnt->log( "updating PTR for $ip to $fqdn.\n" );
    $cnt->update_record( \%new, $now );           # update the PTR
};

if ( $ip6 && $ip6 ne '' ) {
    $now = $cnt->get_reverse_zone_record_ipv6($ip6);  # find the IPv6 reverse zone
    if ( $now ) {
# add IPv6 PTR
        my %new = %$now;
        $new{address} = "$fqdn.";
        $cnt->log( "updating PTR for $ip6 to $fqdn.\n" );
        $cnt->update_record( \%new, $now );           # update the PTR
    } 
    else {
        $cnt->create_ptr( $ip6, "$fqdn.");
    };
};