diff --git a/bin/add-dnssec b/bin/add-dnssec new file mode 100755 index 0000000..f5fc787 --- /dev/null +++ b/bin/add-dnssec @@ -0,0 +1,20 @@ +#!/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; +$master ||= '74.109.12.14'; + +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, '_dnssec'); diff --git a/del-dnssec b/del-dnssec new file mode 100755 index 0000000..4fbe6be --- /dev/null +++ b/del-dnssec @@ -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, '_dnssec');