FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-07 16:59:18 +00:00
Code Issues Releases Wiki Activity

00_THZ.pm: more delays for multiple writeback

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7347 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
immiimmi 2014-12-29 10:54:59 +00:00
parent 230fecb292
commit 25f6ea94df
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
fhem/FHEM/00_THZ.pm
View File

@ -2,7 +2,7 @@
# 00_THZ
# $Id$
# by immi 12/2014
my $thzversion = "0.119";
my $thzversion = "0.120";
# this code is based on the hard work of Robert; I just tried to port it
# http://robert.penz.name/heat-pump-lwz/
# http://heatpumpmonitor.penz.name/heatpumpmonitorwiki/
@ -571,20 +571,27 @@ sub THZ_Set($@){
$msg=THZ_Get($hash, $name, $cmd);
#take care of program of the week
given ($a[1]) {
when (/Mo-So/) {
when (/Mo-So/){
select(undef, undef, undef, 0.05);
$a[1] =~ s/Mo-So/Mo-Fr/; $msg.= "\n" . THZ_Set($hash, @a);
select(undef, undef, undef, 0.2);
select(undef, undef, undef, 0.05);
$a[1] =~ s/Mo-Fr/Sa-So/; $msg.="\n" . THZ_Set($hash, @a);
}
when (/Mo-Fr/) {
$a[1] =~ s/_Mo-Fr_/_Mo_/; $msg.="\n" . THZ_Set($hash, @a);
select(undef, undef, undef, 0.05);
$a[1] =~ s/_Mo_/_Tu_/ ; $msg.="\n" . THZ_Set($hash, @a);
select(undef, undef, undef, 0.05);
$a[1] =~ s/_Tu_/_We_/ ; $msg.="\n" . THZ_Set($hash, @a);
select(undef, undef, undef, 0.05);
$a[1] =~ s/_We_/_Th_/ ; $msg.="\n" . THZ_Set($hash, @a);
select(undef, undef, undef, 0.05);
$a[1] =~ s/_Th_/_Fr_/ ; $msg.="\n" . THZ_Set($hash, @a);
}
when (/Sa-So/) {
when (/Sa-So/){
select(undef, undef, undef, 0.05);
$a[1] =~ s/_Sa-So_/_Sa_/; $msg.="\n" . THZ_Set($hash, @a);
select(undef, undef, undef, 0.05);
$a[1] =~ s/_Sa_/_So_/ ; $msg.="\n" . THZ_Set($hash, @a);
}
default {}
@ -1347,11 +1354,6 @@ sub THZ_RemoveInternalTimer($)
#####################################
# sub THZ_PrintcurveSVG
# plots heat curve