From d22b2ac1db7ca5d93de87e2b02363857e9503a7e Mon Sep 17 00:00:00 2001
From: JMCC <JMCC@localhost>
Date: Fri, 16 Oct 2020 17:04:31 +0200
Subject: [PATCH] Add Keysystems protocol

---
 README.md   |  1 +
 ddclient.in | 90 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 91 insertions(+)

diff --git a/README.md b/README.md
index bd0cf62..35301a5 100644
--- a/README.md
+++ b/README.md
@@ -32,6 +32,7 @@ Dynamic DNS services currently supported include:
     ClouDNS     - See https://www.cloudns.net
     dinahosting - See https://dinahosting.com
     Gandi       - See https://gandi.net
+    Keysystems  - See https://www.domaindiscount24.com/faq/en/dynamic-dns
 
 DDclient now supports many of cable/dsl broadband routers.
 
diff --git a/ddclient.in b/ddclient.in
index 4ddd505..0f6fea7 100755
--- a/ddclient.in
+++ b/ddclient.in
@@ -461,6 +461,10 @@ my %variables = (
         'static'              => setv(T_BOOL,  0, 1, 0,                    undef),
         'wildcard'            => setv(T_BOOL,  0, 1, 0,                    undef),
     },
+    'keysystems-common-defaults'       => {
+                       'server'              => setv(T_FQDNP,  1, 0, 1, 'dynamicdns.key-systems.net', undef),
+                       'login'               => setv(T_LOGIN,  0, 0, 0, 'unused',            undef),
+    },
 );
 my %services = (
     'changeip' => {
@@ -758,6 +762,15 @@ my %services = (
             'zone'         => setv(T_OFQDN, 0, 0, undef,                  undef),
         },
     },
+    'keysystems' => {
+       'updateable' => undef,
+       'update'     => \&nic_keysystems_update,
+       'examples'   => \&nic_keysystems_examples,
+       'variables'  => merge(
+                         $variables{'keysystems-common-defaults'},
+                         $variables{'service-common-defaults'},
+                       ),
+   },
 );
 $variables{'merged'} = {
     map({ %{$services{$_}{'variables'}} } keys(%services)),
@@ -5787,6 +5800,83 @@ sub nic_gandi_update {
     }
 }
 
+######################################################################
+## nic_keysystems_examples
+######################################################################
+sub nic_keysystems_examples {
+   return <<EoEXAMPLE;
+o 'keysystems'
+
+The 'keysystems' protocol is used by some non-free dynamic DNS services
+such as www.domaindiscount24.com, www.moniker.com or www.rrpproxy.net.
+Check https://www.domaindiscount24.com/faq/en/dynamic-dns for API.
+
+Configuration variables applicable to the 'keysystems' protocol are:
+ protocol=keysystems               ##
+ server=www.fqdn.of.service   ## defaults to dynamicdns.key-systems.net
+ password=service-password    ## password (token) registered with the service
+ non-fully.qualified.host         ## the host registered with the service.
+
+Example ${program}.conf file entries:
+ ## single host update
+ protocol=keysystems,                                       \\
+ password=prettypassword                    \\
+ myhost
+
+EoEXAMPLE
+}
+
+######################################################################
+## nic_keysystems_update
+## By JMCC
+## Based on the work by Tom Bosmans - https://bit.ly/2SZI2zD
+## response contains "code 200" on succesfull completion
+######################################################################
+sub nic_keysystems_update {
+   debug("\nnic_keysystems_update -------------------");
+
+   ## update each configured host
+   ## should improve to update in one pass
+   foreach my $h (@_) {
+       my $ip = delete $config{$h}{'wantip'};
+       info("KEYSYSTEMS 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'}/update.php";
+       $url .= "?hostname=";
+       $url .= $h;
+       $url .= "&password=";
+       $url .= $config{$h}{'password'};
+       $url .= "&ip=";
+       $url .= $ip;
+       
+       # Try to get URL
+       my $reply = geturl(opt('proxy'), $url);
+
+       # No response, declare as failed
+       if (!defined($reply) || !$reply) {
+           failed("KEYSYSTEMS updating %s: Could not connect to %s.", $h, $config{$h}{'server'});
+           last;
+       }
+       last if !header_ok($h, $reply);
+
+       if ($reply =~ /code = 200/)
+       {
+               $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';
+               failed("updating %s: Server said: '$reply'", $h);
+        }
+   }
+} 
+
 # Execute main() if this file is run as a script or run via PAR (https://metacpan.org/pod/PAR),
 # otherwise do nothing. This "modulino" pattern makes it possible to import this file as a module
 # and test its functions directly; there's no need for test-only command-line arguments or stdout