[GELÖST]Fehler in perl Routine

[derHeimwerker]

Hallo,

Ich habe ein dummy
Button_Roll_Beschattung_du.

Und ein notify
Button_Roll_Beschattung_du {Button_RollBeschattung($EVENT)}


Die Routine sieht so aus:

Code Auswählen Erweitern


sub Button_RollBeschattung ($) {

my $Rollladen = @_;

my $Position = AttrVal($Rollladen,'Auto_Lueften_Pos',10);

fhem ("set $Rollladen level_$Position");

}


Wenn ich den dummy mit "set Button_Roll_Beschattung_du Roll.GaesteWC" fülle,
dann wird das notify ausgeführt. Der Eventmonitor zeigt mir ein Event :

Code Auswählen Erweitern


dummy Button_Roll_Beschattung_du Roll.GaesteWC

Sieht bisher alles ganz gut aus.

Im Log steht allerding "

Code Auswählen Erweitern


set 1 level_10 : Please define 1 first
Button_Beschattung_not return value: Please define 1 first


Das user Attribut von Roll.GaesteWC sieht so au:
Auto_Lueften_Pos 30

Wo liegt denn da der Fehler ?

Danke

[Ellert]

$EVENT enthält nicht den Gerätenamen, siehe https://fhem.de/commandref_DE.html#notify

[amenomade]

Probier mal mit

Code Auswählen Erweitern

my ($Rollladen) = @_;

[derHeimwerker]

$EVENT enthält nicht den Gerätenamen, siehe https://fhem.de/commandref_DE.html#notify

Lt. Log wird das EVENT "Roll.GaesteWC" aber doch sauber übergeben.

[derHeimwerker]

Probier mal mit

Code Auswählen Erweitern

my ($Rollladen) = @_;

Super ! Das war es. Danke !