13 lines
252 B
Perl
Executable File
13 lines
252 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) {
|
|
print $i->{zone}, ". $i->{type} master: ", ($i->{master} // ''), "\n";
|
|
}
|