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

Merge b64f9c7fe7 into bec4521ecd

Browse source
This commit is contained in:
epgdatacapbon 2016-01-11 07:01:26 +00:00
commit 3d7ae18f48
3 changed files with 97 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
README.md
View file

@ -27,6 +27,7 @@ Dynamic DNS services currently supported include:
Google - See http://www.google.com/domains for details
Duckdns - See https://duckdns.org/ for details
woima.fi - See https://woima.fi/ for details
MyDNS.JP - See http://www.mydns.jp/ for details
DDclient now supports many of cable/dsl broadband routers.

87
ddclient
View file

@ -477,6 +477,10 @@ my %variables = (
'warned-min-interval' => setv(T_ANY, 0, 1, 0, 0, undef),
'warned-min-error-interval' => setv(T_ANY, 0, 1, 0, 0, undef),
},
'mydns-common-defaults' => {
'server' => setv(T_FQDNP, 1, 0, 1, 'www.mydns.jp', undef),
'max-interval' => setv(T_DELAY, 0, 0, 1, interval('6d'), 0),
},
);
my %services = (
'dyndns1' => {
@ -670,6 +674,15 @@ my %services = (
$variables{'woima-service-common-defaults'},
),
},
'mydns' => {
'updateable' => undef,
'update' => \&nic_mydns_update,
'examples' => \&nic_mydns_examples,
'variables' => merge(
$variables{'mydns-common-defaults'},
$variables{'service-common-defaults'},
),
},
);
$variables{'merged'} = merge($variables{'global-defaults'},
$variables{'service-common-defaults'},
@ -4480,6 +4493,80 @@ sub nic_woima_update {
}
}
######################################################################
## nic_mydns_examples
######################################################################
sub nic_mydns_examples {
return <<EoEXAMPLE;
o 'mydns'
The 'mydns' protocol is used by a free dynamic DNS service offered by www.mydns.jp.
Configuration variables applicable to the 'mydns' protocol are:
protocol=mydns ##
server=fqdn.of.service ## defaults to www.mydns.jp
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=mydns
login=my-mydns.jp-login
password=my-mydns.jp-password
myhost.mydns.jp
EoEXAMPLE
}
######################################################################
## nic_mydns_update
######################################################################
sub nic_mydns_update {
debug("\nnic_mydns_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);
# Set the URL that we're going to to update
my $url;
$url = "http://$config{$h}{'server'}/directip.html";
$url .= "?MID=";
$url .= $config{$h}{'login'};
$url .= "&PWD=";
$url .= $config{$h}{'password'};
$url .= "&IPV4ADDR=";
$url .= $ip;
# Try to get URL
my $reply = geturl(opt('proxy'), $url);
# No response, declare as failed
if (!defined($reply) || !$reply) {
failed("updating %s: Could not connect to %s.", $h, $config{$h}{'server'});
last;
}
last if !header_ok($h, $reply);
# Response found, check the reply
if ($reply =~ /login_status = 1/i)
{
$config{$h}{'ip'} = $ip;
$config{$h}{'mtime'} = $now;
$config{$h}{'status'} = 'good';
success("updating %s: good: IP address set to %s", $h, $ip);
}
else
{
$reply =~ /login_status.*\n.*\n(.+)\s*<BR>/i;
$config{$h}{'status'} = 'failed';
warning("SENT: %s", $url) unless opt('verbose');
warning("REPLIED: %s", $1);
failed("updating %s: Invalid reply.", $h);
}
}
}
######################################################################
# vim: ai ts=4 sw=4 tw=78 :

8
sample-etc_ddclient.conf
View file

@ -221,3 +221,11 @@ ssl=yes # use ssl-support. Works with
# password=my-auto-generated-password
# protocol=duckdns hostwithoutduckdnsorg
##
## MyDNS (www.mydns.jp)
##
# protocol=mydns
# server=www.mydns.jp
# login=my-mydns.jp-login
# password=my-mydns.jp-password
# your-host.mydns.jp