Add infomaniak protocol (#537)
This commit is contained in:
Timothée Andres
GitHub
parent
1c91a5aa84
commit
82af20f8d4
3 changed files with 129 additions and 0 deletions
|
|
@ -40,6 +40,7 @@ Dynamic DNS services currently supported include:
|
|||
domenehsop - See https://api.domeneshop.no/docs/#tag/ddns/paths/~1dyndns~1update/get
|
||||
Mythic Beasts - See https://www.mythic-beasts.com/support/api/dnsv2/dynamic-dns for details
|
||||
Enom - See https://www.enom.com for details
|
||||
Infomaniak - See https://faq.infomaniak.com/2376 for details
|
||||
|
||||
`ddclient` now supports many cable and DSL broadband routers.
|
||||
|
||||
|
|
|
|||
|
|
@ -355,3 +355,11 @@ ssl=yes # use ssl-support. Works with
|
|||
#zone=example.com, \
|
||||
#password=api-token \
|
||||
#example.com,sub.example.com
|
||||
|
||||
##
|
||||
## Infomaniak (www.infomaniak.com)
|
||||
##
|
||||
# protocol=infomaniak,
|
||||
# login=ddns_username,
|
||||
# password=ddns_password
|
||||
# example.com
|
||||
|
|
|
|||
120
ddclient.in
120
ddclient.in
|
|
@ -978,6 +978,14 @@ my %services = (
|
|||
'min-interval' => setv(T_DELAY, 0, 0, 0, interval('5m')),
|
||||
},
|
||||
},
|
||||
'infomaniak' => {
|
||||
'updateable' => undef,
|
||||
'update' => \&nic_infomaniak_update,
|
||||
'examples' => \&nic_infomaniak_examples,
|
||||
'variables' => {
|
||||
%{$variables{'service-common-defaults'}},
|
||||
},
|
||||
},
|
||||
);
|
||||
$variables{'merged'} = {
|
||||
map({ %{$services{$_}{'variables'}} } keys(%services)),
|
||||
|
|
@ -7979,6 +7987,118 @@ sub nic_digitalocean_update {
|
|||
}
|
||||
}
|
||||
|
||||
######################################################################
|
||||
## nic_infomaniak_examples
|
||||
######################################################################
|
||||
sub nic_infomaniak_examples {
|
||||
return <<"EoEXAMPLE";
|
||||
|
||||
o 'infomaniak'
|
||||
|
||||
The 'infomaniak' protocol is used by DNS services offered by www.infomaniak.com.
|
||||
|
||||
Configuration variables applicable to the 'infomaniak' protocol are:
|
||||
protocol=infomaniak
|
||||
login=ddns_username ## the DDNS username set up in Infomaniak
|
||||
password=ddns_password ## the DDNS username set up in Infomaniak
|
||||
example.com ## domain name to update
|
||||
|
||||
Example ${program}.conf file entries:
|
||||
protocol=infomaniak, \\
|
||||
login=my-username, \\
|
||||
password=my-password \\
|
||||
my.address.com
|
||||
|
||||
For more information about how to create a dynamic DNS, see https://faq.infomaniak.com/2357.
|
||||
|
||||
EoEXAMPLE
|
||||
}
|
||||
|
||||
######################################################################
|
||||
## nic_infomaniak_update
|
||||
##
|
||||
## written by Timothée Andres
|
||||
##
|
||||
## based on https://faq.infomaniak.com/2376
|
||||
##
|
||||
## needs one of the following urls to update:
|
||||
## https://username:password@infomaniak.com/nic/update?hostname=subdomain.yourdomain.com&myip=1.2.3.4
|
||||
## https://infomaniak.com/nic/update?hostname=subdomain.yourdomain.com&myip=1.2.3.4&username=XXX&password=XXX
|
||||
######################################################################
|
||||
sub nic_infomaniak_update {
|
||||
debug("\nnic_infomaniak_update -------------------");
|
||||
|
||||
foreach my $h (@_) {
|
||||
INFOMANIAK_IP_LOOP:
|
||||
foreach my $v (4, 6) {
|
||||
my $ip = delete $config{$h}{"wantipv$v"};
|
||||
|
||||
if (!defined $ip) {
|
||||
debug("ipv%d not wanted, skipping", $v);
|
||||
next;
|
||||
}
|
||||
|
||||
verbose("setting IP address to %s for %s", $ip, $h);
|
||||
info("updating %s", $h);
|
||||
|
||||
# No change in IP => nochg <w.x.y.z>
|
||||
# Bad auth => badauth
|
||||
# Bad domain name => nohost
|
||||
# Bad IP => nohost
|
||||
# IP changed => good <xxxx::yyyy>
|
||||
# No domain name => Validation failed
|
||||
my %statuses = (
|
||||
'good' => (1, sprintf("IP set to %s for %s", $ip, $h)),
|
||||
'nochg' => (1, sprintf("IP already set to %s for %s", $ip, $h)),
|
||||
'nohost' => (0, sprintf("Bad domain name %s or bad IP %s", $h, $ip)),
|
||||
'badauth' => (0, sprintf("Bad authentication for %s", $h)),
|
||||
);
|
||||
|
||||
my $url1 = "https://$config{$h}{'login'}:$config{$h}{'password'}";
|
||||
$url1 .= "\@infomaniak.com/nic/update";
|
||||
$url1 .= "?hostname=$h";
|
||||
$url1 .= "&myip=$ip";
|
||||
|
||||
my $url2 = "https://infomaniak.com/nic/update";
|
||||
$url2 .= "?hostname=$h";
|
||||
$url2 .= "&myip=$ip";
|
||||
$url2 .= "&username=$config{$h}{'login'}";
|
||||
$url2 .= "&password=$config{$h}{'password'}";
|
||||
|
||||
my $reply;
|
||||
|
||||
foreach my $url ($url1, $url2) {
|
||||
verbose("trying update with %s", $url);
|
||||
$reply = geturl(proxy => opt('proxy'), url => $url);
|
||||
if (!defined($reply) || !$reply) {
|
||||
info("could not update %s using url %s, trying next one", $h, $url);
|
||||
next;
|
||||
}
|
||||
|
||||
my ($status) = split / /, $reply, 1;
|
||||
my ($updated, $msg) =
|
||||
$statuses{$status} // (0, sprintf("Unknown reply from Infomaniak: %s", $reply));
|
||||
|
||||
if (defined $updated && $updated) {
|
||||
info($msg);
|
||||
$config{$h}{"ipv$v"} = $ip;
|
||||
$config{$h}{'mtime'} = $config{$h}{'mtime'} // $now;
|
||||
$config{$h}{'status'} = 'good';
|
||||
$config{$h}{"status-ipv$v"} = 'good';
|
||||
next INFOMANIAK_IP_LOOP;
|
||||
}
|
||||
else {
|
||||
warning($msg);
|
||||
}
|
||||
}
|
||||
|
||||
$config{$h}{'status'} = $config{$h}{'status'} // 'failed';
|
||||
$config{$h}{"status-ipv$v"} = 'failed';
|
||||
failed("updating %s: could not update IP on Infomaniak", $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
|
||||
|
|
|
|||
Loading…
Reference in a new issue