13 lines
241 B
Perl
Executable File
13 lines
241 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Martnet::DDNS;
|
|
|
|
my $ddns = Martnet::DDNS->new();
|
|
|
|
my @vh = $ddns->get('_vhosts');
|
|
foreach my $i (sort {$a->{zone} cmp $b->{zone}} @vh) {
|
|
print $i->{zone}, ". master: ", $i->{master},"\n";
|
|
}
|