14 lines
302 B
Perl
Executable File
14 lines
302 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Martnet::DDNS;
|
|
|
|
my $ddns = Martnet::DDNS->new();
|
|
|
|
my @vh = $ddns->get();
|
|
foreach my $i (sort {$a->{zone} cmp $b->{zone}} @vh) {
|
|
next if ($i->{type} eq '_dnssec'); # Skip DNSSEC flags
|
|
print $i->{zone}, ". $i->{type} master: ", $i->{master},"\n";
|
|
}
|