adding missing dnssec mgmt scripts

This commit is contained in:
2020-11-21 16:16:27 -05:00
parent ab0a52c30e
commit 55114ae9d8
2 changed files with 34 additions and 0 deletions

14
del-dnssec Executable file
View File

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