From eafb7074375ce1ff7fe248251f68cfe9559ea9e5 Mon Sep 17 00:00:00 2001
From: wimpunk <wimpunk@users.sf.net>
Date: Fri, 4 Dec 2015 11:54:18 +0100
Subject: [PATCH] Revert "Merge branch 'github'"

This reverts commit 38f9762e2cf0e58018af54f1f497cb4720d62d60, reversing
changes made to 5bea1a58f75ab862bd7172179ea7ccf79cf17782.
---
 README.md |  2 +-
 ddclient  | 63 ++++++++++++++++++++++++++-----------------------------
 2 files changed, 31 insertions(+), 34 deletions(-)

diff --git a/README.md b/README.md
index 4560eeb..241b1a7 100644
--- a/README.md
+++ b/README.md
@@ -1,5 +1,5 @@
 ===============================================================================
-# DDCLIENT v3.8.3
+# DDCLIENT v3.8.2
 
 ddclient is a Perl client used to update dynamic DNS entries for accounts
 on many dynamic DNS services.
diff --git a/ddclient b/ddclient
index a2805e8..7abb5dd 100755
--- a/ddclient
+++ b/ddclient
@@ -3704,7 +3704,10 @@ EoEXAMPLE
 ##
 ######################################################################
 sub nic_freedns_update {
+
+
     debug("\nnic_freedns_update -------------------");
+
     ## First get the list of updatable hosts
     my $url;
     $url = "http://$config{$_[0]}{'server'}/api/?action=getdyndns&sha=".&sha1_hex("$config{$_[0]}{'login'}|$config{$_[0]}{'password'}");
@@ -3730,40 +3733,34 @@ sub nic_freedns_update {
 	info("setting IP address to %s for %s", $ip, $h);
 	verbose("UPDATE:","updating %s", $h);
 
-        if($ip eq $freedns_hosts{$h}->[1]) {
-            $config{$h}{'ip'}     = $ip;
-            $config{$h}{'mtime'}  = $now;
-            $config{$h}{'status'} = 'good';
-            success("update not necessary %s: good: IP address already set to %s", $h, $ip);
-        } else {
-            my $reply = geturl(opt('proxy'), $freedns_hosts{$h}->[2]);
-            if (!defined($reply) || !$reply) {
-                failed("updating %s: Could not connect to %s.", $h, $freedns_hosts{$h}->[2]);
-                last;
-            }
-            if(!header_ok($h, $reply)) {
-                $config{$h}{'status'} = 'failed';
-                last; 
-            }
+	if($ip eq $freedns_hosts{$h}->[1]) { 
+	    $config{$h}{'ip'}     = $ip; 
+	    $config{$h}{'mtime'}  = $now; 
+	    $config{$h}{'status'} = 'good'; 
+	    success("update not necessary %s: good: IP address already set to %s", $h, $ip); 
+	} else {
+	    my $reply = geturl(opt('proxy'), $freedns_hosts{$h}->[2]);
+	    if (!defined($reply) || !$reply) {
+	        failed("updating %s: Could not connect to %s.", $h, $freedns_hosts{$h}->[2]);
+		last;
+	    }
+	    if(!header_ok($h, $reply)) { 
+		$config{$h}{'status'} = 'failed'; 
+		last; 
+	    }
 
-            if ($reply =~ /Updated.*$h.*to.*$ip/) {
-                $config{$h}{'ip'}     = $ip;
-                $config{$h}{'mtime'}  = $now;
-                $config{$h}{'status'} = 'good';
-                success("updating %s: good: IP address set to %s", $h, $ip);
-            } elsif ($reply =~ /Address (\d+\.\d+\.\d+\.\d+) has not changed/) {
-                $ip = $1;
-                $config{$h}{'mtime'}  = $now;
-                $config{$h}{'status'} = 'good';
-                $config{$h}{'ip'}     = $ip;
-                success("updating %s: good: IP address %s has not changed", $h, $ip);
-            } else {
-                $config{$h}{'status'} = 'failed';
-                warning("SENT: %s", $freedns_hosts{$h}->[2]) unless opt('verbose');
-                warning("REPLIED: %s", $reply);
-                failed("updating %s: Invalid reply.", $h);
-            }
-        }
+	    if($reply =~ /Updated.*$h.*to.*$ip/) { 
+		$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", $freedns_hosts{$h}->[2]) unless opt('verbose');
+		warning("REPLIED: %s", $reply);
+		failed("updating %s: Invalid reply.", $h);
+	    }
+	}
     }
 }