Perl Code Intertechno on-till

[schnun]

Ich habe gestern folgendes im Intertechno Forum gefragt, aber ich denke hier bin ich
besser aufgehoben.

Folgender Code funktioniert soweit, nur möchte ich das "garage_Licht" nach
2min wieder auf "Aus" geht.

Wie kann ich das hier noch einbringen, da ein at-Befehl hier nicht reagiert:

Code Auswählen Erweitern

define garage_AufTag notify garage_Tor.*|garage_Licht.* {\
my $hm = sprintf("%%02d:%%02d", $hour, $min);;\
if ( $hm gt "06:01" && $hm lt "23:29" &&\
$value{garage_Tor} eq "Offen") {\
fhem ("set garage_Licht Ein");;\
DebianMail('xxxx@@online.de','Garage Tor offen TAG','Garagentor ist offen !!!');;\
FBCallr(2,"**623",2,"xxxxxxxx","xxxx","xxxx");;\
}\
}


Danke.

Gruss
schnun

[schnun]

Okay, selber gelöst. Fhemwiki macht schlau....