FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

HMCCUCHN: get/set CCU device parameters

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10088 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
fhemzap 2015-12-04 18:06:48 +00:00
parent a4d37882b7
commit b3348231c8
1 changed files with 36 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
fhem/contrib/HMCCU/88_HMCCUCHN.pm
View File

@ -4,7 +4,7 @@
#
# $Id:$
#
# Version 2.0
# Version 2.2
#
# (c) 2015 zap (zap01 <at> t-online <dot> de)
#
@ -15,10 +15,13 @@
# set <name> datapoint <datapoint> <value> [...]
# set <name> devstate <value> [...]
# set <name> <stateval_cmds>
# set <name> config <parameter>=<value> [...]
#
# get <name> devstate
# get <name> datapoint <datapoint>
# get <name> channel <datapoint-expr>
# get <name> config
# get <name> configdesc
#
# attr <name> ccureadings { 0 | 1 }
# attr <name> statevals <text1>:<subtext1>[,...]
@ -158,7 +161,7 @@ sub HMCCUCHN_Set ($@)
if (!defined ($hash->{IODev})) {
return HMCCUCHN_SetError ($hash, "No IO device defined");
}
if ($hash->{statevals} eq 'readonly') {
if ($hash->{statevals} eq 'readonly' && $opt ne 'config') {
return undef;
}
@ -210,8 +213,15 @@ sub HMCCUCHN_Set ($@)
return undef;
}
elsif ($opt eq 'config') {
return HMCCUCHN_SetError ($hash, "Usage: set $name config {parameter}={value} [...]") if (@a < 1);;
my $rc = HMCCU_RPCSetConfig ($hash, $hash->{ccuaddr}, \@a);
return HMCCUCHN_SetError ($hash, $rc) if ($rc < 0);
return undef;
}
else {
my $retmsg = "HMCCUCHN: Unknown argument $opt, choose one of datapoint devstate";
my $retmsg = "HMCCUCHN: Unknown argument $opt, choose one of config datapoint devstate";
return undef if ($hash->{statevals} eq 'readonly');
if ($hash->{statevals} ne '') {
@ -271,8 +281,22 @@ sub HMCCUCHN_Get ($@)
return HMCCUCHN_SetError ($hash, $rc) if ($rc < 0);
return $ccureadings ? undef : $result;
}
elsif ($opt eq 'config') {
my $ccuobj = $hash->{ccuaddr};
my ($rc, $res) = HMCCU_RPCGetConfig ($hash, $ccuobj, "getParamset");
return HMCCUCHN_SetError ($hash, $rc) if ($rc < 0);
return $ccureadings ? undef : $result;
}
elsif ($opt eq 'configdesc') {
my $ccuobj = $hash->{ccuaddr};
my ($rc, $res) = HMCCU_RPCGetConfig ($hash, $ccuobj, "getParamsetDescription");
return HMCCUCHN_SetError ($hash, $rc) if ($rc < 0);
return $res;
}
else {
return "HMCCUCHN: Unknown argument $opt, choose one of devstate:noArg datapoint channel";
return "HMCCUCHN: Unknown argument $opt, choose one of devstate:noArg datapoint channel config:noArg configdesc:noArg";
}
}
@ -378,6 +402,14 @@ sub HMCCUCHN_SetError ($$)
<li>get &lt;name&gt; datapoint &lt;datapoint&gt;
<br/>
Get value of a CCU device datapoint.
</li><br/>
<li>get &lt;name&gt; config
<br/>
Get configuration parameters of CCU channel.
</li><br/>
<li>get &lt;name&gt; configdesc
<br/>
Get description of configuration parameters of CCU channel.
</li>
</ul>
<br/>