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

move config data to the control plane

Browse Source
This commit is contained in:
Jorj Bauer
2026-01-24 14:33:31 -05:00
parent 34e0e2843d
commit 27ba76a1b8
6 changed files with 516 additions and 322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
bin/add-slave
View File

@@ -2,64 +2,68 @@
use strict;
use warnings;
use Getopt::Long qw/GetOptions/;
use JSON::PP ();
use Regexp::Common qw/net/;
use Martnet::DDNS;
use Regexp::Common qw/net/;
use Getopt::Long qw/GetOptions/;
use JSON::PP qw/encode_json true false/;
sub usage {
die "Usage: add-slave [--edit] [--enable-dnssec|--disable-dnssec] --master <IPv4|IPv6> " +
("") +
"[--ddns-keyname <keyname> ...] <zone.>\n";
}
my $master;
my $edit = 0;
my @ddns_keys;
my $enable_dnssec = 0;
my $enable_dnssec = 0;
my $disable_dnssec = 0;
my @ddns_keynames;
my $webserver_ip;
GetOptions(
'master|m=s' => \$master,
'edit!' => \$edit,
'ddns-keyname=s' => \@ddns_keys,
'enable-dnssec!' => \$enable_dnssec,
'disable-dnssec!' => \$disable_dnssec,
) or die "Usage: add-slave --master <ip> [--edit] [--ddns-keyname <key>]... [--enable-dnssec|--disable-dnssec] <zone.>\n";
'master|m=s' => \$master,
'edit' => \$edit,
'enable-dnssec' => \$enable_dnssec,
'disable-dnssec' => \$disable_dnssec,
'ddns-keyname=s@' => \@ddns_keynames,
) or usage();
my $zone = shift || die "No zone provided\n";
usage() unless defined $master;
die "Zone must end in a dot\n"
unless ($zone =~ /^[a-zA-Z0-9\.\-\_]+\.$/);
die "Cannot specify both --enable-dnssec and --disable-dnssec\n"
if ($enable_dnssec && $disable_dnssec);
die "--master is required\n"
unless defined $master && $master ne '';
my $host = shift || die "No zonename provided\n";
my $ddns = Martnet::DDNS->new();
die "Zonename must end in a dot\n"
unless ($host =~ /^[a-zA-Z0-9\.\-\_]+\.$/);
my $regex = $RE{net}{IPv4} . '|' . $RE{net}{IPv6};
die "Master must be an IPv4 or IPv6 address\n"
unless ($master =~ /^$regex$/);
die "Specify only one of --enable-dnssec or --disable-dnssec\n"
if ($enable_dnssec && $disable_dnssec);
# Build canonical JSON payload; operators do not hand-author JSON.
my %payload = (
master => $master,
);
if (@ddns_keys) {
$payload{ddns_keys} = [ @ddns_keys ];
}
my $payload = { master => $master };
if ($enable_dnssec) {
$payload{dnssec} = JSON::PP::true;
$payload->{dnssec} = true;
} elsif ($disable_dnssec) {
$payload{dnssec} = JSON::PP::false;
$payload->{dnssec} = false;
}
my $json = JSON::PP->new->canonical(1)->encode(\%payload);
if (@ddns_keynames) {
# Preserve order but de-dupe
my %seen;
my @uniq = grep { !$seen{$_}++ } @ddns_keynames;
$payload->{ddns_keys} = \@uniq;
}
my $ddns = Martnet::DDNS->new();
my $txt = encode_json($payload);
if ($edit) {
$ddns->set($zone, $json, '_pureslave');
$ddns->set($host, $txt, '_pureslave');
} else {
$ddns->add($zone, $json, '_pureslave');
$ddns->add($host, $txt, '_pureslave');
}
exit 0;