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

Patching with zoneedit patch provided by killer-jk in ticket #15

Browse source 
git-svn-id: svn+ssh://svn.code.sf.net/p/ddclient/code/trunk@123 3873ddee-7413-0410-b6c4-c2c57c1ab35a
This commit is contained in:
wimpunk 2011-03-08 21:21:08 +00:00
parent 6ff4d054b7
commit 4a21e0ac53
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ddclient
View file

@ -417,6 +417,9 @@ my %variables = (
'warned-min-interval' => setv(T_ANY, 0, 1, 0, 0, undef), 'warned-min-interval' => setv(T_ANY, 0, 1, 0, 0, undef),
'warned-min-error-interval' => setv(T_ANY, 0, 1, 0, 0, undef), 'warned-min-error-interval' => setv(T_ANY, 0, 1, 0, 0, undef),
}, },
'zoneedit-service-common-defaults' => {
'zone' => setv(T_OFQDN, 0, 0, 1, undef, undef),
},
); );
my %services = ( my %services = (
'dyndns1' => { 'dyndns1' => {
@ -487,6 +490,7 @@ my %services = (
{ 'server' => setv(T_FQDNP, 1, 0, 1, 'dynamic.zoneedit.com', undef) }, { 'server' => setv(T_FQDNP, 1, 0, 1, 'dynamic.zoneedit.com', undef) },
{ 'min-interval' => setv(T_DELAY, 0, 0, 1, interval('5m'), 0),}, { 'min-interval' => setv(T_DELAY, 0, 0, 1, interval('5m'), 0),},
$variables{'service-common-defaults'}, $variables{'service-common-defaults'},
$variables{'zoneedit-service-common-defaults'},
), ),
}, },
'easydns' => { 'easydns' => {
@ -2877,6 +2881,11 @@ www.zoneedit.com.
Configuration variables applicable to the 'zoneedit1' protocol are: Configuration variables applicable to the 'zoneedit1' protocol are:
protocol=zoneedit1 ## protocol=zoneedit1 ##
server=fqdn.of.service ## defaults to www.zoneedit.com server=fqdn.of.service ## defaults to www.zoneedit.com
zone=zone-where-domains-are ## only needed if 1 or more subdomains are deeper
## than 1 level in relation to the zone where it
## is defined. For example, b.foo.com in a zone
## foo.com doesn't need this, but a.b.foo.com in
## the same zone needs zone=foo.com
login=service-login ## login name and password registered with the service login=service-login ## login name and password registered with the service
password=service-password ## password=service-password ##
your.domain.name ## the host registered with the service. your.domain.name ## the host registered with the service.
@ -2884,7 +2893,8 @@ Configuration variables applicable to the 'zoneedit1' protocol are:
Example ${program}.conf file entries: Example ${program}.conf file entries:
## single host update ## single host update
protocol=zoneedit1, \\ protocol=zoneedit1, \\
server=dynamic.zoneedit.com, \\ server=dynamic.zoneedit.com, \\
zone=zone-where-domains-are, \\
login=my-zoneedit-login, \\ login=my-zoneedit-login, \\
password=my-zoneedit-password \\ password=my-zoneedit-password \\
my.domain.name my.domain.name
@ -2908,7 +2918,7 @@ sub nic_zoneedit1_update {
debug("\nnic_zoneedit1_update -------------------"); debug("\nnic_zoneedit1_update -------------------");
## group hosts with identical attributes together ## group hosts with identical attributes together
my %groups = group_hosts_by([ @_ ], [ qw(login password server) ]); my %groups = group_hosts_by([ @_ ], [ qw(login password server zone) ]);
## update each set of hosts that had similar configurations ## update each set of hosts that had similar configurations
foreach my $sig (keys %groups) { foreach my $sig (keys %groups) {
@ -2925,6 +2935,7 @@ sub nic_zoneedit1_update {
$url .= "http://$config{$h}{'server'}/auth/dynamic.html"; $url .= "http://$config{$h}{'server'}/auth/dynamic.html";
$url .= "?host=$hosts"; $url .= "?host=$hosts";
$url .= "&dnsto=$ip" if $ip; $url .= "&dnsto=$ip" if $ip;
$url .= "&zone=$config{$h}{'zone'}" if defined $config{$h}{'zone'};
my $reply = geturl(opt('proxy'), $url, $config{$h}{'login'}, $config{$h}{'password'}); my $reply = geturl(opt('proxy'), $url, $config{$h}{'login'}, $config{$h}{'password'});
if (!defined($reply) || !$reply) { if (!defined($reply) || !$reply) {