[gelöst] Wie rufe ich eine eigene Funktion (99_My_Utils) mit Parameter

[tklein]

Hallo,

folgende Funktion habe ich:

Code Auswählen Erweitern


sub alarmmail() {

my ($alarm_von) = @_;
fhem("set Dummy_test alarmmail");

my $subject = " Alarm von: " . $alarm_von;
my $text = "Das oben genannte Gerät hat Alarm ausgelöst";

DebianMail('max.mustermann@test.de',$subject,$text);
fhem("set Pushover_Client msg $subject $text '' 0 '' ");

return $subject;

}


Im DOIF steht:

Code Auswählen Erweitern


([Alarmanlage] eq "an" and [PIR433_1] eq "on") ((set Pushover_Client msg 'Bewegung' 'Bewegung im Flur' '' 0 '') (set PIR433_1 off) (set alarm an) (alarmmail(PIR Flur)))

Log sagt mir: alarmmail(PIR Flur): Unknown command alarmmail("PIR, try help.

Wie bekomme ich die Fehlermeldung weg bzw. wie sollte der Aufruf erfolgen?

Grüße Thomas

[MadMax-FHEM]

Ich nutze zwar kein DOIF sondern notify aber mache es wie folgt:

statt:

Code Auswählen Erweitern

(alarmmail(PIR Flur)

mal folgendes versuchen:

Code Auswählen Erweitern

{alarmmail(\"PIR Flur\")}

EDIT: deine sub-Definition muss dann aber auch so lauten:

Code Auswählen Erweitern

sub alarmmail($)

Gruß, Joachim

[tklein]

Hi Joachim,

jetzt bekomme ich:

Code Auswählen Erweitern

{alarmmail(\"PIR Flur\")}: Can't find string terminator '"' anywhere before EOF at (eval 3333) line 1.

bei:

Code Auswählen Erweitern


([Alarmanlage] eq "an" and [PIR433_1] eq "on") ((set Pushover_Client msg 'Bewegung' 'Bewegung im Flur' '' 0 '') (set PIR433_1 off)(set alarm an)({alarmmail(\"PIR Flur\")}))


EDIT: deine sub-Definition muss dann aber auch so lauten:
Code: [Auswählen]

sub alarmmail($)

watn blöder copy&paste Fehler

Grüße
Thomas

[MadMax-FHEM]

Hi,

sorry ich dachte (warum auch immer) ich müsste die Anführungszeichen maskieren...
...vielleicht einfach mal so:

Code Auswählen Erweitern

([Alarmanlage] eq "an" and [PIR433_1] eq "on") ((set Pushover_Client msg 'Bewegung' 'Bewegung im Flur' '' 0 '') (set PIR433_1 off)(set alarm an)({alarmmail("PIR Flur")}))

EDIT: Wobei ich wie geschrieben DOIF nicht verwende, kann also gut sein, dass da noch irgendwo ein Strichpunkt etc. zum Trennen zwischen den set-Befehlen und dem Perl-Aufruf rein muss...

Gruß, Joachim

[tklein]

jup das wars. Vielen lieben Dank!!

[MadMax-FHEM]

Bitte gerne!

Viel Spaß!

Achja, den Thread  mal als gelöst "kennzeichnen": z.B. umbenennen in "[gelöst] Wie rufe ich eine eigene Funktion (99_My_Utils) mit Parameter in einem DOIF auf?"

Gruß, Joachim

[tklein]

schon längst geschehen. Mache ich bei meinen gelösten Threads eigentlich immer.

[MadMax-FHEM]

Ups, hab ich wohl übersehen...
...bzw. ist ja nicht jeder ein Forumsprofi wie du

Gruß, Joachim

[automatisierer]

Funktioniert es denn wirklich?

Zumindest, wenn du von deiner Sub einen Rückgabewert erwartest oder eine Berechnung machst, musst du den Perl Befehl in den geschweiften Klammern nochmal zusätzlich in runde Klammern setzten.

Zitat Commandref:

Berechnungen können in geschweiften Klammern erfolgen. Aus Kompatibilitätsgründen, muss die Berechnung unmittelbar mit einer runden Klammer beginnen. Innerhalb der Perlberechnung können Readings, Status oder Internals wie gewohnt in eckigen Klammern angegeben werden.

Bei mir funktioniert dieser Aufruf zum Beispiel nicht ohne runde Klammern:

Code Auswählen Erweitern

(set pushover msg title=Warnung {(checkWindowOpen("msg"))} device=Ingo priority=2 sound=siren retry=30 expire=3600)
wohlgemerkt ist das DOIF Kram und hat nix mit der Sub zu tun. Ohne die runden Klammern wird nur der Aufruf selber per Pushover versendet und nicht der Rückgabewert.

[tklein]

@ Joachim:

Wenn schon nicht FHEM etc. dann das Forum ein bißchen.

@ automatisierer:

Danke für den Hinweis. Werde ich ausprobieren. Während ich bastel habe ich so meine Werte überprüft. Im DOIF brauche ich keinen Rückgabewert. Daher wird es mir nicht aufgefallen sein.

Grüße & Dake für die Hilfe!
Thomas