add missing lister

This commit is contained in:
2022-11-01 08:43:18 -04:00
parent 1c0ae8137f
commit 2733c6d02c

12
bin/list-dnssec Executable file
View File

@ -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";
}