HMCCU: Version 3.9.005

git-svn-id: https://svn.fhem.de/fhem/trunk@13569 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/CHANGED

@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - update:  88_HMCCU: added tracing for RPC set config
   - bugfix:  32_withings: removed experimental code
   - new:     82_LGTV_WebOS: to control LG TV's with WebOS
   - bugfix:  42_Nextion:  restore version

fhem/FHEM/88_HMCCU.pm

@@ -4,7 +4,7 @@
 #
 #  $Id$
 #
-#  Version 3.9.004
+#  Version 3.9.005
 #
 #  Module for communication between FHEM and Homematic CCU2.
 #  Supports BidCos-RF, BidCos-Wired, HmIP-RF, virtual CCU channels,
@@ -104,7 +104,7 @@ my %HMCCU_CUST_CHN_DEFAULTS;
 my %HMCCU_CUST_DEV_DEFAULTS;
 
 # HMCCU version
-my $HMCCU_VERSION = '3.9.004';
+my $HMCCU_VERSION = '3.9.005';
 
 # RPC Ports and URL extensions
 my %HMCCU_RPC_NUMPORT = (
@@ -4641,8 +4641,8 @@ sub HMCCU_RPCSetConfig ($$$)
 	my $name = $hash->{NAME};
 	my $type = $hash->{TYPE};
 
+	my $ccuflags = AttrVal ($name, 'ccuflags', 'null');
 	my $addr;
-	my %paramset;
 
 	my $hmccu_hash = HMCCU_GetHash ($hash);
 	return -3 if (!defined ($hmccu_hash));
@@ -4658,23 +4658,23 @@ sub HMCCU_RPCSetConfig ($$$)
 	my $port = $HMCCU_RPC_PORT{$int};
 	my $url = "http://".$hmccu_hash->{host}.":".$port."/";
 	$url .= $HMCCU_RPC_URL{$port} if (exists ($HMCCU_RPC_URL{$port}));
-	
-	# Build param set
-# 	foreach my $pardef (@$parref) {
-# 		my ($par,$val) = split ("=", $pardef);
-# 		next if (!defined ($par) || !defined ($val));
-# 		$paramset{$par} = $val;
-# 	}
+
+	if ($ccuflags =~ /trace/) {
+		my $ps = '';
+		foreach my $p (keys %$parref) {
+			$ps .= ", ".$p."=".$parref->{$p};
+		}
+		Log3 $name, 2, "HMCCU: RPCSetConfig: addr=$addr".$ps;
+	}
 	
 	my $client = RPC::XML::Client->new ($url);
-#	my $res = $client->simple_request ("putParamset", $addr, "MASTER", \%paramset);
 	my $res = $client->simple_request ("putParamset", $addr, "MASTER", $parref);
 	if (! defined ($res)) {
 		return -5;
 	}
 	elsif (ref ($res)) {
 		if (exists ($res->{faultString})) {
-			Log3 $name, 1, "HMCCU: ".$res->{faultString};
+			Log3 $name, 1, "HMCCU: RPC request failed. ".$res->{faultString};
 			return -2;
 		}
 	}