jorj/martnet-ddns
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove obsolete scripts

Browse Source
This commit is contained in:
Jorj Bauer
2026-01-24 12:21:05 -05:00
parent 6589889d96
commit 26d7da1eb5
3 changed files with 0 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
bin/add-dnssec
View File

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

14
bin/del-dnssec
View File

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

12
bin/list-dnssec
View File

@@ -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";
}