From 2733c6d02c7c46fcc6de1ce002496add263c1e3a Mon Sep 17 00:00:00 2001
From: Jorj Bauer <jorj@jorj.org>
Date: Tue, 1 Nov 2022 08:43:18 -0400
Subject: [PATCH] add missing lister

---
 bin/list-dnssec | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 bin/list-dnssec

diff --git a/bin/list-dnssec b/bin/list-dnssec
new file mode 100755
index 0000000..6987e5b
--- /dev/null
+++ b/bin/list-dnssec
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Martnet::DDNS;
+
+my $ddns = Martnet::DDNS->new();
+
+my @vh = $ddns->get('_dnssec');
+foreach my $i (sort {$a->{zone} cmp $b->{zone}} @vh) {
+    print $i->{zone}, ". master: ", $i->{master},"\n";
+}