Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

porkbun code not handling root domain

Browse source
This commit is contained in:
Erik Tkal 2024-02-05 18:21:58 -05:00
parent 5b104ad116
commit 4e33dd754f
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
ddclient.in
View file

@ -5764,7 +5764,7 @@ sub nic_godaddy_update {
failed("%s.%s -- Unexpected or empty service response, cannot parse data.", $hostname, $zone); failed("%s.%s -- Unexpected or empty service response, cannot parse data.", $hostname, $zone);
} elsif (defined($response->{code})) { } elsif (defined($response->{code})) {
verbose("%s.%s -- %s - %s.", $hostname, $zone, $response->{code}, $response->{message}); verbose("VERBOSE:", "%s.%s -- %s - %s.", $hostname, $zone, $response->{code}, $response->{message});
} }
if ($ok) { if ($ok) {
# read data # read data
@ -7189,10 +7189,14 @@ sub nic_porkbun_update {
# Process 'root-domain' option # Process 'root-domain' option
$domain = $config{$host}{'root-domain'}; $domain = $config{$host}{'root-domain'};
$sub_domain = $host; $sub_domain = $host;
if ($host eq $domain) {
$sub_domain = '';
} else {
$sub_domain =~ s/\.$domain//; $sub_domain =~ s/\.$domain//;
}
if (!defined($sub_domain)) { # Not valid if not an exact match and the root domain not stripped
error("'root-domain' (%s) is not part of the full domain (%s)!", $domain, $host); if ($sub_domain eq $host) {
failed("'root-domain' (%s) is not part of the full host name (%s)!", $domain, $host);
next; next;
} }
warning("%s has both 'root-domain' and 'on-root-domain' defined. The latter is ignored") if $config{$host}{'on-root-domain'}; warning("%s has both 'root-domain' and 'on-root-domain' defined. The latter is ignored") if $config{$host}{'on-root-domain'};
@ -7204,7 +7208,7 @@ sub nic_porkbun_update {
# Default to the subdomain/domain being split at the first dot # Default to the subdomain/domain being split at the first dot
($sub_domain, $domain) = split(/\./, $host, 2); ($sub_domain, $domain) = split(/\./, $host, 2);
} }
verbose("subdomain %s, root domain %s", $sub_domain, $domain) if $sub_domain != ''; verbose("VERBOSE:", "subdomain %s, root domain %s", $sub_domain, $domain) if $sub_domain ne '';
foreach my $ipv ('ipv4', 'ipv6') { foreach my $ipv ('ipv4', 'ipv6') {
my $ip = delete $config{$host}{"want$ipv"}; my $ip = delete $config{$host}{"want$ipv"};
@ -7961,7 +7965,7 @@ sub nic_infomaniak_update {
next; next;
} }
verbose("setting IP address to %s for %s", $ip, $h); verbose("VERBOSE:", "setting IP address to %s for %s", $ip, $h);
info("updating %s", $h); info("updating %s", $h);
# No change in IP => nochg <w.x.y.z> # No change in IP => nochg <w.x.y.z>
@ -7991,7 +7995,7 @@ sub nic_infomaniak_update {
my $reply; my $reply;
foreach my $url ($url1, $url2) { foreach my $url ($url1, $url2) {
verbose("trying update with %s", $url); verbose("VERBOSE:", "trying update with %s", $url);
$reply = geturl(proxy => opt('proxy'), url => $url); $reply = geturl(proxy => opt('proxy'), url => $url);
if (!defined($reply) || !$reply) { if (!defined($reply) || !$reply) {
info("could not update %s using url %s, trying next one", $h, $url); info("could not update %s using url %s, trying next one", $h, $url);