From 2823bfdacd845bacd30910500f1ad85518d71333 Mon Sep 17 00:00:00 2001
From: mirabellette <34450971+mirabellette@users.noreply.github.com>
Date: Sat, 28 Apr 2018 09:46:46 +0700
Subject: [PATCH] Enable CAA dns record in expert mode

---
 lib/zonefile.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lib/zonefile.pm b/lib/zonefile.pm
index d4c95cd..fb50efd 100644
--- a/lib/zonefile.pm
+++ b/lib/zonefile.pm
@@ -243,6 +243,15 @@ sub rr_array_to_array {
             utf8::decode($$rr{weight});
             utf8::decode($$rr{port});
             utf8::decode($$rr{rdata});
+        }        
+        elsif($list[3] =~ /^CAA$/) {
+            # domain_name 10800 IN CAA 128 issue "letsencrypt.org"
+            $$rr{weight} = $list[4];
+            $$rr{issue} = $list[5];
+            $$rr{certificateAutority} = $list[6];            
+            utf8::decode($$rr{weight});             
+            utf8::decode($$rr{issue});
+            utf8::decode($$rr{certificateAutority});
         }
         else {
             $$rr{rdata} = $_->rdstring;