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

Merge 09fec61690 into a2ea922aa3

Browse source
This commit is contained in:
hank 2015-11-28 18:51:54 +00:00
commit 496f56589f
2 changed files with 1620 additions and 1617 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
README.md
View file

@ -1,5 +1,5 @@
===============================================================================
# DDCLIENT v3.8.2
# DDCLIENT v3.8.3
ddclient is a Perl client used to update dynamic DNS entries for accounts
on many dynamic DNS services.

11
ddclient
View file

@ -25,7 +25,7 @@ use Getopt::Long;
use Sys::Hostname;
use IO::Socket;
my $version = "3.8.3";
my $version = "3.8.3.1-hank";
my $programd = $0;
$programd =~ s%^.*/%%;
my $program = $programd;
@ -3704,10 +3704,7 @@ EoEXAMPLE
##
######################################################################
sub nic_freedns_update {
debug("\nnic_freedns_update -------------------");
## First get the list of updatable hosts
my $url;
$url = "http://$config{$_[0]}{'server'}/api/?action=getdyndns&sha=".&sha1_hex("$config{$_[0]}{'login'}|$config{$_[0]}{'password'}");
@ -3754,6 +3751,12 @@ sub nic_freedns_update {
$config{$h}{'mtime'} = $now;
$config{$h}{'status'} = 'good';
success("updating %s: good: IP address set to %s", $h, $ip);
} elsif ($reply =~ /Address (\d+\.\d+\.\d+\.\d+) has not changed/) {
$ip = $1;
$config{$h}{'mtime'} = $now;
$config{$h}{'status'} = 'good';
$config{$h}{'ip'} = $ip;
success("updating %s: good: IP address %s has not changed", $h, $ip);
} else {
$config{$h}{'status'} = 'failed';
warning("SENT: %s", $freedns_hosts{$h}->[2]) unless opt('verbose');