mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-02-01 01:09:47 +00:00
103 lines
3.4 KiB
Perl
103 lines
3.4 KiB
Perl
##############################################
|
|
# $Id$
|
|
#
|
|
|
|
# packages ####################################################################
|
|
package FHEM::attrT_ZWave_Utils; ## no critic 'Package declaration'
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use GPUtils qw(GP_Import);
|
|
|
|
## Import der FHEM Funktionen
|
|
#-- Run before package compilation
|
|
BEGIN {
|
|
|
|
# Import from main context
|
|
GP_Import(
|
|
qw(
|
|
InternalVal
|
|
ReadingsNum
|
|
devspec2array
|
|
FW_makeImage
|
|
)
|
|
);
|
|
}
|
|
|
|
sub main::attrT_ZWave_Utils_Initialize { goto &Initialize }
|
|
|
|
# initialize ##################################################################
|
|
sub Initialize {
|
|
my $hash = shift;
|
|
return;
|
|
}
|
|
|
|
sub devStateIcon_venetian_shutter {
|
|
my $levelname = shift // return;
|
|
my $model = shift // "FGR223";
|
|
my $slatname = $levelname;
|
|
my $dimlevel= ReadingsNum($levelname,"dim",0);
|
|
my $ret ="";
|
|
my $slatlevel = 0;
|
|
my $slatcommand_string = "dim ";
|
|
my $moving = 0;
|
|
|
|
if ($model eq "FGR223") {
|
|
my ($def,$defnr) = split(" ", InternalVal($levelname,"DEF",$levelname));
|
|
$defnr++;
|
|
my @slatnames = devspec2array("DEF=$def".'.'.$defnr);
|
|
$slatname = shift @slatnames;
|
|
$slatlevel= ReadingsNum($slatname,"state",0);
|
|
$moving = 1 if ReadingsNum($slatname,"power",0) > 0;
|
|
}
|
|
if ($model eq "FGRM222") {
|
|
$slatlevel= ReadingsNum($slatname,"positionSlat",0);
|
|
$slatcommand_string = "positionSlat ";
|
|
$moving = 1 if ReadingsNum($slatname,"power",0) > 0;
|
|
}
|
|
|
|
#levelicon
|
|
my $symbol_string = "fts_shutter_";
|
|
my $command_string = "dim 99";
|
|
$command_string = "dim 0" if $dimlevel > 50;
|
|
$symbol_string .= int ((109 - $dimlevel)/10)*10;
|
|
$ret .= $moving ? "<a href=\"/fhem?cmd.dummy=set $levelname stop&XHR=1\">" . FW_makeImage("edit_settings","edit_settings") . "</a> "
|
|
: "<a href=\"/fhem?cmd.dummy=set $levelname $command_string&XHR=1\">" . FW_makeImage($symbol_string,"fts_shutter_10") . "</a> ";
|
|
|
|
#slat
|
|
$symbol_string = "fts_blade_arc_close_";
|
|
$slatlevel > 49 ? $symbol_string .= "00" : $slatlevel > 24 ? $symbol_string .= "50" : $slatlevel < 25 ? $symbol_string .= "100" : undef;
|
|
$slatlevel > 49 ? $slatcommand_string .= "0" : $slatlevel > 24 ? $slatcommand_string .= "50" : $slatlevel < 25 ? $slatcommand_string .= "25" : undef;
|
|
$symbol_string = FW_makeImage($symbol_string,"fts_blade_arc_close_100");
|
|
$ret .= qq(<a href="/fhem?cmd.dummy=set $slatname $slatcommand_string&XHR=1">$symbol_string $slatlevel %</a>);
|
|
|
|
return "<div><p style=\"text-align:right\">$ret</p></div>";
|
|
|
|
}
|
|
|
|
|
|
|
|
1;
|
|
|
|
__END__
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="attrT_ZWave_Utils"></a>
|
|
<h3>attrT_ZWave_Utils</h3>
|
|
<ul>
|
|
<b>devStateIcon_venetian_shutter</b>
|
|
<br>
|
|
Use this to get a multifunctional iconset to control shutter devices like Fibaro FGRM222 devices in venetian blind mode<br>
|
|
Examples:
|
|
<ul>
|
|
<code>attr Jalousie_WZ devStateIcon {{FHEM::attrT::ZWave::devStateIcon_venetian_shutter($name,"FGRM222")}<br> attr Jalousie_WZ webCmd dim<br>attr Jalousie_WZ userReadings dim:(dim|reportedState).* {$1 =~ /reportedState/ ? ReadingsNum($name,"reportedState",0):ReadingsNum($name,"state",0)}
|
|
</code><br>
|
|
If slat level is not part of the main device (like Fibaro FGR223, the second FHEM device to control slat level has to have a userReadings attribute for state like this:<br>
|
|
<code>attr ZWave_SWITCH_MULTILEVEL_8.02 userReadings state:swmStatus.* {ReadingsNum($name,"swmStatus",0)}</code>
|
|
</ul>
|
|
</ul>
|
|
=end html
|
|
=cut
|