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

freedns: send IP address

Browse source 
http://freedns.afraid.org/ automatically detects external IP. To
override that IP it is possible to supply address=IP as additional
parameter.
This commit is contained in:
Mykola Orliuk 2015-10-23 12:16:10 +03:00
parent 42d9645459
commit b2ddf48e75
1 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
ddclient
View file

@ -1944,6 +1944,26 @@ EOM
import JSON::Any; import JSON::Any;
} }
###################################################################### ######################################################################
## urladd
######################################################################
sub urladd {
my $url = shift || '';
debug("url = %s", $url);
unless ($url =~ /(\?[^#]*)?(#.*)?$/) {
failed("invalid url: %s", $url);
return undef;
}
return $url if (@_ == 0);
my ($base, $query, $fragment) = ($`, $1, $2);
if (!$query) {
$query = '?' . shift;
}
foreach my $param (@_) {
$query .= '&' . $param;
}
return $base . $query . $fragment;
}
######################################################################
## geturl ## geturl
###################################################################### ######################################################################
sub geturl { sub geturl {
@ -3806,7 +3826,7 @@ sub nic_freedns_update {
$config{$h}{'status'} = 'good'; $config{$h}{'status'} = 'good';
success("update not necessary %s: good: IP address already set to %s", $h, $ip); success("update not necessary %s: good: IP address already set to %s", $h, $ip);
} else { } else {
my $reply = geturl(opt('proxy'), $freedns_hosts{$h}->[2]); my $reply = geturl(opt('proxy'), urladd($freedns_hosts{$h}->[2], "address=$ip"));
if (!defined($reply) || !$reply) { if (!defined($reply) || !$reply) {
failed("updating %s: Could not connect to %s.", $h, $freedns_hosts{$h}->[2]); failed("updating %s: Could not connect to %s.", $h, $freedns_hosts{$h}->[2]);
last; last;