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

Merge pull request #721 from rhansen/gandi

Browse source 
`gandi` cleanups
This commit is contained in:
Richard Hansen 2024-07-28 19:15:29 -04:00 committed by GitHub
commit 2715743ee3
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 38 additions and 56 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
ChangeLog.md
View file

@ -142,6 +142,8 @@ repository history](https://github.com/ddclient/ddclient/commits/master).
[#719](https://github.com/ddclient/ddclient/pull/719)
* `yandex`: Errors are now retried.
[#719](https://github.com/ddclient/ddclient/pull/719)
* `gandi`: Fixed handling of error responses.
[#721](https://github.com/ddclient/ddclient/pull/721)
## 2023-11-23 v3.11.2

82
ddclient.in
View file

@ -6905,47 +6905,31 @@ EoEXAMPLE
######################################################################
sub nic_gandi_update {
debug("\nnic_gandi_update -------------------");
# Update each set configured host.
for my $h (@_) {
for my $ipv ('ipv4', 'ipv6') {
my $ip = delete $config{$h}{"want$ipv"};
if(!$ip) {
next;
}
my $ip = delete $config{$h}{"want$ipv"} or next;
(my $hostname = $h) =~ s/\.\Q$config{$h}{zone}\E$//;
info("%s -- Setting IP address to %s.", $h, $ip);
my $headers;
$headers = "Content-Type: application/json\n";
info("$h: setting IP address to $ip");
my @headers = ('Content-Type: application/json');
if ($config{$h}{'use-personal-access-token'} == 1) {
$headers .= "Authorization: Bearer $config{$h}{'password'}\n";
push(@headers, "Authorization: Bearer $config{$h}{'password'}");
} else {
push(@headers, "Authorization: Apikey $config{$h}{'password'}");
}
else
{
$headers .= "Authorization: Apikey $config{$h}{'password'}\n";
}
my $rrset_type = $ipv eq 'ipv6' ? 'AAAA' : 'A';
my $url;
$url = "https://$config{$h}{'server'}$config{$h}{'script'}";
$url .= "/livedns/domains/$config{$h}{'zone'}/records/$hostname/$rrset_type";
my $url = "https://$config{$h}{'server'}$config{$h}{'script'}/livedns/domains/$config{$h}{'zone'}/records/$hostname/$rrset_type";
my $reply = geturl(
proxy => opt('proxy'),
url => $url,
headers => $headers,
method => 'GET'
headers => \@headers,
method => 'GET',
);
my $ok = header_ok($h, $reply);
next if !header_ok($h, $reply);
$reply =~ s/^.*?\n\n//s;
my $response = eval { decode_json($reply) };
if (!defined($response)) {
if (ref($response) ne 'HASH') {
$config{$h}{"status-$ipv"} = "bad";
failed("%s -- Unexpected service response.", $h);
failed("$h: response is not a JSON object: $reply");
next;
}
if ($response->{'rrset_values'}->[0] eq $ip && (!defined($config{$h}{'ttl'}) ||
@ -6953,42 +6937,38 @@ sub nic_gandi_update {
$config{$h}{'ip'} = $ip;
$config{$h}{'mtime'} = $now;
$config{$h}{"status-$ipv"} = "good";
success("updating %s: skipped: address was already set to %s.", $h, $ip);
success("$h: skipped: address was already set to $ip");
next;
}
my $data = encode_json({
defined($config{$h}{'ttl'}) ? (rrset_ttl => $config{$h}{'ttl'}) : (),
rrset_values => [$ip],
});
$reply = geturl(
proxy => opt('proxy'),
url => $url,
headers => $headers,
headers => \@headers,
method => 'PUT',
data => $data,
data => encode_json({
defined($config{$h}{'ttl'}) ? (rrset_ttl => $config{$h}{'ttl'}) : (),
rrset_values => [$ip],
}),
);
$ok = header_ok($h, $reply);
if ($ok) {
if (!header_ok($h, $reply)) {
$config{$h}{"status-$ipv"} = "bad";
$reply =~ s/^.*?\n\n//s;
my $response = eval { decode_json($reply) };
if (ref($response) eq 'HASH' && ($response->{message} // '') ne '') {
failed("$h: $response->{message}");
} else {
failed("$h: unexpected error response: $reply");
}
next;
}
$config{$h}{'ip'} = $ip;
$config{$h}{'mtime'} = $now;
$config{$h}{"status-$ipv"} = "good";
success("%s -- Updated successfully to %s.", $h, $ip);
} else {
$config{$h}{"status-$ipv"} = "bad";
if (defined($response->{status}) && $response->{status} eq "error") {
my @errors;
for my $err (@{$response->{errors}}) {
push(@errors, $err->{description});
}
failed("%s -- %s.", $h, join(", ", @errors));
} else {
failed("%s -- Unexpected service response.", $h);
}
}
success("$h: updated successfully to $ip");
}
}
}
######################################################################
## nic_keysystems_examples
######################################################################