Remove dtdns

README.md

@@ -18,7 +18,6 @@ Dynamic DNS services currently supported include:
     Noip        - See http://www.noip.com/ for details
     Freedns     - See http://freedns.afraid.org/ for details
     ChangeIP    - See http://www.changeip.com/ for details
-    dtdns       - See http://www.dtdns.com/ for details
     nsupdate    - See nsupdate(1) and ddns-confgen(8) for details
     CloudFlare  - See https://www.cloudflare.com/ for details
     Google      - See http://www.google.com/domains for details

ddclient.conf.in

@@ -186,15 +186,6 @@ ssl=yes					# use ssl-support.  Works with
 # password=my-changeip.com-password    \
 # myhost.changeip.org
 
-##
-## DtDNS (www.dtdns.com)
-##
-# protocol=dtdns,
-# server=www.dtdns.com,
-# client=ddclient,
-# password=my-dtdns.com-password
-# myhost.dtdns.net, otherhost.dtdns.net
-
 ##
 ## CloudFlare (www.cloudflare.com)
 ##

ddclient.in

@@ -494,16 +494,6 @@ my %services = (
             'host' => setv(T_NUMBER, 1, 1, 0, undef),
         },
     },
-    'dtdns' => {
-        'updateable' => undef,
-        'update'     => \&nic_dtdns_update,
-        'examples'   => \&nic_dtdns_examples,
-        'variables' => {
-            %{$variables{'service-common-defaults'}},
-            'client' => setv(T_STRING, 0, 1, $program, undef),
-            'login'  => setv(T_LOGIN,  0, 0, 'unused', undef),
-        },
-    },
     'duckdns' => {
         'updateable' => undef,
         'update'     => \&nic_duckdns_update,
@@ -3954,85 +3944,6 @@ sub nic_changeip_update {
     }
 }
 
-######################################################################
-## nic_dtdns_examples
-######################################################################
-sub nic_dtdns_examples {
-    return <<"EoEXAMPLE";
-o 'dtdns'
-
-The 'dtdns' protocol is the protocol used by the dynamic hostname services
-of the 'DtDNS' dns services. This is currently used by the free
-dynamic DNS service offered by www.dtdns.com.
-
-Configuration variables applicable to the 'dtdns' protocol are:
-  protocol=dtdns               ##
-  server=www.fqdn.of.service   ## defaults to www.dtdns.com
-  password=service-password    ## password registered with the service
-  client=name_of_updater       ## defaults to $program (10 chars max, no spaces)
-  fully.qualified.host         ## the host registered with the service.
-
-Example ${program}.conf file entries:
-  ## single host update
-  protocol=dtdns,                                       \\
-  password=my_password,                                 \\
-  client=ddclient                                       \\
-  myhost.dtdns.net
-
-EoEXAMPLE
-}
-
-######################################################################
-## nic_dtdns_update
-## by Achim Franke
-######################################################################
-sub nic_dtdns_update {
-    debug("\nnic_dtdns_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'}/api/autodns.cfm";
-        $url .= "?id=";
-        $url .= $h;
-        $url .= "&pw=";
-        $url .= $config{$h}{'password'};
-        $url .= "&ip=";
-        $url .= $ip;
-        $url .= "&client=";
-        $url .= $config{$h}{'client'};
-
-        # 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;
-        }
-        last if !header_ok($h, $reply);
-
-        # Response found, just declare as success (this is ugly, we need more error checking)
-        if ($reply =~ /now\spoints\sto/) {
-            $config{$h}{'ip'}     = $ip;
-            $config{$h}{'mtime'}  = $now;
-            $config{$h}{'status'} = 'good';
-            success("updating %s: good: IP address set to %s", $h, $ip);
-        } else {
-            my @reply = split /\n/, $reply;
-            my $returned = pop(@reply);
-            $config{$h}{'status'} = 'failed';
-            failed("updating %s: Server said: '%s'", $h, $returned);
-        }
-    }
-}
-######################################################################
-
 ######################################################################
 ## nic_googledomains_examples
 ##