add missing lister
This commit is contained in:
12
bin/list-dnssec
Executable file
12
bin/list-dnssec
Executable 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";
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user