Skip to content

Update to 99_fronthemUtils due to UZSU update to 5.0 #13

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
bgewehr wants to merge 10 commits into
base: master
Choose a base branch
from
Open

Update to 99_fronthemUtils due to UZSU update to 5.0 #13

Changes from all commits
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
2d60ebb
Update 99_fronthemUtils.pm
bgewehr Mar 17, 2016
fc9e33a
Update 99_fronthemUtils.pm
bgewehr Mar 17, 2016
67bd1f9
Update 99_fronthemUtils.pm
bgewehr Mar 17, 2016
9f651c1
Update 99_fronthemUtils.pm
bgewehr Mar 17, 2016
e2a62b1
Update 99_fronthemUtils.pm
bgewehr Mar 21, 2016
215d40c
Update 99_fronthemUtils.pm
bgewehr Mar 21, 2016
dddffce
Update 99_fronthemUtils.pm
bgewehr Mar 26, 2016
4207473
Update 99_fronthemUtils.pm
bgewehr Mar 28, 2016
2a6ba28
Update 99_fronthemUtils.pm
schnmi Apr 11, 2016
d93f557
Merge pull request #1 from schnmi/patch-4
bgewehr Apr 11, 2016
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
145 changes: 111 additions & 34 deletions FHEM/99_fronthemUtils.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -20,48 +20,124 @@ sub fronthem_encodejson($) {
return encode_json($_[0]);
}


###############################################################################
#
# Umsetzen der UZSU-Settings für ein device
# for use with UZSU widget V4.6
#
###############################################################################
sub UZSU_execute($$)
sub UZSU_execute($@)
{
my ($device, $uzsu) = @_;

$uzsu = decode_json($uzsu);

my $weekdays_part = " ";
for(my $i=0; $i < @{$uzsu->{list}}; $i++) {
my $weekdays = $uzsu->{list}[$i]->{rrule};
$weekdays = substr($weekdays,18,50);
if (($uzsu->{list}[$i]->{active})) {
if ($uzsu->{list}[$i]->{event} eq 'time'){
$weekdays_part = $weekdays_part.' '.$weekdays.'|'.$uzsu->{list}[$i]->{time}.'|'.$uzsu->{list}[$i]->{value};
}
else {
# Bugfix below: because sunset_abs from 99_sunrise_el does not work if max-time = ""
if ($uzsu->{list}[$i]->{timeMin} ne '' and $uzsu->{list}[$i]->{timeMax} ne '') {
$weekdays_part = $weekdays_part.' '.$weekdays.'|{'.$uzsu->{list}[$i]->{event}.'_abs("REAL",'.$uzsu->{list}[$i]->{timeOffset} * 60 .',"'.$uzsu->{list}[$i]->{timeMin}.'","'.$uzsu->{list}[$i]->{timeMax}.'")}|'.$uzsu->{list}[$i]->{value};
}
else {
$weekdays_part = $weekdays_part.' '.$weekdays.'|{'.$uzsu->{list}[$i]->{event}.'_abs("REAL",'.$uzsu->{list}[$i]->{timeOffset} * 60 .',,)}|'.$uzsu->{list}[$i]->{value};
}
}
}
}
fhem('defmod wdt_uzsu_'.$device.' WeekdayTimer '.$device.' en '.$weekdays_part);
if ($uzsu->{active}){
fhem('attr wdt_uzsu_'.$device.' disable 0');
} else {
fhem('attr wdt_uzsu_'.$device.' disable 1');
my ($device, $uzsu) = @_;
my $weekdays = "";
my $condition = "";
my $delayedExec ="";
my $perlString = "";

$uzsu = decode_json($uzsu);

fhem('delete wdt_uzsu_'.$device.'.*');

for(my $i=0; $i < @{$uzsu->{list}}; $i++) {
$weekdays = $uzsu->{list}[$i]->{rrule};
$weekdays = substr($weekdays,18,50);
$delayedExec = "";
$condition = "";

# if the structure contains the holidays list, use it!
if ($uzsu->{list}[$i]->{holiday}->{weekend}) {
if ($weekdays ne '') {
$weekdays = $weekdays . ',';
}
$weekdays = $weekdays . '$we';
}
if ($uzsu->{list}[$i]->{holiday}->{workday}) {
if ($weekdays ne '') {
$weekdays = $weekdays . ',';
}
$weekdays = $weekdays . '!$we';
}

if ($uzsu->{list}[$i]->{event} eq 'time'){
$weekdays = $weekdays.'|'.$uzsu->{list}[$i]->{time}.'|'.$uzsu->{list}[$i]->{value};
} else {
# Bugfix below: because sunset_abs from 99_sunrise_el does not work if max-time = ""
if ($uzsu->{list}[$i]->{timeMin} ne '' and $uzsu->{list}[$i]->{timeMax} ne '') {
$weekdays = $weekdays.'|{'.$uzsu->{list}[$i]->{event}.'_abs("REAL",'.$uzsu->{list}[$i]->{timeOffset} * 60 .',"'.$uzsu->{list}[$i]->{timeMin}.'","'.$uzsu->{list}[$i]->{timeMax}.'")}|'.$uzsu->{list}[$i]->{value};
} else {
$weekdays = $weekdays.'|{'.$uzsu->{list}[$i]->{event}.'_abs("REAL",'.$uzsu->{list}[$i]->{timeOffset} * 60 .',,)}|'.$uzsu->{list}[$i]->{value};
}
}

# if the structure contains a condition, use it!
if ($uzsu->{list}[$i]->{condition}->{active}) {
if ($uzsu->{list}[$i]->{condition}->{type} eq 'String') {
Log 4, 'uzsu Perl-Condition\n';
$perlString = trim($uzsu->{list}[$i]->{condition}->{deviceString});
Log 4, 'uzsu ' . $perlString;
#$perlString =~ s/\\"/"/ig;
#Log 4, 'uzsu ' . $perlString;
# remove leading '{' and trailing '}'
if (substr($perlString,0,1) eq "{" && substr($perlString,length($perlString)-1,1) eq "}") {
$perlString = trim(substr($perlString,1,length($perlString)-2));
}
# remove leading '(' and trailing ')'
if (substr($perlString,0,1) eq "(" && substr($perlString,length($perlString)-1,1) eq ")") {
$perlString = trim(substr($perlString,1,length($perlString)-2));
}
if (substr($perlString,0,4) eq "fhem") {
$condition = ' {'.$perlString.'}';
} else {
$condition = ' ('.$perlString.')';
}
Log 4, 'uzsu '.$weekdays.' '.$condition;
} else {
Log 4, 'uzsu non-Perl-Condition\n';
$condition = ' (ReadingsVal("'.$uzsu->{list}[$i]->{condition}->{deviceString}.'","state","") '.$uzsu->{list}[$i]->{condition}->{type}.' "'.$uzsu->{list}[$i]->{condition}->{value}.'")';
}
}

# if the structure contains a delayedExec, use it!
if ($uzsu->{list}[$i]->{delayedExec}->{active}) {
if ($uzsu->{list}[$i]->{delayedExec}->{type} eq 'String') {
Log 4, 'uzsu Perl-Condition\n';
$perlString = trim($uzsu->{list}[$i]->{delayedExec}->{deviceString});
Log 4, 'uzsu ' . $perlString;
#$perlString =~ s/\\"/"/ig;
#Log 4, 'uzsu ' . $perlString;
# remove leading '{' and trailing '}'
if (substr($perlString,0,1) eq "{" && substr($perlString,length($perlString)-1,1) eq "}") {
$perlString = trim(substr($perlString,1,length($perlString)-2));
}
# remove leading '(' and trailing ')'
if (substr($perlString,0,1) eq "(" && substr($perlString,length($perlString)-1,1) eq ")") {
$perlString = trim(substr($perlString,1,length($perlString)-2));
}
$delayedExec = '{ ('.$perlString.') }';
#Log 4, 'uzsu ' , $delayedExec;
} else {
Log 4, 'uzsu non-Perl-Condition\n';
$delayedExec = '{ (ReadingsVal("'.$uzsu->{list}[$i]->{delayedExec}->{deviceString}.'","state","") '.$uzsu->{list}[$i]->{delayedExec}->{type}.' "'.$uzsu->{list}[$i]->{delayedExec}->{value}.'") }';
}
}


if ($uzsu->{list}[$i]->{active}){
fhem('defmod wdt_uzsu_'.$device.'_'.$i.' WeekdayTimer '.$device.' en '.trim($weekdays.$condition));
fhem('attr wdt_uzsu_'.$device.'_'.$i.' room UZSU');
fhem('attr wdt_uzsu_'.$device.'_'.$i.' group '.$device);
fhem('setreading wdt_uzsu_'.$device.'_'.$i.' weekdays '.trim($weekdays) );
fhem('defmod rg_uzsu_'.$device.' readingsgroup wdt_uzsu_'.$device.'.*');
fhem('attr rg_uzsu_'.$device.' room UZSU');
if ($delayedExec) {
fhem('attr wdt_uzsu_'.$device.'_'.$i.' delayedExecutionCond '.$delayedExec);
}
}
#fhem('save'); # use only if you want to save WDT settings immediately.
}
fhem('attr wdt_uzsu_'.$device.' room UZSU');
#fhem('save'); # use only if you want to save WDT settings immediately.

}


package fronthem;
use strict;
use warnings;
Expand Down Expand Up @@ -94,13 +170,14 @@ sub UZSU(@)
if ($param->{cmd} eq 'send')
{
$param->{gad} = $gad;
$param->{gadval} = main::fronthem_decodejson(main::ReadingsVal($device, $reading, ''));
$param->{gadval} = main::fronthem_decodejson(main::ReadingsVal($device, $reading, '{}'));
$param->{gads} = [];
return undef;
}
elsif ($param->{cmd} eq 'rcv')
{
$gadval = main::fronthem_encodejson($gadval);
main::UZSU_execute($device, $gadval);
$gadval =~ s/;/;;/ig;
$param->{result} = main::fhem("setreading $device $reading $gadval");
$param->{results} = [];
Expand Down