RAWMSG in Perl-Onliner

[RaTom]

Hallo *!

Kurzfassung:
Wie komme ich (ein notify) an die mich aufrufende (raw) Message heran?

Langfassung:
Inspiriert von Fhem-Wiki "HM-RC-12 Funkfernbedienung 12 Tasten", möchte ich ähnliches für eine Homematic HM-PB-4Dis-WM versuchen.
Der im Wiki vorgestellte Code

Code Auswählen Erweitern

...
my $raw   = $defs{HMremote}{HMLAN_RAWMSG};
...hat m. E. den Nachteil, dass das Internal des Homematic-Empfangs-Device (hier HMLAN_RAWMSG) explizit angegeben werden muss. Bei mir heißt es CUNO48_RAWMSG. Jedenfalls solange ich das Device nicht umbenenne.

Ich hoffe aber, dass dieses Internal auch mittels Perl-Code zu erreichen ist. Nur reichen weder meine Perl- noch meine Fhem-Kenntnisse, um mich - ausgehend von den in einem notify vorhandenen Information - durchhangeln zu können...

Bei folgendem Code wundere ich mich schon, dass ich bei den zwei letzten Log-Einträgen statt der Hash-Keys nur Zahlen sehe...

Code Auswählen Erweitern

define Fernbedienung_Btn.Notify notify Fernbedienung_Btn_.* {\
  my $Geraet = "Fernbedienung";;\
  Log 1, "%%EVENT=%EVENT, %%NAME=%NAME, %%TYPE=%TYPE";;\
  Log 1, "keys(%%defs)=".keys(%%defs);;\
  Log 1, "keys(\$defs{\$Geraet})=".keys($defs{$Geraet});;\
}

Kann mir jemand helfen?

MfG
RaTom

[Rudibarani]

Hallo RaTom,

lang ist es her - aber ich bin gerade auf Deine Nachricht aus 2013 gestoßen. Hast Du es damals hinbekommen, für das Display die ACK-Nachrichten so zu schicken, dass der Schalter die mit "grün" quittiert?

Viele Grüße
Phillip