Adding support for ChangeIP based on the patch from Michele Giorato

http://sourceforge.net/p/ddclient/discussion/399428/thread/e85661ad/


git-svn-id: svn+ssh://svn.code.sf.net/p/ddclient/code/trunk@150 3873ddee-7413-0410-b6c4-c2c57c1ab35a
This commit is contained in:
wimpunk 2013-04-28 14:55:34 +00:00
parent 415fb15634
commit efc62a3d41
3 changed files with 93 additions and 0 deletions

View file

@ -20,6 +20,7 @@ Dynamic DNS services currently supported include:
Loopia - See http://www.loopia.se for details
Noip - See http://www.noip.com/ for details
Freedns - See http://freedns.afraid.org/ for details
ChangeIP - See http://www.changeip.com/ for details
dtdns - See http://www.dtdns.com/ for details
DDclient now supports many of cable/dsl broadband routers.

View file

@ -554,6 +554,16 @@ my %services = (
$variables{'service-common-defaults'},
),
},
'changeip' => {
'updateable' => undef,
'update' => \&nic_changeip_update,
'examples' => \&nic_changeip_examples,
'variables' => merge(
{ 'server' => setv(T_FQDNP, 1, 0, 1, 'nic.changeip.com', undef) },
{ 'min-interval' => setv(T_DELAY, 0, 0, 1, 0, interval('5m')),},
$variables{'service-common-defaults'},
),
},
'dtdns' => {
'updateable' => undef,
'update' => \&nic_dtdns_update,
@ -3588,7 +3598,79 @@ sub nic_freedns_update {
}
}
######################################################################
## nic_changeip_examples
######################################################################
sub nic_changeip_examples {
return <<EoEXAMPLE;
o 'changeip'
The 'changeip' protocol is used by DNS services offered by changeip.com.
Configuration variables applicable to the 'changeip' protocol are:
protocol=changeip ##
server=fqdn.of.service ## defaults to nic.changeip.com
login=service-login ## login name and password registered with the service
password=service-password ##
fully.qualified.host ## the host registered with the service.
Example ${program}.conf file entries:
## single host update
protocol=changeip, \\
login=my-my-changeip.com-login, \\
password=my-changeip.com-password \\
myhost.changeip.org
EoEXAMPLE
}
######################################################################
## nic_changeip_update
##
## adapted by Michele Giorato
##
## https://nic.ChangeIP.com/nic/update?hostname=host.example.org&myip=66.185.162.19
##
######################################################################
sub nic_changeip_update {
debug("\nnic_changeip_update -------------------");
## update each configured host
foreach my $h (@_) {
my $ip = delete $config{$h}{'wantip'};
info("setting IP address to %s for %s", $ip, $h);
verbose("UPDATE:","updating %s", $h);
my $url;
$url = "http://$config{$h}{'server'}/nic/update";
$url .= "?hostname=$h";
$url .= "&ip=";
$url .= $ip if $ip;
my $reply = geturl(opt('proxy'), $url, $config{$h}{'login'}, $config{$h}{'password'});
if (!defined($reply) || !$reply) {
failed("updating %s: Could not connect to %s.", $h, $config{$h}{'server'});
last;
}
last if !header_ok($h, $reply);
my @reply = split /\n/, $reply;
if (grep /success/i, @reply) {
$config{$h}{'ip'} = $ip;
$config{$h}{'mtime'} = $now;
$config{$h}{'status'} = 'good';
success("updating %s: good: IP address set to %s", $h, $ip);
} else {
$config{$h}{'status'} = 'failed';
warning("SENT: %s", $url) unless opt('verbose');
warning("REPLIED: %s", $reply);
failed("updating %s: Invalid reply.", $h);
}
}
}
######################################################################
## nic_dtdns_examples

View file

@ -178,6 +178,16 @@ ssl=yes # use ssl-support. Works with
# password=my-loopia.se-password
# my.domain.tld,other.domain.tld
##
##
## ChangeIP (changeip.com)
##
## single host update
# protocol=changeip, \
# login=my-my-changeip.com-login, \
# password=my-changeip.com-password \
# myhost.changeip.org
##
## DtDNS (www.dtdns.com)
##