[gelöst] onClick | FW_cmd - call PERL sub with values -> perl-html-javascript

[amenomade]

onclick="FW_cmd(FW_root+'?cmd={Entleerung(1,"2")}&XHR=1')"

Da gibt es m.M.n. noch etwas, was in der Verschachtelung nicht stimmt

[HomeAuto_User]

Da gibt es m.M.n. noch etwas, was in der Verschachtelung nicht stimmt

Gibt es die Möglichkeit noch "besser" zu debuggen.
Ich habe schon mir nur das Stück vorgenommen aber komme immer zum Fehler.

Sobald ich die Variable Text maskieren möchte tritt der Fehler auf.

EDIT:

Selbst wenn ich alles umschreibe von " auf das ' Zeichen

Code Auswählen Erweitern

$buttons = '<INPUT type="reset" onclick="FW_cmd(FW_root+\'?cmd={Entleerung(';
$buttons .= $var1; # variable 1 Zahl
$buttons .= ','; # Trennung
$buttons .= ''; # eventuelles Zwischenzeichen - Maskierung
$buttons .= $var2; # variable 2
$buttons .= ''; # eventuelles Zwischenzeichen - Maskierung
$buttons .= ')}&XHR=1\')" value="update_Data" %s/>';

geht es nicht, sobald ich definieren möchte mit der Maskierung das es Text ist.

[amenomade]

Das ist schwierig: Du hast in einer Konkatenation von Perl Strings eine Konkatenation von Javascript Strings... und jede Art muss quotes und double quotes escapen.
Ich würde in einem online Perl Tester, z.B. https://www.tutorialspoint.com/execute_perl_online.php zuerst zu eine Variable kommen, die eine rightige Javascript String enthält (diese mit einem intelligenten Editor mit javascript Syntaxhervorhebung kontrollieren)

[HomeAuto_User]

Das ist schwierig: Du hast in einer Konkatenation von Perl Strings eine Konkatenation von Javascript Strings... und jede Art muss quotes und double quotes escapen.
Ich würde in einem online Perl Tester, z.B. https://www.tutorialspoint.com/execute_perl_online.php zuerst zu eine Variable kommen, die eine rightige Javascript String enthält (diese mit einem intelligenten Editor mit javascript Syntaxhervorhebung kontrollieren)

Hm, das wird natürlich eine sehr sehr große Herausforderung.

Kann es sein, das vielleicht auch schon der Fehler in der sub _FW_Detail steckt wo das Script zum aufrufen verankert ist?
ODER
kommt nur meine Sub in Frage welche aufgerufen wird. (also diese wo der Code zum HTML Bau verankert ist?

[amenomade]

Funktioniert es, wenn Du fix (ohne Variable) folgendes in deinem Modul einträgst:

Code Auswählen Erweitern

$buttons = "<INPUT type=\"reset\" onclick=\"FW_cmd(FW_root+\'?cmd={Entleerung(1,\"123e4\")}&XHR=1\')\" value=\"Text\" %s/>";

[HomeAuto_User]

Funktioniert es, wenn Du fix (ohne Variable) folgendes in deinem Modul einträgst:

Code Auswählen Erweitern

$buttons = "<INPUT type=\"reset\" onclick=\"FW_cmd(FW_root+\'?cmd={Entleerung(1,\"123e4\")}&XHR=1\')\" value=\"Text\" %s/>";

Nein leider nicht. Nach fester Verankerung kommt

string literal contains an unescaped line break

[amenomade]

Und mit:

Code Auswählen Erweitern

$buttons = "<INPUT type=\"reset\" onclick=\"FW_cmd(FW_root+\'?cmd={Entleerung(1,\\\"123e4\\\")}&XHR=1\')\" value=\"Text\" %s/>";
?
(ein escaped backslash in Perl, um das double quote in Javascript zu escapen)...

[HomeAuto_User]

Und mit:

Code Auswählen Erweitern

$buttons = "<INPUT type=\"reset\" onclick=\"FW_cmd(FW_root+\'?cmd={Entleerung(1,\\\"123e4\\\")}&XHR=1\')\" value=\"Text\" %s/>";
?
(ein escaped backslash in Perl, um das double quote in Javascript zu escapen)...

Da erhalte ich

SyntaxError: '' literal not terminated before end of script

[amenomade]

Naja, wir haben " ' " " ' ". Wäre eine dreifache Verschachtelung perl-html-javascript... geht aber nicht : der zweite " schliesst den ersten.

Ich weiss nicht wirklich, was Du machen könntest.

[HomeAuto_User]

Naja, wir haben " ' " " ' ". Wäre eine dreifache Verschachtelung perl-html-javascript... geht aber nicht : der zweite " schliesst den ersten.

Ich weiss nicht wirklich, was Du machen könntest.

Kann es innerhalb FHEM ein Verarbeitunsfehler sein oder hat nur intern das Modul die Verarbeitung zu leisten?
Ich frage daher, weil Bsp: FW_cmd hier als FHEM Funktionen beschrieben werden.

Das komische bleibt ja, via Kommandozeile in FHEM klappt es.

Ein Umweg wäre nur, das ich über eine "Globale Variable" daran komme, was ich aber vermeiden wollte.

Bei der Verarbeitung
->FW_detailFn ->Script -> Sub
geht es ja

nur bei
->FW_detailFn ->Script -> Sub -> Sub
nicht

[amenomade]

FW_cmd ist eine Javascript Funktion aus fhemweb.js

[amenomade]

Vielleicht ist die Lösung ganz anders. Mit deiner Funktion willst Du eine String bauen, die HTML Code mit Buttons & Co enthält. Was willst Du dann mit dieser Funktion machen? Wofür wird die String dann benutzt?

[bismosa]

Hallo!

Ich hatte dies Problem auch gerade erst...ich habe gerade nochmal ein wenig getestet...bin mir aber nicht sicher, ob ich das Problem auch richtig verstanden habe:

Code Auswählen Erweitern

my $changecmd = "{MAX_Temperatur_TEST("HUHU")}";";
$html.="<a style=\"cursor: pointer;\" onClick=\"FW_cmd(FW_root+'?cmd=$changecmd&XHR=1')\">TESTXXX</a>";
Aufgerufen wird hier "MAX_Temperatur_TEST" mit der "Variablen" "HUHU". Die Sub sieht zum testen so aus:

Code Auswählen Erweitern

sub MAX_Temperatur_TEST($){
  my $Value = shift;
  Log3 "TEST",1,"TEST, $Value";
  return "huhu";
}

Ich habe es nur geschafft, indem ich die Anführungszeichen als """ angegeben habe. Alles andere klappte nicht.

Möchtest Du dann auch mit dem Rückgabewert der Funktion arbeiten? Dann:

Code Auswählen Erweitern

my $changecmd = "{MAX_Temperatur_TEST("HUHU")}";";
$html.="<a style=\"cursor: pointer;\" onClick=\"FW_cmd(FW_root+'?cmd=$changecmd&XHR=1',function(data){FW_okDialog(data)})\">TESTXXX</a>";

Ich habe aber insgesamt für mich festgestellt, das es u.U. wesentlich einfacher ist ein SET Command auszuführen:

Code Auswählen Erweitern

my $cmd = "cmd.$name=set $name start";
$html.="<a style=\"cursor: pointer;\" onClick=\"FW_cmd('$FW_ME$FW_subdir?XHR=1&$cmd',function(data){FW_okDialog(data)})\">$img</a>";
Hier könnte man ja noch weitere Werte übergeben. Das lässt sich auch so im Modul auswerten, das der SET-Command nicht weiter vom USER bedient werden kann...

Gruß
Bismosa

[amenomade]

Ich habe es nur geschafft, indem ich die Anführungszeichen als """ angegeben habe.

Ah schön! Das bringt uns das dritte Verschachtelungslevel! Prima

[HomeAuto_User]

Ah schön! Das bringt uns das dritte Verschachtelungslevel! Prima

Dann muss ich das mal testen und den String mir zusammenbauen.

Schwieriger dazu wird, bei allen Versuchen die letzte Variante wieder zu finden

Edit:
Vermutlich muss ich hier ansetzen

Code Auswählen Erweitern

$buttons = "<INPUT type=\"reset\" onclick=\"FW_cmd(FW_root+\'?cmd={Entleerung(1,\\\"123e4\\\")}&XHR=1\')\" value=\"Text\" %s/>";

Gesendet von iPhone mit Tapatalk Pro