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

Don't issue warnings when freedns IP didn't change

Browse source 
Before this update, freedns warnings would appear in the log even though
FreeDNS sent back a code 200 with a message indicating the IP address was
already correct.  A simple regex change was all that was needed to make this a
success instead.  Now, it looks like this:

DEBUG:    server = freedns.afraid.org
SUCCESS:  updating xxx.xxx.xxx good: IP address has not changed
This commit is contained in:
Erik Gregg 2015-11-28 13:28:46 -05:00
parent 23442303f4
commit f283d1e7ee
2 changed files with 36 additions and 37 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.

7
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,8 @@ 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 .* has not changed/) {
success("updating %s: good: IP address has not changed", $h, $ip);
} else {
$config{$h}{'status'} = 'failed';
warning("SENT: %s", $freedns_hosts{$h}->[2]) unless opt('verbose');