Add Simply.com support

ChangeLog.md

@@ -11,6 +11,7 @@ repository history](https://github.com/ddclient/ddclient/commits/master).
   * Added support for ClouDNS.
   * Added support for dinahosting.
   * Added support for Gandi LiveDNS.
+  * Added support for Simply.com DDNS Service
   * Added a build system to make it easier for distributions to package
     ddclient:
     ```

README.md

@@ -33,6 +33,7 @@ Dynamic DNS services currently supported include:
     dinahosting - See https://dinahosting.com
     Gandi       - See https://gandi.net
     dnsexit     - See https://dnsexit.com/ for details
+    Simply.com  - See https://www.simply.com/en/docs/ddns/ for details
 
 DDclient now supports many of cable/dsl broadband routers.
 

README.ssl

@@ -11,3 +11,4 @@ ssl support is tested on folowing dynamic dns providers:
 - freemyip.com
 - DNS Made Easy
 - dondominio.com
+- Simply.com

ddclient.conf.in

@@ -309,3 +309,11 @@ ssl=yes					# use ssl-support.  Works with
 #login=myusername,                                            \
 #password=mypassword,                                         \
 #subdomain-1.domain.com,subdomain-2.domain.com
+
+##
+## Simply.com (https://www.simply.com/en/docs/ddns/)
+##
+# protocol=simply,                      \
+# zone=example.com,                     \
+# password=api-key,                     \
+# qualifiedhost.example.com,unqualifiedhost

ddclient.in

@@ -769,6 +769,19 @@ my %services = (
             'server'   => setv(T_FQDNP,  1, 0, 'www.ovh.com', undef),
         },
     },
+    'simply' => {
+        'updateable' => undef,
+        'update'     => \&nic_simply_update,
+        'examples'   => \&nic_simply_examples,
+        'variables' => {
+            %{$variables{'service-common-defaults'}},
+            'server'       => setv(T_FQDNP,  1, 0, 'api.simply.com', undef),
+            'script'       => setv(T_STRING, 1, 1, '/ddns.php',      undef),
+            'zone'         => setv(T_FQDN,   1, 0, undef,            undef),
+            # Unused variables.
+            'login'        => setv(T_STRING, 0, 0, 'unused',         undef),
+        },
+    },
     'sitelutions' => {
         'updateable' => undef,
         'update'     => \&nic_sitelutions_update,
@@ -2377,7 +2390,7 @@ sub fetch_via_socket_io {
     } else {
         $request .= "https://$server" if defined($proxy);
     }
-    $request .= "/$url HTTP/1.1\n";
+    $request .= "/$url HTTP/1.0\n";
     $request .= "Host: $server\n";
 
     if (defined($login) || defined($password)) {
@@ -2387,8 +2400,8 @@ sub fetch_via_socket_io {
     $request .= "User-Agent: ${program}/${version}\n";
     if ($data) {
         $request .= "Content-Type: application/x-www-form-urlencoded\n" if $headers !~ /^Content-Type:/mi;
-        $request .= "Content-Length: " . length($data) . "\n";
     }
+    $request .= "Content-Length: " . length($data) . "\n";
     $request .= "Connection: close\n";
     $headers .= "\n" if $headers ne '' && substr($headers, -1) ne "\n";
     $request .= $headers;
@@ -6559,6 +6572,94 @@ sub nic_gandi_update {
     }
 }
 
+######################################################################
+## nic_simply_examples
+######################################################################
+sub nic_simply_examples {
+    return <<"EoEXAMPLE";
+o 'simply'
+
+The 'simply' protocol is used by the DDNS service offered by Simply.com.
+API is documented here: https://www.simply.com/en/docs/ddns/
+
+Available configuration variables:
+  * password: API key for account the domain is attached to. Required.
+  * zone: The DNS zone to be updated. Required.
+
+Example ${program}.conf file entry:
+  protocol=simply,                           \\
+  zone=example.com,                          \\
+  password=api-key,                          \\
+  qualifiedhost.example.com,unqualifiedhost
+EoEXAMPLE
+}
+
+######################################################################
+## nic_simply_update
+######################################################################
+sub nic_simply_update {
+    debug("\nnic_simply_update -------------------");
+
+    my %errors = (
+        'dnserr'   => 'Something went wrong',
+        'nochg'    => 'The record is already set to the IP given.',
+        'badauth'  => 'Invalid login',
+        'abuse',   => 'The record has been updated/changed too many times in a given period.',
+    );
+
+    # 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 update
+        my $url;
+        $url  = "https://$config{$h}{'server'}$config{$h}{'script'}";
+        $url .= "?apikey=$config{$h}{'password'}";
+        $url .= "&domain=$config{$h}{'zone'}";
+        $url .= "&hostname=$h";
+        $url .= "&myip=";
+        $url .= $ip if $ip;
+
+        # Try to get URL
+        my $reply = geturl(
+            proxy => opt('proxy'),
+            url => $url,
+        );
+
+        # No response, declare as failed
+        if (!defined($reply) || !$reply) {
+            failed("updating %s: Could not connect to %s.", $h, $config{$h}{'server'});
+            last;
+        }
+
+        # Response found
+        my @reply = split /\n/, $reply;
+        my $returned = pop(@reply);
+        my ($status, $returnedip) = split / /, lc $returned;
+        $ip = $returnedip if (not $ip);
+        if ($status eq 'good' || $status eq 'nochg') {
+            $config{$h}{'ip'}     = $ip;
+            $config{$h}{'mtime'}  = $now;
+            $config{$h}{'status'} = 'good';
+            if ($status eq 'good') {
+                success("updating %s: %s: IP address set to %s", $h, $status, $ip);
+            } else {
+                warning("updating %s: %s: %s", $h, $status, $errors{$status});
+            }
+        } else {
+            $config{$h}{'status'} = $status;
+            if (exists $errors{$status}) {
+                failed("updating %s: %s: %s", $h, $status, $errors{$status});
+            } else {
+                failed("updating %s: unexpected status (%s): %s", $h, $status, $returned);
+            }
+        }
+    }
+}
+
 # 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