added slave sync; bugfix for deletion; added a list-all

This commit is contained in:
2016-02-22 12:42:57 -05:00
parent dd45d2fdda
commit ecf4d0c7da
5 changed files with 95 additions and 8 deletions

12
bin/list-all 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();
foreach my $i (sort {$a->{zone} cmp $b->{zone}} @vh) {
print $i->{zone}, ". $i->{type} master: ", $i->{master},"\n";
}