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

10_FS20.pm: follow-on-for-timer for local master/etc (Forum #48324 and 50138)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10984 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2016-03-03 08:59:47 +00:00
parent 7a58bcb7da
commit b40c91fefd
1 changed files with 37 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
fhem/FHEM/10_FS20.pm
View File

@ -132,6 +132,42 @@ FS20_Initialize($)
"model:".join(",", sort keys %models);
}
sub
FS20_Follow($$$$)
{
my ($name, $arg, $na, $val) = @_;
###########################################
# Set the state of a device to off if on-for-timer is called
if($modules{FS20}{ldata}{$name}) {
CommandDelete(undef, $name . "_timer");
delete $modules{FS20}{ldata}{$name};
}
my $newState="";
my $onTime = AttrVal($name, "follow-on-timer", undef);
####################################
# following timers
if(($arg eq "on" || $arg =~ m/dim/) && $na == 2 && $onTime) {
$newState = "off";
$val = $onTime;
} elsif($arg =~ m/(on|off).*-for-timer/ && $na == 3 &&
AttrVal($name, "follow-on-for-timer", undef)) {
$newState = ($1 eq "on" ? "off" : "on");
}
if($newState) {
my $to = sprintf("%02d:%02d:%02d", $val/3600, ($val%3600)/60, $val%60);
$modules{FS20}{ldata}{$name} = $to;
Log3 $name, 4, "Follow: +$to setstate $name $newState";
CommandDefine(undef, $name."_timer at +$to ".
"{readingsSingleUpdate(\$defs{'$name'},'state','$newState', 1); undef}");
}
}
###################################
sub
FS20_Set($@)
@ -196,42 +232,12 @@ FS20_Set($@)
IOWrite($hash, "04", "010101" . $hash->{XMIT} . $hash->{BTN} . $c);
###########################################
# Set the state of a device to off if on-for-timer is called
if($modules{FS20}{ldata}{$name}) {
CommandDelete(undef, $name . "_timer");
delete $modules{FS20}{ldata}{$name};
}
my $newState="";
my $onTime = AttrVal($name, "follow-on-timer", undef);
####################################
# following timers
if(($a[1] eq "on" || $a[1] =~ m/dim/) && $na == 2 && $onTime) {
$newState = "off";
$val = $onTime;
} elsif($a[1] =~ m/(on|off).*-for-timer/ && $na == 3 &&
AttrVal($name, "follow-on-for-timer", undef)) {
$newState = ($1 eq "on" ? "off" : "on");
}
if($newState) {
my $to = sprintf("%02d:%02d:%02d", $val/3600, ($val%3600)/60, $val%60);
$modules{FS20}{ldata}{$name} = $to;
Log3 $name, 4, "Follow: +$to setstate $name $newState";
CommandDefine(undef, $name."_timer at +$to ".
"{readingsSingleUpdate(\$defs{'$name'},'state','$newState', 1); undef}");
}
##########################
# Look for all devices with the same code, and set state, timestamp
my $code = "$hash->{XMIT} $hash->{BTN}";
my $tn = TimeNow();
my $defptr = $modules{FS20}{defptr}{$code};
foreach my $n (keys %{ $defptr }) {
FS20_Follow($defptr->{$n}->{NAME}, $a[1], $na, $val);
readingsSingleUpdate($defptr->{$n}, "state", $v, 1);
}
return $ret;