From cc510cf1aafa51f9fb7a952fb5402701bafc9dd4 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 12 Jun 2009 10:03:22 +0000
Subject: [PATCH] follow-on-for-timer should work now if sent by a device

git-svn-id: https://svn.fhem.de/fhem/trunk@392 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_FS20.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/fhem/FHEM/10_FS20.pm b/fhem/FHEM/10_FS20.pm
index a61b9f344..34058a2ef 100755
--- a/fhem/FHEM/10_FS20.pm
+++ b/fhem/FHEM/10_FS20.pm
@@ -360,6 +360,20 @@ FS20_Parse($$)
       $lh->{READINGS}{state}{TIME} = TimeNow();
       $lh->{READINGS}{state}{VAL} = $v;
       Log GetLogLevel($n,2), "FS20 $n $v";
+
+      if($follow{$n}) {
+        CommandDelete(undef, $n . "_timer");
+        delete $follow{$n};
+      }
+      if($v =~ m/for-timer/ &&
+        defined($attr{$n}) &&
+        defined($attr{$n}{"follow-on-for-timer"})) {
+        my $to = sprintf("%02d:%02d:%02d", $dur/3600, ($dur%3600)/60, $dur%60);
+        Log 4, "Follow: +$to setstate $n off";
+        CommandDefine(undef, $n . "_timer at +$to setstate $n off");
+        $follow{$n} = $to;
+      }
+
       push(@list, $n);
     }
     return @list;