pureslaves now work too

bin/add-slave

@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Martnet::DDNS;
+use Regexp::Common qw/net/;
+
+my $host = shift || die "No zonename provided";
+my $master = shift || die "No master DNS IP provided";
+
+die "Zonename must end in a dot"
+    unless ($host =~ /^[a-zA-Z0-9\.\-\_]+\.$/);
+
+my $regex = $RE{net}{IPv4} . '|' . $RE{net}{IPv6};
+die "Master must be an IPv4 or IPv6 address"
+    unless ($master =~ /^$regex$/);
+
+my $ddns = Martnet::DDNS->new();
+$ddns->add($host, $master, '_pureslave');

bin/add-vhost

@@ -17,4 +17,4 @@ die "Master must be an IPv4 or IPv6 address"
     unless ($master =~ /^$regex$/);
 
 my $ddns = Martnet::DDNS->new();
-$ddns->addvhost($host, $master);
+$ddns->add($host, $master, '_vhosts');

bin/del-slave

@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Martnet::DDNS;
+use Regexp::Common qw/net/;
+
+my $host = shift || die "No zonename provided";
+
+die "Zonename must end in a dot"
+    unless ($host =~ /^[a-zA-Z0-9\-\_\.]+\.$/);
+
+my $ddns = Martnet::DDNS->new();
+$ddns->del($host, '_pureslave');

bin/del-vhost

@@ -11,4 +11,4 @@ die "Hostname must end in a dot"
     unless ($host =~ /^[a-zA-Z0-9\-\_\.]+\.$/);
 
 my $ddns = Martnet::DDNS->new();
-$ddns->delvhost($host);
+$ddns->del($host, '_vhosts');

bin/list-slaves

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Martnet::DDNS;
+
+my $ddns = Martnet::DDNS->new();
+
+my @vh = $ddns->get('_pureslave');
+foreach my $i (sort {$a->{zone} cmp $b->{zone}} @vh) {
+    print $i->{zone}, ". master: ", $i->{master},"\n";
+}

bin/list-vhosts

@@ -6,7 +6,7 @@ use Martnet::DDNS;
 
 my $ddns = Martnet::DDNS->new();
 
-my @vh = $ddns->getvhosts();
+my @vh = $ddns->get('_vhosts');
 foreach my $i (sort {$a->{zone} cmp $b->{zone}} @vh) {
     print $i->{zone}, ". master: ", $i->{master},"\n";
 }

bin/sync-master-vhosts

@@ -7,7 +7,7 @@ use File::Temp qw/tempfile/;
 
 my $ddns = Martnet::DDNS->new();
 
-my @vh = $ddns->getvhosts();
+my @vh = $ddns->get('_vhosts');
 
 # For each virtual host, generate a vhost zone file if there isn't one
 my $changecount = 0;