Revert "Merge branch 'github'"
This reverts commit38f9762e2c
, reversing changes made to5bea1a58f7
.
This commit is contained in:
parent
38f9762e2c
commit
eafb707437
2 changed files with 31 additions and 34 deletions
|
@ -1,5 +1,5 @@
|
||||||
===============================================================================
|
===============================================================================
|
||||||
# DDCLIENT v3.8.3
|
# DDCLIENT v3.8.2
|
||||||
|
|
||||||
ddclient is a Perl client used to update dynamic DNS entries for accounts
|
ddclient is a Perl client used to update dynamic DNS entries for accounts
|
||||||
on many dynamic DNS services.
|
on many dynamic DNS services.
|
||||||
|
|
11
ddclient
11
ddclient
|
@ -3704,7 +3704,10 @@ EoEXAMPLE
|
||||||
##
|
##
|
||||||
######################################################################
|
######################################################################
|
||||||
sub nic_freedns_update {
|
sub nic_freedns_update {
|
||||||
|
|
||||||
|
|
||||||
debug("\nnic_freedns_update -------------------");
|
debug("\nnic_freedns_update -------------------");
|
||||||
|
|
||||||
## First get the list of updatable hosts
|
## First get the list of updatable hosts
|
||||||
my $url;
|
my $url;
|
||||||
$url = "http://$config{$_[0]}{'server'}/api/?action=getdyndns&sha=".&sha1_hex("$config{$_[0]}{'login'}|$config{$_[0]}{'password'}");
|
$url = "http://$config{$_[0]}{'server'}/api/?action=getdyndns&sha=".&sha1_hex("$config{$_[0]}{'login'}|$config{$_[0]}{'password'}");
|
||||||
|
@ -3746,17 +3749,11 @@ sub nic_freedns_update {
|
||||||
last;
|
last;
|
||||||
}
|
}
|
||||||
|
|
||||||
if ($reply =~ /Updated.*$h.*to.*$ip/) {
|
if($reply =~ /Updated.*$h.*to.*$ip/) {
|
||||||
$config{$h}{'ip'} = $ip;
|
$config{$h}{'ip'} = $ip;
|
||||||
$config{$h}{'mtime'} = $now;
|
$config{$h}{'mtime'} = $now;
|
||||||
$config{$h}{'status'} = 'good';
|
$config{$h}{'status'} = 'good';
|
||||||
success("updating %s: good: IP address set to %s", $h, $ip);
|
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 {
|
} else {
|
||||||
$config{$h}{'status'} = 'failed';
|
$config{$h}{'status'} = 'failed';
|
||||||
warning("SENT: %s", $freedns_hosts{$h}->[2]) unless opt('verbose');
|
warning("SENT: %s", $freedns_hosts{$h}->[2]) unless opt('verbose');
|
||||||
|
|
Loading…
Reference in a new issue