Implement CAA record

Docs say caa_property but implementation uses caa_tag (support both)

Ref: #3

Dockerfile

@@ -2,3 +2,6 @@ FROM alpine
 # docker build -t fooflington/mythic-beasts-dns .
 LABEL maintainer="Matthew Slowe <foo@mafoo.org.uk>"
 RUN apk --no-cache add perl perl-yaml perl-lwp-protocol-https perl-json perl-uri perl-yaml-tiny perl-www-form-urlencoded
+
+COPY manage-dns.pl /docker-entry-point.pl
+ENTRYPOINT ["perl", "/docker-entry-point.pl"]

manage-dns.pl

@@ -1,6 +1,7 @@
-#!/usr/bin/env perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use LWP::UserAgent;
 use Data::Dumper;
 
@@ -32,12 +33,12 @@ sub _notice {
 my %supported_types = (
     A => "yes",
     AAAA => "yes",
-    CAA => "not yet implemented",
+    CAA => "yes",
     CNAME => "yes",
-    DNAME => "not yet implemented",
+    DNAME => "yes",
     MX => "yes",
     NS => "yes",
-    PTR => "not yet implemented",
+    PTR => "yes",
     SSHFP => "not yet implemented",
     SRV => "yes",
     TLSA => "not yet implemented",
@@ -119,6 +120,19 @@ sub format_record($$$$) {
         my ($pri, $data) = split(/\s+/, $value);
         $record->{mx_priority} = $pri;
         $record->{data} = $data;
+    } elsif ($type eq 'SRV') {
+        # pri weight port data
+        my ($pri, $weight, $port, $data) = split(/\s+/, $value);
+        $record->{srv_priority} = $pri;
+        $record->{srv_weight} = $weight;
+        $record->{srv_port} = $port;
+        $record->{data} = $data;
+    } elsif ($type eq 'CAA') {
+        my ($flags, $property, $data) = split(/\s+/, $value);
+        $record->{caa_flags} = $flags;
+        $record->{caa_property} = $property;
+        $record->{caa_tag} = $property;
+        $record->{data} = $data;
     }
 
     return $record;
@@ -128,6 +142,19 @@ sub reformat_data($$) {
     my ($type, $data) = @_;
     if($type eq 'MX') {
         return sprintf('%d %s', $data->{mx_priority}, $data->{data});
+    } elsif($type eq 'SRV') {
+        return sprintf('%d %d %d %s',
+            $data->{srv_priority},
+            $data->{srv_weight},
+            $data->{srv_port},
+            $data->{data}
+        );
+    } elsif($type eq 'CAA') {
+        return sprintf('%d %s %s',
+            $data->{caa_flags},
+            $data->{caa_property} || $data->{caa_tag},
+            $data->{data}
+        );
     }
 
     return $data->{data};
@@ -136,7 +163,8 @@ sub reformat_data($$) {
 sub check_and_update_record($$$$$) {
     my ($zone, $data, $type, $host, $value) = @_;
     if(my $err = is_unsupported($type)) {
-        die ("Unable to process $host $type: $err");
+        warn ("WARNING: Unable to process $host $type: $err");
+        return;
     }
 
     # _info("Considering %s %s %s", $host, $type, $value);
@@ -161,6 +189,7 @@ sub check_and_update_record($$$$$) {
         # Create new record
         my $new = format_record($zone, $type, $host, $value);
         _notice("Created new record: %s %s %s", $host, $type, $value);
+        _debug($new);
         my $res = $ua->post(
             $url,
             "Content-Type" => "application/json",
@@ -215,6 +244,7 @@ foreach my $z (keys %{$in->[0]->{zones}}) {
         unless (defined $seen{$record}) {
             # _info("Considering %s %s", $record->{host}, $record->{type});
             my $skip;
+            $skip = 1 if is_unsupported($record->{type});
             if ($in->[0]->{ignore}->{$z}->{$record->{host}}) {
                 # check if type is specified
                 if(keys %{$in->[0]->{ignore}->{$z}->{$record->{host}}}) {