This commit is contained in:
2026-02-20 20:45:11 +00:00
parent 04d154b960
commit 1c2e8c57de

View File

@@ -5,11 +5,11 @@ use warnings;
use Martnet::DDNS;
use Regexp::Common qw/net/;
use Getopt::Long qw/GetOptions/;
use JSON::PP qw/encode_json true false/;
use JSON::PP qw/encode_json/;
sub usage {
die "Usage: add-custom [--edit] [--enable-dnssec|--disable-dnssec] --master <IPv4|IPv6> " +
("") +
die "Usage: add-custom [--edit] [--enable-dnssec|--disable-dnssec] --master <IPv4|IPv6> " .
("") .
"[--ddns-keyname <keyname> ...] <zone.>\n";
}
@@ -46,9 +46,9 @@ die "Master must be an IPv4 or IPv6 address\n"
my $payload = { master => $master };
if ($enable_dnssec) {
$payload->{dnssec} = true;
$payload->{dnssec} = JSON::PP::true();
} elsif ($disable_dnssec) {
$payload->{dnssec} = false;
$payload->{dnssec} = JSON::PP::false();
}
if (@ddns_keynames) {