From efc62a3d41d391016e7fbc13ecb304abb3c36ad6 Mon Sep 17 00:00:00 2001
From: wimpunk <wimpunk@users.sf.net>
Date: Sun, 28 Apr 2013 14:55:34 +0000
Subject: [PATCH] Adding support for ChangeIP based on the patch from Michele
 Giorato http://sourceforge.net/p/ddclient/discussion/399428/thread/e85661ad/

git-svn-id: svn+ssh://svn.code.sf.net/p/ddclient/code/trunk@150 3873ddee-7413-0410-b6c4-c2c57c1ab35a
---
 README.md                |  1 +
 ddclient                 | 82 ++++++++++++++++++++++++++++++++++++++++
 sample-etc_ddclient.conf | 10 +++++
 3 files changed, 93 insertions(+)

diff --git a/README.md b/README.md
index 19a63ec..04ca6ec 100644
--- a/README.md
+++ b/README.md
@@ -20,6 +20,7 @@ Dynamic DNS services currently supported include:
     Loopia      - See http://www.loopia.se for details
     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
 
 DDclient now supports many of cable/dsl broadband routers. 
diff --git a/ddclient b/ddclient
index c3576f1..9eec957 100755
--- a/ddclient
+++ b/ddclient
@@ -554,6 +554,16 @@ my %services = (
 			  $variables{'service-common-defaults'},
 			),
     },
+    'changeip' => {
+        'updateable' => undef,
+        'update'     => \&nic_changeip_update,
+        'examples'   => \&nic_changeip_examples,
+        'variables'  => merge(
+			  { 'server'       => setv(T_FQDNP,  1, 0, 1, 'nic.changeip.com',    undef)    },
+			  { 'min-interval' => setv(T_DELAY,  0, 0, 1, 0, interval('5m')),},
+			  $variables{'service-common-defaults'},
+			),
+    },
     'dtdns' => {
 	'updateable' => undef,
 	'update'     => \&nic_dtdns_update,
@@ -3588,7 +3598,79 @@ sub nic_freedns_update {
     }
 }
 
+###################################################################### 
+## nic_changeip_examples 
+###################################################################### 
+sub nic_changeip_examples {
+return <<EoEXAMPLE;
+
+o 'changeip'
+
+The 'changeip' protocol is used by DNS services offered by changeip.com.
+
+Configuration variables applicable to the 'changeip' protocol are:
+  protocol=changeip            ##
+  server=fqdn.of.service       ## defaults to nic.changeip.com
+  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=changeip,                                               \\
+  login=my-my-changeip.com-login,                                  \\
+  password=my-changeip.com-password                                \\
+  myhost.changeip.org
+
+EoEXAMPLE
+} 
+
 ######################################################################
+## nic_changeip_update
+##
+## adapted by Michele Giorato
+##
+## https://nic.ChangeIP.com/nic/update?hostname=host.example.org&myip=66.185.162.19
+##
+######################################################################
+sub nic_changeip_update {
+
+
+    debug("\nnic_changeip_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   = "http://$config{$h}{'server'}/nic/update";
+        $url  .= "?hostname=$h";
+        $url  .= "&ip=";
+        $url  .= $ip if $ip;
+
+		my $reply = geturl(opt('proxy'), $url, $config{$h}{'login'}, $config{$h}{'password'});
+        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 /success/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);
+        }
+    }
+}
 
 ######################################################################
 ## nic_dtdns_examples
diff --git a/sample-etc_ddclient.conf b/sample-etc_ddclient.conf
index 2a33f7c..402b25d 100644
--- a/sample-etc_ddclient.conf
+++ b/sample-etc_ddclient.conf
@@ -178,6 +178,16 @@ ssl=yes					# use ssl-support.  Works with
 # password=my-loopia.se-password
 # my.domain.tld,other.domain.tld
 
+##
+##
+## ChangeIP (changeip.com)
+##
+## single host update
+# protocol=changeip,                   \
+# login=my-my-changeip.com-login,      \
+# password=my-changeip.com-password    \
+# myhost.changeip.org
+
 ##
 ## DtDNS (www.dtdns.com)
 ##