diff --git a/bin/add-dnssec b/bin/add-dnssec deleted file mode 100755 index 39c49a9..0000000 --- a/bin/add-dnssec +++ /dev/null @@ -1,21 +0,0 @@ -#!/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; -my $ddns = Martnet::DDNS->new(); -$master ||= $ddns->default_master(); - - -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$/); - -$ddns->add($host, $master, '_dnssec'); diff --git a/bin/del-dnssec b/bin/del-dnssec deleted file mode 100755 index 4fbe6be..0000000 --- a/bin/del-dnssec +++ /dev/null @@ -1,14 +0,0 @@ -#!/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'); diff --git a/bin/list-dnssec b/bin/list-dnssec deleted file mode 100755 index 6987e5b..0000000 --- a/bin/list-dnssec +++ /dev/null @@ -1,12 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; -use Martnet::DDNS; - -my $ddns = Martnet::DDNS->new(); - -my @vh = $ddns->get('_dnssec'); -foreach my $i (sort {$a->{zone} cmp $b->{zone}} @vh) { - print $i->{zone}, ". master: ", $i->{master},"\n"; -}