applied freedns patch (patch 2832129)
git-svn-id: svn+ssh://svn.code.sf.net/p/ddclient/code/trunk@111 3873ddee-7413-0410-b6c4-c2c57c1ab35a
This commit is contained in:
wimpunk
parent
a5d0064af9
commit
beab2f1052
2 changed files with 266 additions and 0 deletions
116
ddclient
116
ddclient
|
|
@ -524,6 +524,16 @@ my %services = (
|
|||
$variables{'service-common-defaults'},
|
||||
),
|
||||
},
|
||||
'freedns' => {
|
||||
'updateable' => undef,
|
||||
'update' => \&nic_freedns_update,
|
||||
'examples' => \&nic_freedns_examples,
|
||||
'variables' => merge(
|
||||
{ 'server' => setv(T_FQDNP, 1, 0, 1, 'freedns.afraid.org', undef) },
|
||||
{ 'min-interval' => setv(T_DELAY, 0, 0, 1, 0, interval('5m')),},
|
||||
$variables{'service-common-defaults'},
|
||||
),
|
||||
},
|
||||
);
|
||||
$variables{'merged'} = merge($variables{'global-defaults'},
|
||||
$variables{'service-common-defaults'},
|
||||
|
|
@ -1157,6 +1167,8 @@ sub init_config {
|
|||
$proto = $config{$h}{'protocol'};
|
||||
$proto = opt('protocol') if !defined($proto);
|
||||
|
||||
load_sha1_support() if ($proto eq "freedns");
|
||||
|
||||
if (!exists($services{$proto})) {
|
||||
warning("skipping host: %s: unrecognized protocol '%s'", $h, $proto);
|
||||
delete $config{$h};
|
||||
|
|
@ -1718,6 +1730,19 @@ EOM
|
|||
{ no warnings; $IO::Socket::SSL::DEBUG = 0; }
|
||||
}
|
||||
######################################################################
|
||||
## load_sha1_support
|
||||
######################################################################
|
||||
sub load_sha1_support {
|
||||
my $sha1_loaded = eval {require Digest::SHA1};
|
||||
unless ($sha1_loaded) {
|
||||
fatal(<<"EOM");
|
||||
Error loading the Perl module Digest::SHA1 needed for freedns update.
|
||||
On Debian, the package libdigest-sha1-perl must be installed.
|
||||
EOM
|
||||
}
|
||||
import Digest::SHA1 (qw/sha1_hex/);
|
||||
}
|
||||
######################################################################
|
||||
## geturl
|
||||
######################################################################
|
||||
sub geturl {
|
||||
|
|
@ -3380,6 +3405,97 @@ sub nic_sitelutions_update {
|
|||
}
|
||||
}
|
||||
|
||||
######################################################################
|
||||
|
||||
######################################################################
|
||||
## nic_freedns_examples
|
||||
######################################################################
|
||||
sub nic_freedns_examples {
|
||||
return <<EoEXAMPLE;
|
||||
|
||||
o 'freedns'
|
||||
|
||||
The 'freedns' protocol is used by DNS services offered by freedns.afraid.org.
|
||||
|
||||
Configuration variables applicable to the 'freedns' protocol are:
|
||||
protocol=freedns ##
|
||||
server=fqdn.of.service ## defaults to freedns.afraid.org
|
||||
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=freedns, \\
|
||||
login=my-freedns.afraid.org-login, \\
|
||||
password=my-freedns.afraid.org-password \\
|
||||
myhost.afraid.com
|
||||
|
||||
EoEXAMPLE
|
||||
}
|
||||
######################################################################
|
||||
## nic_freedns_update
|
||||
##
|
||||
## written by John Haney
|
||||
##
|
||||
## based on http://freedns.afraid.org/api/
|
||||
## needs this url to update:
|
||||
## http://freedns.afraid.org/api/?action=getdyndns&sha=<sha1sum of login|password>
|
||||
## This returns a list of host|currentIP|updateURL lines.
|
||||
## Pick the line that matches myhost, and fetch the URL.
|
||||
## word 'Updated' for success, 'fail' for failure.
|
||||
##
|
||||
######################################################################
|
||||
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'}");
|
||||
my $reply = geturl(opt('proxy'), $url);
|
||||
if (!defined($reply) || !$reply || !header_ok($_[0], $reply)) {
|
||||
failed("updating %s: Could not connect to %s for site list.", $_[0], $url);
|
||||
return;
|
||||
}
|
||||
my @lines = split("\n", $reply);
|
||||
my %freedns_hosts;
|
||||
grep {
|
||||
my @rec = split(/\|/, $_);
|
||||
$freedns_hosts{$rec[0]} = \@rec if ($#rec > 0);
|
||||
} @lines;
|
||||
if (!keys %freedns_hosts) {
|
||||
failed("Could not get freedns update URLs from %s", $config{$_[0]}{'server'});
|
||||
return;
|
||||
}
|
||||
## update each configured host
|
||||
foreach my $h (@_) {
|
||||
if(!$h){ next };
|
||||
my $ip = delete $config{$h}{'wantip'};
|
||||
info("setting IP address to %s for %s", $ip, $h);
|
||||
verbose("UPDATE:","updating %s", $h);
|
||||
|
||||
if($ip ne $freedns_hosts{$h}->[1]) {
|
||||
my $reply = geturl(opt('proxy'), $freedns_hosts{$h}->[2]);
|
||||
if (!defined($reply) || !$reply) {
|
||||
failed("updating %s: Could not connect to %s.", $h, $freedns_hosts{$h}->[2]);
|
||||
last;
|
||||
}
|
||||
last if !header_ok($h, $reply);
|
||||
|
||||
if($reply =~ /Updated.*host/) {
|
||||
success("updating %s: good: IP address set to %s", $h, $ip);
|
||||
} else {
|
||||
$config{$h}{'status'} = 'failed';
|
||||
warning("SENT: %s", $freedns_hosts{$h}->[2]) unless opt('verbose');
|
||||
warning("REPLIED: %s", $reply);
|
||||
failed("updating %s: Invalid reply.", $h);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
######################################################################
|
||||
# vim: ai ts=4 sw=4 tw=78 :
|
||||
|
||||
|
|
|
|||
150
patches/freedns-patch
Normal file
150
patches/freedns-patch
Normal file
|
|
@ -0,0 +1,150 @@
|
|||
# freedns patch
|
||||
# see https://sourceforge.net/tracker/?func=detail&aid=2832129&group_id=116817&atid=676131
|
||||
--- ddclient.orig 2009-01-27 14:14:02.000000000 -0500
|
||||
+++ ddclient 2009-08-05 13:27:25.725870005 -0400
|
||||
@@ -524,6 +524,16 @@
|
||||
$variables{'service-common-defaults'},
|
||||
),
|
||||
},
|
||||
+ 'freedns' => {
|
||||
+ 'updateable' => undef,
|
||||
+ 'update' => \&nic_freedns_update,
|
||||
+ 'examples' => \&nic_freedns_examples,
|
||||
+ 'variables' => merge(
|
||||
+ { 'server' => setv(T_FQDNP, 1, 0, 1, 'freedns.afraid.org', undef) },
|
||||
+ { 'min-interval' => setv(T_DELAY, 0, 0, 1, 0, interval('5m')),},
|
||||
+ $variables{'service-common-defaults'},
|
||||
+ ),
|
||||
+ },
|
||||
);
|
||||
$variables{'merged'} = merge($variables{'global-defaults'},
|
||||
$variables{'service-common-defaults'},
|
||||
@@ -1157,6 +1167,8 @@
|
||||
$proto = $config{$h}{'protocol'};
|
||||
$proto = opt('protocol') if !defined($proto);
|
||||
|
||||
+ load_sha1_support() if ($proto eq "freedns");
|
||||
+
|
||||
if (!exists($services{$proto})) {
|
||||
warning("skipping host: %s: unrecognized protocol '%s'", $h, $proto);
|
||||
delete $config{$h};
|
||||
@@ -1718,6 +1730,19 @@
|
||||
{ no warnings; $IO::Socket::SSL::DEBUG = 0; }
|
||||
}
|
||||
######################################################################
|
||||
+## load_sha1_support
|
||||
+######################################################################
|
||||
+sub load_sha1_support {
|
||||
+ my $sha1_loaded = eval {require Digest::SHA1};
|
||||
+ unless ($sha1_loaded) {
|
||||
+ fatal(<<"EOM");
|
||||
+Error loading the Perl module Digest::SHA1 needed for freedns update.
|
||||
+On Debian, the package libdigest-sha1-perl must be installed.
|
||||
+EOM
|
||||
+ }
|
||||
+ import Digest::SHA1 (qw/sha1_hex/);
|
||||
+}
|
||||
+######################################################################
|
||||
## geturl
|
||||
######################################################################
|
||||
sub geturl {
|
||||
@@ -3378,6 +3403,97 @@
|
||||
}
|
||||
}
|
||||
|
||||
+######################################################################
|
||||
+
|
||||
+######################################################################
|
||||
+## nic_freedns_examples
|
||||
+######################################################################
|
||||
+sub nic_freedns_examples {
|
||||
+return <<EoEXAMPLE;
|
||||
+
|
||||
+o 'freedns'
|
||||
+
|
||||
+The 'freedns' protocol is used by DNS services offered by freedns.afraid.org.
|
||||
+
|
||||
+Configuration variables applicable to the 'freedns' protocol are:
|
||||
+ protocol=freedns ##
|
||||
+ server=fqdn.of.service ## defaults to freedns.afraid.org
|
||||
+ 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=freedns, \\
|
||||
+ login=my-freedns.afraid.org-login, \\
|
||||
+ password=my-freedns.afraid.org-password \\
|
||||
+ myhost.afraid.com
|
||||
+
|
||||
+EoEXAMPLE
|
||||
+}
|
||||
+######################################################################
|
||||
+## nic_freedns_update
|
||||
+##
|
||||
+## written by John Haney
|
||||
+##
|
||||
+## based on http://freedns.afraid.org/api/
|
||||
+## needs this url to update:
|
||||
+## http://freedns.afraid.org/api/?action=getdyndns&sha=<sha1sum of login|password>
|
||||
+## This returns a list of host|currentIP|updateURL lines.
|
||||
+## Pick the line that matches myhost, and fetch the URL.
|
||||
+## word 'Updated' for success, 'fail' for failure.
|
||||
+##
|
||||
+######################################################################
|
||||
+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'}");
|
||||
+ my $reply = geturl(opt('proxy'), $url);
|
||||
+ if (!defined($reply) || !$reply || !header_ok($_[0], $reply)) {
|
||||
+ failed("updating %s: Could not connect to %s for site list.", $_[0], $url);
|
||||
+ return;
|
||||
+ }
|
||||
+ my @lines = split("\n", $reply);
|
||||
+ my %freedns_hosts;
|
||||
+ grep {
|
||||
+ my @rec = split(/\|/, $_);
|
||||
+ $freedns_hosts{$rec[0]} = \@rec if ($#rec > 0);
|
||||
+ } @lines;
|
||||
+ if (!keys %freedns_hosts) {
|
||||
+ failed("Could not get freedns update URLs from %s", $config{$_[0]}{'server'});
|
||||
+ return;
|
||||
+ }
|
||||
+ ## update each configured host
|
||||
+ foreach my $h (@_) {
|
||||
+ if(!$h){ next };
|
||||
+ my $ip = delete $config{$h}{'wantip'};
|
||||
+ info("setting IP address to %s for %s", $ip, $h);
|
||||
+ verbose("UPDATE:","updating %s", $h);
|
||||
+
|
||||
+ if($ip ne $freedns_hosts{$h}->[1]) {
|
||||
+ my $reply = geturl(opt('proxy'), $freedns_hosts{$h}->[2]);
|
||||
+ if (!defined($reply) || !$reply) {
|
||||
+ failed("updating %s: Could not connect to %s.", $h, $freedns_hosts{$h}->[2]);
|
||||
+ last;
|
||||
+ }
|
||||
+ last if !header_ok($h, $reply);
|
||||
+
|
||||
+ if($reply =~ /Updated.*host/) {
|
||||
+ success("updating %s: good: IP address set to %s", $h, $ip);
|
||||
+ } else {
|
||||
+ $config{$h}{'status'} = 'failed';
|
||||
+ warning("SENT: %s", $freedns_hosts{$h}->[2]) unless opt('verbose');
|
||||
+ warning("REPLIED: %s", $reply);
|
||||
+ failed("updating %s: Invalid reply.", $h);
|
||||
+ }
|
||||
+ }
|
||||
+ }
|
||||
+}
|
||||
+
|
||||
######################################################################
|
||||
# vim: ai ts=4 sw=4 tw=78 :
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in a new issue