telnet befehl senden [gelöst]

[satprofi]

Hallo.
Habe mir eine Lead Dynamic Led geschossen, die kann ich per App und Telnet Befehle steuern, Befehle -> hier gefunden. Jetzt wollte ich das ganze über FHEM steuern, aber ich finde nichts in der Suche das mir weiterhilft. Habe zwar ein script gefunden und in der 99myutils angepasst, aber ausser "1" als Ausgabe tut sich nichts. Hat wer idee für mich wie ich das zum laufen bekomme?

Code Auswählen Erweitern

sub SDCW_on{
    use Net::Telnet();
    my $tab = new Net::Telnet (Port => 8899);
    #my $fh1 = $tab->dump_log("telnetclient.txt"); <-- macht zum debuggen Sinn.
    #my $fh2 = $tab->input_log("telnetclient_input.txt"); <-- macht zum debuggen Sinn.
    #my $fh3 = $tab->output_log("telnetclient_output.txt"); <-- macht zum debuggen Sinn.

    $tab->open("192.168.0.61");
    $tab->print("echo -e'\x55\x00\x00\x00\x02\xff\x08\x36\x00\x3f\xaa\xaa\x55\x00\x00\x00\x02\xff\x02\x12\xab\xc0\xaa\xaa' ");
    }

[betateilchen]

Spontan würde ich sagen, nach "echo -e" fehlt zumindest ein Leerzeichen.

[satprofi]

Hallo.
Habe es gelöst, telnetmode auf 0 gesetzt Link

Code Auswählen Erweitern

sub SDCW_on{
    use Net::Telnet();
    my $tab = new Net::Telnet (Telnetmode => 0,Port => 8899);
    #my $fh1 = $tab->dump_log("telnetclient.txt"); <-- macht zum debuggen Sinn.
    #my $fh2 = $tab->input_log("telnetclient_input.txt"); <-- macht zum debuggen Sinn.
    #my $fh3 = $tab->output_log("telnetclient_output.txt"); <-- macht zum debuggen Sinn.

    $tab->open("192.168.0.61");
    $tab->print("'\x55\x00\x00\x00\x02\xff\x08\x36\x00\x3f\xaa\xaa\x55\x00\x00\x00\x02\xff\x02\x12\xab\xc0\xaa\xaa' ");
    }

sub SDCW_off{
    use Net::Telnet();
    my $tab = new Net::Telnet (Telnetmode => 0,Port => 8899);
    #my $fh1 = $tab->dump_log("telnetclient.txt"); <-- macht zum debuggen Sinn.
    #my $fh2 = $tab->input_log("telnetclient_input.txt"); <-- macht zum debuggen Sinn.
    #my $fh3 = $tab->output_log("telnetclient_output.txt"); <-- macht zum debuggen Sinn.

    $tab->open("192.168.0.61");
    $tab->print("echo -e '\x55\x00\x00\x00\x02\xff\x08\x36\x00\x3f\xaa\xaa\x55\x00\x00\x00\x02\xff\x02\x12\xa9\xbe\xaa\xaa' ");
    }

[betateilchen]

einmal mit echo und einmal ohne echo und beides funktioniert?

Code Auswählen Erweitern

print("'\x55\x00\x00\x00\x02\xff\x08\x36\x00\x3f\xaa\xaa\x55\x00\x00\x00\x02\xff\x02\x12\xab\xc0\xaa\xaa' ");

print("echo -e '\x55\x00\x00\x00\x02\xff\x08\x36\x00\x3f\xaa\xaa\x55\x00\x00\x00\x02\xff\x02\x12\xa9\xbe\xaa\xaa' ");


Schwer vorstellbar, aber wenn es klappt, ist ja alles gut.
Logisch ist es nicht.

[satprofi]

einmal mit echo und einmal ohne echo und beides funktioniert?

Code Auswählen Erweitern

print("'\x55\x00\x00\x00\x02\xff\x08\x36\x00\x3f\xaa\xaa\x55\x00\x00\x00\x02\xff\x02\x12\xab\xc0\xaa\xaa' ");

print("echo -e '\x55\x00\x00\x00\x02\xff\x08\x36\x00\x3f\xaa\xaa\x55\x00\x00\x00\x02\xff\x02\x12\xa9\xbe\xaa\xaa' ");


Schwer vorstellbar, aber wenn es klappt, ist ja alles gut.
Logisch ist es nicht.

danke für den hinweis, fiel mir gar nicht auf. aber das waren nur Testeinträge, echo -e wird benötigt.

was jetzt ansteht, ich möchte nur ein commando mit notify triggern, und das script soll je nach state eines dummys den entsprechenden hexcode senden. quasi sub SDCW und darin per if die auswahl treffen.