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

Update ddclient.in

Browse source
This commit is contained in:
gertfriend 2022-11-10 14:11:09 +01:00 committed by GitHub
parent b42cf3b3ae
commit b304e1ae70
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 15 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
ddclient.in
View file

@ -901,8 +901,8 @@ my %services = (
}, },
'regfishde' => { 'regfishde' => {
'updateable' => undef, 'updateable' => undef,
'update' => \&nic_regfishdev4_update, 'update' => \&nic_regfishde_update,
'examples' => \&nic_regfishdev4_examples, 'examples' => \&nic_regfishde_examples,
'variables' => merge( 'variables' => merge(
$variables{'regfishde-common-defaults'}, $variables{'regfishde-common-defaults'},
$variables{'service-common-defaults'}, $variables{'service-common-defaults'},
@ -7176,9 +7176,9 @@ sub nic_keysystems_update {
} }
###################################################################### ######################################################################
## nic_regfishdev4_examples ## nic_regfishde_examples
###################################################################### ######################################################################
sub nic_regfishdev4_examples { sub nic_regfishde_examples {
return <<EoEXAMPLE; return <<EoEXAMPLE;
o 'regfishde' o 'regfishde'
The 'regfishde' protocol is used by the non-free dynamic DNS service offered by www.regfish.de. The 'regfishde' protocol is used by the non-free dynamic DNS service offered by www.regfish.de.
@ -7189,31 +7189,33 @@ password=service-password ## password (token) registered with the servi
myhost.mydomain.com ## the host registered with the service. myhost.mydomain.com ## the host registered with the service.
Example ${program}.conf file entries: Example ${program}.conf file entries:
## single host update ## single host update
protocol=regfishde, \ protocol=regfishde
password=service-password \ password=service-password
myhost.mydomain.com myhost.mydomain.com
EoEXAMPLE EoEXAMPLE
} }
###################################################################### ######################################################################
## nic_regfishdev4_update ## nic_regfishde_update
## response contains "success" on succesfull completion ## response contains "success" on succesfull completion
###################################################################### ######################################################################
sub nic_regfishdev4_update { sub nic_regfishde_update {
debug("\nnic_regfishdev4_update -------------------"); debug("\nnic_regfishde_update -------------------");
## update each configured host ## update configured host
## should improve to update in one pass
for my $h (@_) { for my $h (@_) {
my $ip = delete $config{$h}{'wantip'}; my $ip = delete $config{$h}{'wantip'};
my $ipv6 = delete $config{$h}{'wantip'};
info("regfish.de setting IP address to %s for %s", $ip, $h); info("regfish.de setting IP address to %s for %s", $ip, $h);
my $url = "https://$config{$h}{'server'}/?fqdn=$h&ipv4=$ip&forcehost=1&token=$config{$h}{'password'}"; my $ipv = ($ip eq ($ipv6 // '')) ? '6' : '4';
my $url = "https://$config{$h}{'server'}/?fqdn=$h&ipv$ipv=$ip&forcehost=1&token=$config{$h}{'password'}";
# Try to get URL # Try to get URL
my $reply = geturl(proxy => opt('proxy'), url => $url); my $reply = geturl(proxy => opt('proxy'), url => $url);
# No response, declare as failed # No response, give error
if (!defined($reply) || !$reply) { if (!defined($reply) || !$reply) {
failed("regfish.de updating %s: failed: %s.", $h, $config{$h}{'server'}); failed("regfish.de updating %s: failed: %s.", $h, $config{$h}{'server'});
last; last;