From b112ff33019bb6c3192e40e13c76984026f3c6d3 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Mon, 3 Mar 2014 18:12:27 +0000
Subject: [PATCH] configDB.pm - added: return $ret from AnalyzeCommandChain

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@5111 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 configDB.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/configDB.pm b/configDB.pm
index a6e466133..e4c139992 100644
--- a/configDB.pm
+++ b/configDB.pm
@@ -270,12 +270,14 @@ sub cfgDB_InsertLine($$$) {
 
 sub cfgDB_Execute($@) {
 	my ($cl, @dbconfig) = @_;
+	my $ret;
 	foreach (@dbconfig){
 		my $l = $_;
 		$l =~ s/[\r\n]//g;
-		AnalyzeCommandChain($cl, $l);
+		$ret .= AnalyzeCommandChain($cl, $l);
 	}
-	return;
+	return $ret if($ret);
+	return undef;
 }
 
 sub cfgDB_SaveCfg {
@@ -447,13 +449,15 @@ sub cfgDB_Rotate($) {
 
 sub cfgDB_ReadAll($){
 	my ($cl) = @_;
+	my $ret;
 	# add Config Rows to commandfile
 	my @dbconfig = cfgDB_ReadCfg(@dbconfig);
 	# add State Rows to commandfile
 	@dbconfig = cfgDB_ReadState(@dbconfig);
 	# AnalyzeCommandChain for all entries
-	cfgDB_Execute($cl, @dbconfig);
-	return;
+	$ret .= cfgDB_Execute($cl, @dbconfig);
+	return $ret if($ret);
+	return undef;
 }
 
 sub cfgDB_Migrate {