99_myUtils.pm $EVENT zerlegen

[EnderPhilipp]

Hi Liebe FHEM-Community,

ich verwende yowsup zum Senden und Empfangen von Whatsappnachrichten in FHEM.
Jetzt wollte ich ein kleines Script basteln, was auf empfangen Nachrichten reagiert, das wollte ich mit der 99_myUtils.pm realisieren.

Jetzt würde ich gerne das $EVENT als Parameter in der Routine verwenden und dann splitten, ein Beispiel:
Wenn das Empfangene Film entspricht soll xyz eingeschaltet werden, wenn das Empfangene Licht An/aus entspricht, soll erst geprüft werden, dass der erste Teil Licht entspricht und dann soll geguckt werden ob der zweite Teil An oder Aus ist.

Also ich würde gerne nur einen Parameter verwenden und den dann aufteilen, kann man das machen ?

Mfg
Philipp 

[igami]

Also ich würde gerne nur einen Parameter verwenden und den dann aufteilen, kann man das machen ?

Klar, der Perl Befehl dafür ist split. Dazu sollte sich einiges im Internet finden lassen. Ein Beispiel vorab:

Code Auswählen Erweitern


sub yowsup_split($) {
  my ($cmd, $args) = split(" ", shift, 2);

  if($cmd eq "Film"){
    ##start movie
  }
  elsif($cmd eq "Licht" and $args){
    fhem("set Licht on") if($args eq "an");
    fhem("set Lich off") if($args eq "aus");
  }
  else{
    ##no cmd found
  }
}


[Otto123]

Moin Philip,

und einfach $EVTPART1 usw verwenden?

Gruß Otto

[EnderPhilipp]

Moin Philip,

und einfach $EVTPART1 usw verwenden?

Gruß Otto

Das könnte man auch nehmen, ist wharscheinlich einfacher

Werde schauen was ich jetzt verwende, danke für eure Hilfe. 

[EnderPhilipp]

Habe jetzt folgende 99_myUtils.pm:

Code Auswählen Erweitern

##############################################
# $Id: myUtilsTemplate.pm 7570 2015-01-14 18:31:44Z rudolfkoenig $
#
# Save this file as 99_myUtils.pm, and create your own functions in the new
# file. They are then available in every Perl expression.

package main;

use strict;
use warnings;
use POSIX;

sub
myUtils_Initialize($$)
{
  my ($hash) = @_;
}

# Enter you functions below _this_ line.
sub
Whatsappempfang($$$)
{
  my ($EVTPART1, $EVTPART2) = @_;
  if($EVTPART1 eq 'PC-Spiel'){
  fhem( "set Computer on" );
  fhem( "set Monitor on" );
  fhem( "set Radio off" );
  fhem( "set Fernseher off" );
  fhem( "set ScreenBloom on" );
  fhem("sleep 1.1");
  fhem( "set Tischlampe off" );
  fhem("sleep 1.1");
  fhem( "set Stehlampe off" );
  fhem( "set iPhone send Viel Spaß beim Spielen !!!" );
  }
  if($EVTPART1 eq 'Licht')
  {
  if($EVTPART2 eq 'an')
  {
  fhem("set Stehlampe on" );
  fhem("sleep 1.1");
  fhem("set Tischlampe on" );
  fhem("set HUEGroup2 on" );
  fhem( "set iPhone send Das Licht wurde _eingeschaltet_ ..." );
  }
  if($EVTPART2 eq 'aus')
  {
  fhem("set Stehlampe off" );
  fhem("sleep 1.1");
  fhem("set Tischlampe off" );
  fhem("set HUEGroup2 off" );
  fhem( "set iPhone send Das Licht wurde _ausgeschaltet_ ..." );
 
  }
 
 
  }
}
1;

Der Aufruf { Whatsappempfang("Licht", "an") } funktioniert auch, das folgende Notify aber nicht:

Code Auswählen Erweitern

define Whatsappempfang notify iPhone:message.* { Whatsappempfang($EVTPART1, $EVTPART2) }

Wenn ich "Licht an" per Whatsapp schreibe passiert nichts...

Was mache ich flasch

Mfg
Philipp 

[igami]

Steht in EVTPART1 denn das was du erwartest?

Statt alle fhem Befehle einzeln zu senden kannst du auch das Modul lightscene verwenden

[CoolTux]

Das ganze Teil sollte mit einer Fehlermeldung enden. Deine Sub erwartet 3 Argumente und Du übergibst nur 2.

[EnderPhilipp]

Das ganze Teil sollte mit einer Fehlermeldung enden. Deine Sub erwartet 3 Argumente und Du übergibst nur 2.

Danke, hatte das testweise drin und wohl vergessen rauszunehmen, jetzt geht Alles wie es soll.

Danke 

[Puschel74]

Und jetzt noch die Lösung für andere Anfänger hinterlassen und den Beitrag entsprechend markieren - dann hätten doch gleich alle was davon 

[EnderPhilipp]

Und jetzt noch die Lösung für andere Anfänger hinterlassen und den Beitrag entsprechend markieren - dann hätten doch gleich alle was davon 

Das ist mein aktuelle Code:

Code Auswählen Erweitern

##############################################
# $Id: myUtilsTemplate.pm 7570 2015-01-14 18:31:44Z rudolfkoenig $
#
# Save this file as 99_myUtils.pm, and create your own functions in the new
# file. They are then available in every Perl expression.

package main;

use strict;
use warnings;
use POSIX;

sub
myUtils_Initialize($$)
{
  my ($hash) = @_;
}

# Enter you functions below _this_ line.
sub
Whatsappempfang($$)
{
  my ($EVTPART1, $EVTPART2) = @_;
  if($EVTPART1 eq 'PC-Spiel'){
  fhem( "set Computer on" );
  fhem( "set Monitor on" );
  fhem( "set Radio off" );
  fhem( "set Fernseher off" );
  fhem( "set ScreenBloom on" );
  fhem("sleep 1.1");
  fhem( "set Tischlampe off" );
  fhem("sleep 1.1");
  fhem( "set Stehlampe off" );
  fhem( "set iPhone send Viel Spaß beim Zocken !!!" );
  }
  elsif($EVTPART1 eq 'Licht')
  {
  if($EVTPART2 eq 'an')
  {
  fhem("set Stehlampe on" );
  fhem("sleep 1.1");
  fhem("set Tischlampe on" );
  fhem("set HUEGroup2 on" );
  fhem( "set iPhone send Das Licht wurde _eingeschaltet_ ..." );
  }
  elsif($EVTPART2 eq 'aus')
  {
  fhem("set Stehlampe off" );
  fhem("sleep 1.1");
  fhem("set Tischlampe off" );
  fhem("set HUEGroup2 off" );
  fhem("set iPhone send Das Licht wurde _ausgeschaltet_ ..." );
  }

  }
  elsif($EVTPART1 eq 'Aussentemperatur')
  {
  my $temperature = ReadingsVal("Aussensensor", "temperature", "");
  fhem("set iPhone send Aussentemperatur:*$temperature °C*");
  }
}
1;

Nur leider klappen die Befehle PC-Spiel und Aussentemperatur , also die Befehle die nur $EVTPART1 abfragen, nicht.

Wie kann ich dieses Problem lösen ?

Mfg
Philipp 

[EnderPhilipp]

Weiß keiner eine Antwort ?

[CoolTux]

Bau Dir Logausgaben ein und schaue was tatsächlich an kommt.

[EnderPhilipp]

Habe jetzt herausgefunden, woran das liegt und zwar wenn ich nur ein Wort schicke, gibt es kein $EVTPART2 und damit fehlt ein Parameter.

Mit welcher if-Abfrage kann ich fragen, ob ein $EVTPART2 vorhanden ist ?

Mfg
Philipp 

[CoolTux]

Übergeben am besten den ganzen Event an die Sub und zerlege es innerhalb Deiner Sub.

[dev0]

http://perldoc.perl.org/functions/defined.html