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

HMCCUDEV: Added variable set commands and readony devices

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@9364 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
fhemzap 2015-10-04 11:03:48 +00:00
parent 69b9246319
commit 90366352e6
1 changed files with 44 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
fhem/contrib/HMCCU/88_HMCCUDEV.pm
View File

@ -10,10 +10,11 @@
# #
################################################################ ################################################################
# #
# define <name> HMCCUDEV <hmccu> <ccudev> # define <name> HMCCUDEV <hmccu> <ccudev> [ { readonly | <statevals> } ]
# #
# set <name> datapoint <channel>.<datapoint> <value> # set <name> datapoint <channel>.<datapoint> <value>
# set <name> devstate <channel> <value> # set <name> devstate <value>
# set <name> <stateval_cmds>
# #
# get <name> datapoint <channel>.<datapoint> # get <name> datapoint <channel>.<datapoint>
# #
@ -72,6 +73,14 @@ sub HMCCUDEV_Define ($$)
# Keep name of CCU device # Keep name of CCU device
$hash->{ccudev} = $a[2]; $hash->{ccudev} = $a[2];
# Set commands / values
if (defined ($a[3]) && $a[3] eq 'readonly') {
$hash->{statevals} = $a[3];
}
else {
$hash->{statevals} = 'devstate';
}
# Inform HMCCU device about client device # Inform HMCCU device about client device
Log 1, "HMCCUDEV: Assigning IO Port"; Log 1, "HMCCUDEV: Assigning IO Port";
AssignIoPort ($hash); AssignIoPort ($hash);
@ -89,10 +98,19 @@ sub HMCCUDEV_Attr ($@)
{ {
my ($cmd, $name, $attrname, $attrval) = @_; my ($cmd, $name, $attrname, $attrval) = @_;
if (defined ($attrval)) { if (defined ($attrval) && $cmd eq "set") {
if ($cmd eq "set" && $attrname eq "IODev") { if ($attrname eq "IODev") {
$defs{$name}{IODev} = $defs{$attrval}; $defs{$name}{IODev} = $defs{$attrval};
} }
elsif ($attrname eq "stateval") {
$defs{$name}{statevals} = "devstate";
my @states = split /,/,$attrval;
foreach my $st (@states) {
my @statesubs = split /:/,$st;
next if (@statesubs != 2);
$defs{$name}{statevals} .= '|'.$statesubs[0];
}
}
} }
return undef; return undef;
@ -143,11 +161,13 @@ sub HMCCUDEV_Set ($@)
return undef; return undef;
} }
elsif ($opt eq 'devstate' || $opt eq 'on' || $opt eq 'off') { elsif ($opt =~ /($hash->{statevals})/) {
my $objvalue = ($opt eq 'on' || $opt eq 'off') ? $opt : join ('%20', @a); my $cmd = $1;
my $objvalue = ($cmd ne 'devstate') ? $cmd : join ('%20', @a);
if ($statechannel eq '') { if ($statechannel eq '') {
return HMCCUDEV_SetError ($hash, "No STATE channel specified"); return undef;
# return HMCCUDEV_SetError ($hash, "No STATE channel specified");
} }
if (!defined ($objvalue)) { if (!defined ($objvalue)) {
return HMCCUDEV_SetError ($hash, "Usage: set <device> devstate <value>"); return HMCCUDEV_SetError ($hash, "Usage: set <device> devstate <value>");
@ -162,21 +182,17 @@ sub HMCCUDEV_Set ($@)
return undef; return undef;
} }
else { else {
my $retmsg = "HMCCUDEV: Unknown argument $opt, choose one of datapoint on:noArg off:noArg"; my $retmsg = "HMCCUDEV: Unknown argument $opt, choose one of datapoint devstate";
return undef if ($hash->{statevals} eq 'readonly');
if ($stateval ne '') { if ($stateval ne '') {
my @valpairs = split /,/, $stateval; my @cmdlist = split /\|/,$hash->{statevals};
my $sep = " devstate:"; shift @cmdlist;
foreach my $vp (@valpairs) { $retmsg .= ':'.join(',',@cmdlist);
my @sv = split /:/, $vp; foreach my $sv (@cmdlist) {
if (@sv == 2) { $retmsg .= ' '.$sv.':noArg';
$retmsg .= $sep . $sv[0];
$sep = "," if ($sep ne ',');
} }
} }
}
else {
$retmsg .= " devstate";
}
return $retmsg; return $retmsg;
} }
@ -247,11 +263,14 @@ sub HMCCUDEV_SetError ($$)
<b>Define</b> <b>Define</b>
<ul> <ul>
<br/> <br/>
<code>define &lt;name&gt; HMCCUDEV &lt;<i>CCU_Device</i>&gt;</code> <code>define &lt;name&gt; HMCCUDEV &lt;<i>CCU_Device</i>&gt; [readonly]</code>
<br/><br/> <br/><br/>
Example: If <i>readonly</i> parameter is specified no set command will be available.
<br/> <br/>
<code>define window_living HMCCUDEV WIN-LIV-1</code> Examples:
<br/>
<code>define window_living HMCCUDEV WIN-LIV-1 readonly</code>
<code>define temp_control HMCCUDEV TEMP-CONTROL</code>
<br/><br/> <br/><br/>
<i>CCU_Device</i> - Name of device in CCU without channel or datapoint. <i>CCU_Device</i> - Name of device in CCU without channel or datapoint.
<br/> <br/>
@ -270,10 +289,10 @@ sub HMCCUDEV_SetError ($$)
Example:<br/> Example:<br/>
<code>set light_entrance devstate on</code> <code>set light_entrance devstate on</code>
</li><br/> </li><br/>
<li>set &lt;<i>Name</i>&gt; { on | off } <li>set &lt;<i>Name</i>&gt; &lt;<i>StateValue</i>&gt;
<br/> <br/>
Set state of a CCU device channel is set to 'on' or 'off'. Channel must State of a CCU device channel is set to state value. Channel must
be defined as attribute statechannel. State values 'on' and 'off' can be defined as attribute statechannel. State values can
be replaced by setting attribute stateval. be replaced by setting attribute stateval.
</li><br/> </li><br/>
<li>set &lt;<i>Name</i>&gt; datapoint &lt;<i>channel</i>.<i>datapoint</i>&gt; &lt;<i>Value</i>&gt; <li>set &lt;<i>Name</i>&gt; datapoint &lt;<i>channel</i>.<i>datapoint</i>&gt; &lt;<i>Value</i>&gt;