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

add myaddr.tools dynamic dns service

Browse source
This commit is contained in:
Brian 2025-01-01 23:47:24 -05:00
parent 0a687d505b
commit 5889adf0cd
3 changed files with 72 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
README.md
View file

@ -39,6 +39,7 @@ Dynamic DNS services currently supported include:
* [Infomaniak](https://faq.infomaniak.com/2376)
* [INWX](https://www.inwx.com/)
* [Loopia](https://www.loopia.se)
* [Myaddr](https://myaddr.tools)
* [Mythic Beasts](https://www.mythic-beasts.com/support/api/dnsv2/dynamic-dns)
* [NameCheap](https://www.namecheap.com)
* [NearlyFreeSpeech.net](https://www.nearlyfreespeech.net/services/dns)

7
ddclient.conf.in
View file

@ -228,6 +228,13 @@ pid=@runstatedir@/ddclient.pid # record PID in file.
# password=my-token
# myhost.example.com
##
## Myaddr (myaddr.tools)
##
# protocol=myaddr
# password=key
# name-used-for-logging-only
##
## MyOnlinePortal (http://myonlineportal.net)
##

64
ddclient.in
View file

@ -1142,6 +1142,15 @@ our %protocols = (
'script' => setv(T_STRING, 0, '/nic/update', undef),
},
),
'myaddr' => ddclient::Protocol->new(
'update' => \&nic_myaddr_update,
'examples' => \&nic_myaddr_examples,
'cfgvars' => {
%{$cfgvars{'protocol-common-defaults'}},
'login' => undef,
'server' => setv(T_FQDNP, 0, 'myaddr.tools', undef),
},
),
'mythicdyn' => ddclient::Protocol->new(
'update' => \&nic_mythicdyn_update,
'examples' => \&nic_mythicdyn_examples,
@ -5623,6 +5632,61 @@ sub nic_henet_update {
}
}
######################################################################
## nic_myaddr_examples
######################################################################
sub nic_myaddr_examples {
my $self = shift;
return <<"EoEXAMPLE";
o 'myaddr'
The 'myaddr' protocol is used by the DNS service offered by myaddr.tools.
Configuration variables applicable to the 'myaddr' protocol are:
protocol=myaddr
password=key ## the private key corresponding to the domain to
## update
name-used-for-logging-only ## a name (not used by the service; the above key
## uniquely identifies the domain to update)
Example ${program}.conf file entries:
protocol=myaddr, \\
password=6bcf18a592bbc85bcee439e1e42def483ff3ef632a84df7ece5ff072f72887c1, \\
myname.myaddr.tools
EoEXAMPLE
}
######################################################################
## nic_myaddr_update
######################################################################
sub nic_myaddr_update {
my $self = shift;
for my $group (group_hosts_by(\@_, qw(password server wantipv4 wantipv6))) {
local $_l = pushlogctx(join(',', @{$group->{hosts}}));
my $key = $group->{cfg}{password};
my $server = $group->{cfg}{server};
for my $v (4, 6) {
delete $config{$_}{"wantipv$v"} for @{$group->{hosts}};
my $ip = $group->{cfg}{"wantipv$v"};
next if !$ip;
info("setting IPv$v address to $ip");
my $reply = geturl(
proxy => opt('proxy'),
url => "https://$server/update?key=$key&ip=$ip",
);
next if !header_ok($reply);
# a 200 response indicates success
for my $h (@{$group->{hosts}}) {
$recap{$h}{mtime} = $now;
$recap{$h}{"ipv$v"} = $ip;
$recap{$h}{"status-ipv$v"} = 'good';
}
success("IPv$v address set to $ip");
}
}
}
######################################################################
## nic_mythicdyn_examples
##