From f88422f8b06f891554b3ead7b96b9efbcb6bbe77 Mon Sep 17 00:00:00 2001
From: fhemzap <fhemzap@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 15 Dec 2015 16:52:08 +0000
Subject: [PATCH] HMCCU: bug fixes and enhanced handling of datapoints

git-svn-id: https://svn.fhem.de/fhem/trunk@10184 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/HMCCU/ccurpcd.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/fhem/contrib/HMCCU/ccurpcd.pl b/fhem/contrib/HMCCU/ccurpcd.pl
index aab5cd784..36a1ee793 100755
--- a/fhem/contrib/HMCCU/ccurpcd.pl
+++ b/fhem/contrib/HMCCU/ccurpcd.pl
@@ -3,7 +3,7 @@
 #########################################################
 # ccurpcd.pl
 #
-# Version 1.3
+# Version 1.4
 #
 # RPC server for Homematic CCU.
 #
@@ -128,6 +128,15 @@ sub CCURPC_Initialize ($$)
 	close ($socket);
 
 	$client = RPC::XML::Client->new ("http://$serveraddr:$serverport/");
+
+	# Check if RPC daemon on CCU is running
+	my $resp = $client->send_request ('system.listMethods');
+	if (!ref($resp)) {
+		Log "No response from CCU. Error message follows in next line";
+		Log $resp;
+		return undef;
+	}
+
 	$server = RPC::XML::Server->new (port=>$callbackport);
 	if (!ref($server))
 	{