Add support for Enom (#508)

* Add support for Enom

* Add support for Enom

* Add support for Enom

README.md

@@ -39,6 +39,7 @@ Dynamic DNS services currently supported include:
     regfish.de  - See https://www.regfish.de/domains/dyndns/ for details
     domenehsop  - See https://api.domeneshop.no/docs/#tag/ddns/paths/~1dyndns~1update/get
     Mythic Beasts - See https://www.mythic-beasts.com/support/api/dnsv2/dynamic-dns for details
+    Enom        - See https://www.enom.com for details
 
 `ddclient` now supports many cable and DSL broadband routers.
 

ddclient.conf.in

@@ -339,3 +339,11 @@ ssl=yes					# use ssl-support.  Works with
 # protocol=regfishde,
 # password=mypassword
 # my-domain.com
+
+##
+## Enom (www.enom.com)
+##
+# protocol=enom,
+# login=domain.name,
+# password=domain-password
+# my-domain.com

ddclient.in

@@ -957,6 +957,16 @@ my %services = (
             $variables{'service-common-defaults'},
         ),
     },
+    'enom' => {
+        'updateable' => undef,
+        'update'     => \&nic_enom_update,
+        'examples'   => \&nic_enom_examples,
+        'variables'  => {
+              %{$variables{'service-common-defaults'}},
+              'server'       => setv(T_FQDNP,  1, 0, 'dynamic.name-services.com', undef),
+              'min-interval' => setv(T_DELAY,  0, 0, 0, interval('5m')),
+            },
+     },
 );
 $variables{'merged'} = {
     map({ %{$services{$_}{'variables'}} } keys(%services)),
@@ -7740,6 +7750,90 @@ sub nic_regfishde_update {
   }
 }
 
+######################################################################
+######################################################################
+## enom
+######################################################################
+sub nic_enom_examples {
+    return <<EoEXAMPLE;
+o 'enom'
+The 'enom' protocol is used by DNS services offered by www.enom.com and their resellers.
+Configuration variables applicable to the 'enom' protocol are:
+  protocol=enom                ## 
+  server=fqdn.of.service       ## defaults to dynamic.name-services.com
+  login=domain.name            ## base domain name
+  password=domain-password     ## the domain password registered with the service
+  A_record                     ## the A record(s) registered with the service
+Example ${program}.conf file entries:
+  ## single host update
+  protocol=enom,                                   \\
+  login=mydomain.com,                              \\
+  password=mydomain.com-password                   \\
+  www
+  ## multiple host update
+  protocol=enom,                                   \\
+  login=mydomain.com,                              \\
+  password=mydomain.com-password                   \\
+  www,mail,*
+EoEXAMPLE
+}
+######################################################################
+## enom_update
+##
+## written by Lars Fredriksson
+## modified by Leonidas Arvanitis
+##
+## based on http://www.edoceo.com/creo/enomddu.php
+##
+## needs this url to update:
+##   http://dynamic.name-services.com/interface.asp?Command=SetDNSHost&HostName=www
+##   &Zone=mydomain.com&DomainPassword=MyD0mainPa55w0rD&Address=123.45.678.90
+##
+######################################################################
+sub nic_enom_update {
+    debug("\nenom_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   = "https://$config{$h}{'server'}/interface.asp?Command=SetDNSHost";
+        $url  .= "&HostName=$h";
+        $url  .= "&Zone=$config{$h}{'login'}";
+        $url  .= "&DomainPassword=$config{$h}{'password'}";
+        $url  .= "&Address=";
+        $url  .= $ip if $ip;
+
+        my $reply = geturl(
+            proxy => opt('proxy'),
+            url => $url
+        );
+
+        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 /Done=true/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);
+        }
+    }
+}
+
 # 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