From 80002fe433b0a983fbee13c1f4ad6760596531f9 Mon Sep 17 00:00:00 2001
From: Michael Tremer <michael.tremer@ipfire.org>
Date: Thu, 1 Aug 2013 17:38:12 +0200
Subject: [PATCH] DDNS: Support for all-inkl.com.

Requested by Daniel Kovacs <daniel.kovacs@pleasuredome.org>.
---
 config/rootfiles/core/72/filelists/files |  2 ++
 html/cgi-bin/ddns.cgi                    |  2 ++
 src/scripts/setddns.pl                   | 21 +++++++++++++++++++++
 3 files changed, 25 insertions(+)

diff --git a/config/rootfiles/core/72/filelists/files b/config/rootfiles/core/72/filelists/files
index 7ab00d485..f20186d7b 100644
--- a/config/rootfiles/core/72/filelists/files
+++ b/config/rootfiles/core/72/filelists/files
@@ -1,4 +1,6 @@
 etc/system-release
 etc/issue
+srv/web/ipfire/cgi-bin/ddns.cgi
 srv/web/ipfire/cgi-bin/vpnmain.cgi
 usr/local/bin/openvpnctrl
+usr/local/bin/setddns.pl
diff --git a/html/cgi-bin/ddns.cgi b/html/cgi-bin/ddns.cgi
index d840d3946..88847a050 100644
--- a/html/cgi-bin/ddns.cgi
+++ b/html/cgi-bin/ddns.cgi
@@ -232,6 +232,7 @@ if ($settings{'ACTION'} eq '')
 &Header::openbigbox('100%', 'left', '', $errormessage);
 
 my %checked =();     # Checkbox manipulations
+$checked{'SERVICE'}{'all-inkl.com'} = '';
 $checked{'SERVICE'}{'cjb.net'} = '';
 $checked{'SERVICE'}{'dhs.org'} = '';
 $checked{'SERVICE'}{'dnspark.com'} = '';
@@ -327,6 +328,7 @@ print <<END
 <tr>
     <td width='25%' class='base'>$Lang::tr{'service'}:</td>
     <td width='25%'><select size='1' name='SERVICE'>
+    <option $checked{'SERVICE'}{'all-inkl.com'}>all-inkl.com</option>
     <option $checked{'SERVICE'}{'cjb.net'}>cjb.net</option>
     <option $checked{'SERVICE'}{'dhs.org'}>dhs.org</option>
     <option $checked{'SERVICE'}{'dnspark.com'}>dnspark.com</option>
diff --git a/src/scripts/setddns.pl b/src/scripts/setddns.pl
index 6c4c3697f..0833b49c0 100644
--- a/src/scripts/setddns.pl
+++ b/src/scripts/setddns.pl
@@ -150,6 +150,27 @@ if ($ip ne $ipcache) {
 				}
 			}
 
+			elsif ($settings{'SERVICE'} eq 'all-inkl') {
+			    my %proxysettings;
+			    &General::readhash("${General::swroot}/proxy/settings", \%proxysettings);
+			    if ($_=$proxysettings{'UPSTREAM_PROXY'}) {
+				my ($peer, $peerport) = (/^(?:[a-zA-Z ]+\:\/\/)?(?:[A-Za-z0-9\_\.\-]*?(?:\:[A-Za-z0-9\_\.\-]*?)?\@)?([a-zA-Z0-9\.\_\-]*?)(?:\:([0-9]{1,5}))?(?:\/.*?)?$/);
+				Net::SSLeay::set_proxy($peer,$peerport,$proxysettings{'UPSTREAM_USER'},$proxysettings{'UPSTREAM_PASSWORD'} );
+			    }
+
+			    my ($out, $response) = Net::SSLeay::get_http("dyndns.kasserver.com", 80, "/", Net::SSLeay::make_headers(
+					'User-Agent' => 'IPFire', 'Authorization' => 'Basic ' . encode_base64("$settings{'LOGIN'}:$settings{'PASSWORD'}")
+			    ));
+
+			    # Valid response are 'ok'   'nochange'
+			    if ($response =~ m%HTTP/1\.. 200 OK%) {
+				&General::log("Dynamic DNS ip-update for $settings{'HOSTNAME'}.$settings{'DOMAIN'} : success");
+				$success++;
+			    } else {
+			        &General::log("Dynamic DNS ip-update for $settings{'HOSTNAME'}.$settings{'DOMAIN'} : failure (could not connect to server, check your credentials)");
+			    }
+			}
+
 			elsif ($settings{'SERVICE'} eq 'cjb') {
 			    # use proxy ?
 			    my %proxysettings;
-- 
2.39.2