externes Perl Skript ausführen

[Lars]

Hallo zusammen,

ich bin FHEM und vor allem Perl Neuling aber durchaus lernbereit.
Wichtige Aktionen möchte ich von einem notify ausgelöst über Prowl an mein iPhone pushen. Dabei möchte ich auf den Umweg E-Mail verzichten und die API von Prowl nutzen. Es gibt hierzu auch bereits ein fertiges eigenständiges Perl Programm (hinter dem Link nach unten scrollen), ich habe nur leider keinen Schimmer, wie ich dieses aus FHEM heraus aufrufen kann. Wenn ich das richtig verstehe lassen sich in die 99_*.pm Dateien nur Routinen(!?(//images/smiley_icons/icon_wink.gif) - sub - einbinden, keine ganzen Programme?

Hier der Link zu Prowl: http://www.prowlapp.com/api.php

Vielen Dank & Gruß
Lars

[kud]

In der fhem.cfg kann man so externe Programme aufrufen:

Beispielcode:
define Bewegung_Piri_2 notify Piri_2:.*on* {\
    if (Value("HomeStatus") > 0 (//images/smiley_icons/icon_wink.gif) {\
       Log 3, "Wohnzimmer PIRI_2 mit ALARM";;\
       fhem("set PIRI_ALARM on");;\
       fhem("set PIRI_ORT Wohnzimmer");;\
       `/usr/bin/aplay /Soundfiles/Sirene.wav `;;\
       `/usr/bin/mpg123 /Soundfiles/Einbruch_wohnzimmer.mp3 `;;\
    }  else {\
   Log 3, "Wohnzimmer PIRI_2 ohne ALARM";;\
}\
}

oder

in die 99_myUtils.pm das einbinden per Funktion

sub Spiele_Sound((//images/smiley_icons/icon_wink.gif) {
   system "aplay /Soundfiles/dingdong3.wav";
}

Vielleicht helfen Dir diese Ansätze weiter.

Gruss Kai-Uwe

[kud]

Warum jetzt die Smilys drin sind weiss ich auch nicht.

[ilmtuelp0815]

Hi kud!
Die Smilies kommen in den Text hinein, wenn eine Zeichenkombination der Textversion des Smilies entspricht. Also bei ProgrammCode entweder die Box "Smilies in diesem Text deaktivieren" anhaken oder "code einfügen" nutzen!

[MarkusN]

Hallo,

anbei ist ein Code-Beispiel in dem ich die Prowl-Notifications für meinen Trockner nutze. Da es sich um einen Ablufttrockner handelt habe ich einfach einen 1-Wire-Temperatursensor in den Abluftschlauch gehängt. Sobald die Temperatur unter 20C absinkt wird der Trockner auf "off" gesetzt und eine Prowl-Notification auf das iPhone meiner Frau geschickt. Das ganze habe ich bereits zu einem Notify umgebaut, dann funktioniert allerdings das Auslesen und Splitten der Temperatur nicht mehr. Für mich als nicht-Programmierer sind sowas immer schwer zu verstehende Probleme. Aber dir sollte dieser Codeschnippsel weiterhelfen:

Code Auswählen Erweitern

define Job_check_Trockner at +*00:05:00 { \
  my @a = split (" ",ReadingsVal("temp_trockner","temperature","10"));; \
  if($a[0] > 20.0) { \
    if ( Value("Trockner") eq "off") { \
      fhem("set Trockner on");; \
    } \
  } else { \
    if (Value("Trockner") eq "on") { \
      fhem("set Trockner off");; \
      system("/home/biomann/scripts/fhem/prowl_franziska.sh 'Trockner ist fertig :)'");; \
    } \
  } \
}


[MarkusN]

Die Notifications habe ich übrigens mit prowl.pl realisiert.

[Tobias]

Zur Info: Das gibts auch für Android: http://www.notifymyandroid.com/

[kud]

Dumme Zwischenfrage.
Was macht Prowl und die Androidapp anders als Googlemail?
Wenn ich eine mir eine Mail schicke, piept es auf meinem Note ein paar Sekunden später.

Gruss KUD

[Zrrronggg!]

Hi kud!
Die Smilies kommen in den Text hinein, wenn eine Zeichenkombination der Textversion des Smilies entspricht. Also bei ProgrammCode entweder die Box "Smilies in diesem Text deaktivieren" anhaken oder "code einfügen" nutzen!

Das stimmt leider nicht immer.  Ich habe inzwischen bemerkt, das einen geschlossene Klammer oft in ;-)  umgewandelt wird auch wenn kein Semikolon oder Minus davor steht.

Ich weiss nicht ob das geht, aber ich denke es würde weniger Ärger geben, wenn man die Smiley default mässig ausschaltet, also "Smileys in diesem Beitrag deaktivieren" normalerweise angekreuzt ist.

[Zrrronggg!]

im obigen Beitrag habe ich übrigens die Umwandlung in Smileys nicht dektiviert, trotzdem wurde ;-) nicht umgewandelt.  Da ist schon noch was faul an der Sache.

[Lars]

Hallo zusammen,

vielen Dank für die Hilfestellung, das Perl Skript kann ich nun ausführen und erhalte damit die Prowl Benachrichtigungen?
Was daran anders ist als Mail? Prowl sendet die Information direkt auf den Homescreen! Ich muss nicht erst eine E-Mail öffnen um die Information lesen zu können.
Außerdem kann man Prioritäten vergeben und sich so z.B. von einem Dauerton wecken lassen wenn etwas ganz kritisches passiert!

Gruß
Lars

[Lars]

Jetzt habe ich aber leider die nächste Frage...

Ich möchte zum Programmstart die Dummy Variable LastTempWarnSZ mit einem alten Datum initialisieren. Dafür möchte ich mich der Lib DateTime bedienen.
Das ganze habe ich so gemacht:

Code Auswählen Erweitern

define LastTempWarnSZ dummy
attr LastTempWarnSZ room Schlafzimmer
set LastTempWarnSZ { \
use DateTime;; \
DateTime->new( year => 2012, month => 2, day => 23 );; \
}

Anstelle der Funktionsrückgabe - sprich dem Zeitstempel - hat die Var nun aber den State:

Code Auswählen Erweitern

{ \ use DateTime; \ DateTime->new( year => 2012, month => 2, day => 23 ); \ }

Was mache ich falsch?

Gruß
Lars

[Svenson]

Wie ruft Du das prowl.pl auf?

[Lars]

Über das Kommando:

Code Auswählen Erweitern


perl /usr/bin/fhem.pl /etc/fhem.cfg


[WiKa]

Jetzt habe ich aber leider die nächste Frage...

Ich möchte zum Programmstart die Dummy Variable LastTempWarnSZ mit einem alten Datum initialisieren.

Hallo Lars,
bitte erstelle für die neue Frage einen neuen Beitrag im Forum.
Wie bereits von anderen usern in anderen Beiträgen angemerkt, geht sonst sehr shnell der Überblick über ungelöste Fragen verloren.

VG,
WiKa