From 55114ae9d8a0336ff20e92b64f5ed10c1320cbe9 Mon Sep 17 00:00:00 2001
From: Jorj Bauer <jorj@jorj.org>
Date: Sat, 21 Nov 2020 16:16:27 -0500
Subject: [PATCH] adding missing dnssec mgmt scripts

---
 bin/add-dnssec | 20 ++++++++++++++++++++
 del-dnssec     | 14 ++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100755 bin/add-dnssec
 create mode 100755 del-dnssec

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');