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

2016-02-22 12:42:57 -05:00
parent dd45d2fdda
commit ecf4d0c7da
5 changed files with 95 additions and 8 deletions
--- a/bin/add-custom
+++ b/bin/add-custom
@ -6,7 +6,8 @@ use Martnet::DDNS;
 use Regexp::Common qw/net/;

 my $host = shift || die "No zonename provided";
-my $master = shift || die "No master DNS IP provided";
+my $master = shift;
+$master ||= '74.109.12.14';

 die "Zonename must end in a dot"
    unless ($host =~ /^[a-zA-Z0-9\.\-\_]+\.$/);