X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=rc.tcl;fp=rc.tcl;h=99bb0b65c276685f5c3c54db3e56c52d6999158c;hb=15a6241e92284e9f3bef00f46b1583f2d4d22304;hp=2fe3d04327e5a8e46786c9cc6cabe76a71bd0462;hpb=8b6f2d5e5d74736b4545fbcb0537adba08365210;p=zdns.git

diff --git a/rc.tcl b/rc.tcl
index 2fe3d04..99bb0b6 100644
--- a/rc.tcl
+++ b/rc.tcl
@@ -59,15 +59,19 @@ proc dane {dn {port 443}} {
     set dn [fqdn $dn]
     set dirname [string trimright $dn .]
     set was [pwd]
+    set caas [list]
     cd tls
     foreach ca [lsort [glob ca/*/*]] {
         set ca [join [lrange [split $ca /] 1 end] /]
         set ee [file join ee $ca $dirname]
         if {![file exists $ee]} { continue }
-        puts "[shorten $dn] CAA 0 issue \"[lindex [split $ca /] end]\""
+        set caas [lappend $caas [lindex [split $ca /] end]]
         puts "[shorten _$port._tcp.$dn] TLSA 3 1 1 [exec zeasypki dane $ee]"
     }
     cd $was
+    foreach ca [lsort -unique $caas] {
+        puts "[shorten $dn] CAA 0 issue \"$ca\""
+    }
 }
 
 proc ssh {dn} {