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

@@ -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;