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.