manage-dns.pl

@@ -35,10 +35,10 @@ my %supported_types = (
     AAAA => "yes",
     CAA => "not yet implemented",
     CNAME => "yes",
-    DNAME => "yes",
+    DNAME => "not yet implemented",
     MX => "yes",
     NS => "yes",
-    PTR => "yes",
+    PTR => "not yet implemented",
     SSHFP => "not yet implemented",
     SRV => "yes",
     TLSA => "not yet implemented",
@@ -120,13 +120,6 @@ 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;
     }
 
     return $record;
@@ -136,13 +129,6 @@ 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}
-        );
     }
 
     return $data->{data};