forked from ddclient/ddclient
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Allow update of a DNS record hosted by the Gandi LiveDNS service. Signed-off-by: Jimmy Thrasibule <[email protected]> Reviewed-by: Richard Hansen <[email protected]>
- Loading branch information
Showing
4 changed files
with
140 additions
and
2 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
|
|
@@ -571,6 +571,21 @@ my %services = ( | |
| 'server' => setv(T_FQDNP, 1, 0, 'freemyip.com', undef), | ||
| }, | ||
| }, | ||
| 'gandi' => { | ||
| 'updateable' => undef, | ||
| 'update' => \&nic_gandi_update, | ||
| 'examples' => \&nic_gandi_examples, | ||
| 'variables' => { | ||
| %{$variables{'service-common-defaults'}}, | ||
| 'min-interval' => setv(T_DELAY, 0, 0, 0, interval('5m')), | ||
| 'server' => setv(T_FQDNP, 1, 0, 'api.gandi.net', undef), | ||
| 'script' => setv(T_STRING, 1, 1, '/v5', undef), | ||
| 'ttl' => setv(T_DELAY, 1, 0, interval('3h'), interval('5m')), | ||
| 'zone' => setv(T_FQDN, 1, 0, undef, undef), | ||
| # Unused variables. | ||
| 'login' => setv(T_STRING, 0, 0, 'unused', undef), | ||
| } | ||
| }, | ||
| 'googledomains' => { | ||
| 'updateable' => undef, | ||
| 'update' => \&nic_googledomains_update, | ||
|
|
@@ -1394,7 +1409,7 @@ sub init_config { | |
| $proto = opt('protocol') if !defined($proto); | ||
|
|
||
| load_sha1_support($proto) if (grep (/^$proto$/, ("freedns", "nfsn"))); | ||
| load_json_support($proto) if (grep (/^$proto$/, ("cloudflare","yandex", "nfsn"))); | ||
| load_json_support($proto) if (grep (/^$proto$/, ("cloudflare", "gandi", "yandex", "nfsn"))); | ||
|
|
||
| if (!exists($services{$proto})) { | ||
| warning("skipping host: %s: unrecognized protocol '%s'", $h, $proto); | ||
|
|
@@ -1983,7 +1998,7 @@ sub load_json_support { | |
| Error loading the Perl module JSON::PP needed for $why update. | ||
| EOM | ||
| } | ||
| import JSON::PP (qw/decode_json/); | ||
| import JSON::PP (qw/decode_json encode_json/); | ||
| } | ||
| ###################################################################### | ||
| ## geturl | ||
|
|
@@ -5176,6 +5191,117 @@ sub nic_dinahosting_update { | |
| } | ||
| } | ||
|
|
||
| ###################################################################### | ||
| ## nic_gandi_examples | ||
| ## by Jimmy Thrasibule <[email protected]> | ||
| ###################################################################### | ||
| sub nic_gandi_examples { | ||
| return <<"EoEXAMPLE"; | ||
| o 'gandi' | ||
| The 'gandi' protocol is used by the LiveDNS service offered by gandi.net. | ||
| Description of Gandi's LiveDNS API can be found at: | ||
| https://api.gandi.net/docs/livedns/ | ||
| Available configuration variables: | ||
| * password: The Gandi API key. If you don’t have one yet, you can generate | ||
| your production API key from the API Key Page (in the Security section). | ||
| Required. | ||
| * zone: The DNS zone to be updated. Required. | ||
| * ttl: The time-to-live value associated with the updated DNS record. | ||
| Optional; defaults to 3h. | ||
| Example ${program}.conf file entries: | ||
| ## Single host update. | ||
| protocol=gandi, \\ | ||
| zone=example.com, \\ | ||
| password=my-gandi-api-key, \\ | ||
| host.example.com | ||
| ## Multiple host update. | ||
| protocol=gandi, \\ | ||
| zone=example.com, \\ | ||
| password=my-gandi-api-key, \\ | ||
| ttl=1h \\ | ||
| hosta.example.com,hostb.sub.example.com | ||
| EoEXAMPLE | ||
| } | ||
|
|
||
| ###################################################################### | ||
| ## nic_gandi_update | ||
| ###################################################################### | ||
| sub nic_gandi_update { | ||
| debug("\nnic_gandi_update -------------------"); | ||
|
|
||
| # Update each set configured host. | ||
| foreach my $h (@_) { | ||
| my $ip = delete $config{$h}{'wantip'}; | ||
| (my $hostname = $h) =~ s/\.\Q$config{$h}{zone}\E$//; | ||
|
|
||
| info("%s -- Setting IP address to %s.", $h, $ip); | ||
| verbose("UPDATE:", "updating %s", $h); | ||
|
|
||
| my $headers; | ||
| $headers = "Content-Type: application/json\n"; | ||
| $headers .= "Authorization: Apikey $config{$h}{'password'}\n"; | ||
|
|
||
| my $data = encode_json({ | ||
| defined($config{$h}{'ttl'}) ? (rrset_ttl => $config{$h}{'ttl'}) : (), | ||
| rrset_values => [$ip], | ||
| }); | ||
|
|
||
| my $rrset_type = is_ipv6($ip) ? "AAAA" : "A"; | ||
| my $url; | ||
| $url = "https://$config{$h}{'server'}$config{$h}{'script'}"; | ||
| $url .= "/livedns/domains/$config{$h}{'zone'}/records/$hostname/$rrset_type"; | ||
|
|
||
| my $reply = geturl({ | ||
| proxy => opt('proxy'), | ||
| url => $url, | ||
| headers => $headers, | ||
| method => 'PUT', | ||
| data => $data, | ||
| }); | ||
| unless ($reply) { | ||
| failed("%s -- Could not connect to %s.", $h, $config{$h}{'server'}); | ||
| next; | ||
| } | ||
| my $ok = header_ok($h, $reply); | ||
|
|
||
| $reply =~ s/^.*?\n\n//s; | ||
| my $response = eval { decode_json($reply) }; | ||
| if (!defined($response)) { | ||
| $config{$h}{'status'} = "bad"; | ||
|
|
||
| failed("%s -- Unexpected service response.", $h); | ||
| next; | ||
| } | ||
|
|
||
| if ($ok) { | ||
| $config{$h}{'ip'} = $ip; | ||
| $config{$h}{'mtime'} = $now; | ||
| $config{$h}{'status'} = "good"; | ||
|
|
||
| success("%s -- Updated successfully to %s.", $h, $ip); | ||
| } else { | ||
| $config{$h}{'status'} = "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); | ||
| } | ||
| } | ||
| } | ||
| } | ||
|
|
||
| # Execute main() if this file is run as a script or run via PAR (https://metacpan.org/pod/PAR), | ||
| # otherwise do nothing. This "modulino" pattern makes it possible to import this file as a module | ||
| # and test its functions directly; there's no need for test-only command-line arguments or stdout | ||
|
|
||