bugfix
This commit is contained in:
@@ -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) {
|
||||
|
||||
Reference in New Issue
Block a user