FHEM Forum

FHEM => Codeschnipsel => Thema gestartet von: schnun am 19 März 2014, 13:30:56

Titel: Perl Code Intertechno on-till
Beitrag von: schnun am 19 März 2014, 13:30:56
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:

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
Titel: Antw:Perl Code Intertechno on-till
Beitrag von: schnun am 19 März 2014, 21:31:43
Okay, selber gelöst. Fhemwiki macht schlau....   ;)