mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 18:59:33 +00:00
230 lines
7.5 KiB
Perl
230 lines
7.5 KiB
Perl
##############################################
|
|
# $Id$
|
|
#
|
|
|
|
package FHEM::aTm2u_ebus; ## no critic 'Package declaration'
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use JSON qw(decode_json);
|
|
use Scalar::Util qw(looks_like_number);
|
|
|
|
use GPUtils qw(GP_Import);
|
|
|
|
#-- Run before package compilation
|
|
BEGIN {
|
|
|
|
# Import from main context
|
|
GP_Import(
|
|
qw(
|
|
json2nameValue
|
|
AttrVal
|
|
InternalVal
|
|
CommandGet
|
|
CommandSet
|
|
readingsSingleUpdate
|
|
readingsBulkUpdate
|
|
readingsBeginUpdate
|
|
readingsEndUpdate
|
|
ReadingsVal
|
|
ReadingsNum
|
|
ReadingsAge
|
|
json2nameValue
|
|
defs
|
|
Log3
|
|
)
|
|
);
|
|
}
|
|
|
|
sub ::attrTmqtt2_ebus_Utils_Initialize { goto &Initialize }
|
|
sub ::attrTmqtt2_ebus_createBarView { goto &createBarView }
|
|
|
|
# initialize ##################################################################
|
|
sub Initialize {
|
|
my $hash = shift;
|
|
return;
|
|
}
|
|
# Enter you functions below _this_ line.
|
|
|
|
sub j2nv {
|
|
my $EVENT = shift // return;
|
|
my $pre = shift;
|
|
my $filt = shift;
|
|
my $not = shift;
|
|
$EVENT=~ s{[{]"value":\s("[^"]+")[}]}{$1}g;
|
|
return json2nameValue($EVENT, $pre, $filt, $not);
|
|
}
|
|
|
|
sub send_weekprofile {
|
|
my $name = shift // return;
|
|
my $wp_name = shift // return;
|
|
my $wp_profile = shift // return;
|
|
my $model = shift // ReadingsVal($name,'week','selected'); #selected,Mo-Fr,Mo-So,Sa-So? holiday to set actual $wday to sunday program?
|
|
#[quote author=Reinhart link=topic=97989.msg925644#msg925644 date=1554057312]
|
|
#"daysel" nicht. Für mich bedeutet dies, das das Csv mit der Feldbeschreibung nicht überein stimmt. Ich kann aber nirgends einen Fehler sichten (timerhc.inc oder _templates.csv). [code]daysel,UCH,0=selected;1=Mo-Fr;2=Sa-So;3=Mo-So,,Tage[/code]
|
|
#Ebenfalls getestet mit numerischem daysel (0,1,2,3), auch ohne Erfolg.
|
|
my $onLimit = shift // '20';
|
|
my $topic = shift // AttrVal($name,'devicetopic','') . '/hcTimer.$wkdy/set ';
|
|
|
|
my $hash = $defs{$name} // return;
|
|
|
|
my $wp_profile_data = CommandGet(undef,"$wp_name profile_data $wp_profile 0");
|
|
if ($wp_profile_data =~ m{(profile.*not.found|usage..profile_data..name)}xms ) {
|
|
Log3( $hash, 3, "[$name] weekprofile $wp_name: no profile named \"$wp_profile\" available" );
|
|
return;
|
|
}
|
|
|
|
my @Dl = ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
|
|
my @D = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
|
|
|
|
my $payload;
|
|
my @days = (0..6);
|
|
my $text = decode_json($wp_profile_data);
|
|
|
|
( $model, @days ) = split m{:}xms, $model;
|
|
(my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) = localtime;
|
|
|
|
@days = ( $model eq 'Mo-Fr' || $model eq 'Mo-So' ) ? (1) : ($model eq 'Sa-So' || $model eq 'holiday' ) ? (0) : (0..6) if !@days;
|
|
|
|
for my $i (@days) {
|
|
$payload = q{};
|
|
my $pairs = 0;
|
|
my $onOff = 'off';
|
|
|
|
for my $j (0..20) {
|
|
my $time = '00:00';
|
|
if (defined $text->{$D[$i]}{time}[$j]) {
|
|
$time = $text->{$D[$i]}{time}[$j-1] // '00:00';
|
|
my $val = $text->{$D[$i]}{temp}[$j];
|
|
if ( $val eq $onOff || (looks_like_number($val) && _compareOnOff( $val, $onOff, $onLimit ) ) ) {
|
|
$time = '00:00' if !$j;
|
|
$payload .= qq{$time;$text->{$D[$i]}{time}[$j];};
|
|
$pairs++;
|
|
$val = $val eq 'on' ? 'off' : 'on';
|
|
#$time = $text->{$D[$i]}{time}[$j] if $j;
|
|
}
|
|
}
|
|
while ( $pairs < 3 && !defined $text->{$D[$i]}{time}[$j] ) {
|
|
#fill up the three pairs with last time
|
|
$pairs++;
|
|
$payload .= qq{-,-;-,-;};
|
|
}
|
|
last if $pairs == 3;
|
|
}
|
|
|
|
if ( $model eq 'holiday' ) {
|
|
$payload .= 'selected';
|
|
CommandSet($defs{$name},"$name $Dl[$wday] $payload") if ReadingsVal($name,$Dl[$wday],'') ne $payload;
|
|
} else {
|
|
$payload .= $model;
|
|
CommandSet($defs{$name},"$name $Dl[$i] $payload") if ReadingsVal($name,$Dl[$i],'') ne $payload;
|
|
}
|
|
}
|
|
|
|
readingsSingleUpdate( $defs{$name}, 'weekprofile', "$wp_name $wp_profile",1);
|
|
return;
|
|
}
|
|
|
|
sub _compareOnOff {
|
|
my $val = shift // return;
|
|
my $onOff = shift // return;
|
|
my $lim = shift;
|
|
|
|
if ( $onOff eq 'on' ) {
|
|
return $val < $lim;
|
|
} else {
|
|
return $val >= $lim;
|
|
}
|
|
return;
|
|
}
|
|
|
|
|
|
|
|
#ebusd/hc1/HP1.Mo.1:.* { json2nameValue($EVENT) }
|
|
#zwei Readings "Start_value" und "End_value"
|
|
# Vermutung: { "Start": {"value": "10:00"}, "End": {"value": "11:00"}}
|
|
#ebusd/hc1/HP1\x2eMo\x2e2:.* { json2nameValue($EVENT) }
|
|
sub upd_day_profile {
|
|
my $name = shift // return;
|
|
my $topic = shift // return;
|
|
my $payload = shift // return;
|
|
my $daylist = shift // q(Su|Mo|Tu|We|Th|Fr|Sa);
|
|
|
|
my $hash = $defs{$name} // return;
|
|
|
|
my @Dl = ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
|
|
|
|
my $data = decode_json($payload);
|
|
$topic =~ m{[.](?<dayshort>$daylist)[.](?<pair>[1-3])\z}xms;
|
|
my $shday = $+{dayshort} // return;
|
|
my $pairNr = $+{pair} // return;
|
|
$pairNr--;
|
|
|
|
my @days = split m{\|}xms, $daylist;
|
|
my %days_index = map { $days[$_] => $_ } (0..6);
|
|
my $index = $days_index{$shday};
|
|
#Log3(undef,3, "[$name] day $shday, pair $pairNr, index $index days @days");
|
|
|
|
return if !defined $index;
|
|
|
|
my $rVal = ReadingsVal( $name, $Dl[$index], '-,-;-,-;-,-;-,-;-,-;-,-;Mo-So' );
|
|
my @times = split m{;}xms, $rVal;
|
|
$times[$pairNr*2] = $data->{Start}->{value};
|
|
$times[$pairNr*2+1] = $data->{End}->{value};
|
|
$rVal = join q{;}, @times;
|
|
|
|
readingsSingleUpdate( $defs{$name}, $Dl[$index], $rVal, 1);
|
|
return;
|
|
}
|
|
|
|
|
|
sub createBarView {
|
|
my ($val,$maxValue,$color) = @_;
|
|
$maxValue = $maxValue//100;
|
|
$color = $color//"red";
|
|
my $percent = $val / $maxValue * 100;
|
|
# Definition des valueStyles
|
|
my $stylestring = 'style="'.
|
|
'width: 200px; '.
|
|
'text-align:center; '.
|
|
'border: 1px solid #ccc ;'.
|
|
"background-image: -webkit-linear-gradient(left,$color $percent".'%, rgba(0,0,0,0) '.$percent.'%); '.
|
|
"background-image: -moz-linear-gradient(left,$color $percent".'%, rgba(0,0,0,0) '.$percent.'%); '.
|
|
"background-image: -ms-linear-gradient(left,$color $percent".'%, rgba(0,0,0,0) '.$percent.'%); '.
|
|
"background-image: -o-linear-gradient(left,$color $percent".'%, rgba(0,0,0,0) '.$percent.'%); '.
|
|
"background-image: linear-gradient(left,$color $percent".'%, rgba(0,0,0,0) '.$percent.'%);"';
|
|
# Rückgabe des definierten Strings
|
|
return $stylestring;
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
=pod
|
|
=begin html
|
|
|
|
<a id="attrTmqtt2_ebus_Utils"></a>
|
|
<h3>attrTmqtt2_ebus_Utils</h3>
|
|
<ul>
|
|
<b>Functions to support attrTemplates for ebusd</b><br>
|
|
</ul>
|
|
<ul>
|
|
<li><b>aTm2u_ebus::j2nv</b><br>
|
|
<code>aTm2u_ebus::j2nv($,$$$)</code><br>
|
|
This ist just a wrapper to fhem.pl json2nameValue() to prevent the "_value" postfix. It will first clean the first argument by applying <code>$EVENT=~ s{[{]"value":\s("[^"]+")[}]}{$1}g;</code>.
|
|
</li>
|
|
<li><b>aTm2u_ebus::createBarView</b><br>
|
|
<code>aTm2u_ebus::createBarView($,$$)</code><br>
|
|
Parameters are
|
|
<ul>
|
|
<li>$value (required)</li>
|
|
<li>$maxvalue (optional), defaults to 100</li>
|
|
<li>$color, (optional), defaults to red</li>
|
|
</ul>
|
|
For compability reasons, function will also be exported as attrTmqtt2_ebus_createBarView(). Better use package version to call it...
|
|
</li>
|
|
</ul><br>
|
|
=end html
|
|
=cut
|