Allow CAA records to be created and edited https://forum.virtualmin.com/t/caa-support-dns-records/129902

Author: jcameron

Diff for: edit_record.cgi

@@ -127,6 +127,11 @@ else {
 			$field = &ui_textbox("value_$i", $r->{'values'}->[$i],
 					     $vals[$i]->{'size'});
 			}
+		elsif ($vals[$i]->{'opts'}) {
+			$field = &ui_select("value_$i", $r->{'values'}->[$i],
+					    $vals[$i]->{'opts'}, 1, 0,
+					    $in{'type'} ? 0 : 1);
+			}
 		else {
 			$field = &ui_textarea("value_$i", $r->{'values'}->[$i],
 					     $vals[$i]->{'height'},

Diff for: feature-dns.pl

@@ -4457,6 +4457,28 @@ sub list_dns_record_types
                          },
                        ],
 	 },
+	 { 'type' => 'CAA',
+	   'desc' => $text{'records_typecaa'},
+	   'domain' => 1,
+	   'create' => 1,
+	   'values' => [ { 'desc' => $text{'records_valuecaa0'},
+			   'opts' => [ [ 0, $text{'records_caanon'} ],
+				       [ 1, $text{'records_caacrit'} ] ],
+			   'dot' => 0,
+                         },
+		  	 { 'desc' => $text{'records_valuecaa1'},
+			   'opts' => [ [ 'issue', $text{'records_caaissue'} ],
+				       [ 'issuewild', $text{'records_caaissuewild'} ],
+				       [ 'iodef', $text{'records_caaiodef'} ] ],
+			   'dot' => 0,
+                         },
+			 { 'desc' => $text{'records_valuecaa2'},
+			   'size' => 60,
+			   'regexp' => '^\S+$',
+			   'dot' => 0,
+                         },
+                       ],
+	 },
 	 { 'type' => 'PTR',
 	   'desc' => $text{'records_typeptr'},
 	   'domain' => 0,
@@ -5077,7 +5099,7 @@ sub filter_generated_dns_records
 my ($d, $recs) = @_;
 my @rv;
 foreach my $r (@$recs) {
-	next if ($r->{'type'} =~ /^(CAA|TLSA|SSHFP)$/);
+	next if ($r->{'type'} =~ /^(TLSA|SSHFP)$/);
 	push(@rv, $r);
 	}
 return \@rv;

Diff for: lang/en

@@ -7442,6 +7442,15 @@ records_valuetxt=Text record
 records_valuespf=Sender permitted from specification
 records_typesoa=Start Of Domain
 records_typespf=Sender Permitted From
+records_typecaa=Certificate Authority
+records_valuecaa0=Flag
+records_valuecaa1=Tag
+records_valuecaa2=CA domain
+records_caanon=Non-critical
+records_caacrit=Critical
+records_caaissue=Allow certs for domain
+records_caaissuewild=Allow wildcard certs for domain
+records_caaiodef=URL for reporting issues
 records_typedefttl=Default Cache Time
 records_typegenerate=Record Generator
 records_typeptr=Reverse Address