[wiregate] - √ - Plugin mit Telnetverbindung ohne Login

[swiss]

Hallo zusammen

Ich habe mal wieder ein Problem mit PERL.

Ich versuche eine Telnetverbindung zu meinem Surroundsystem aufzubauen, um es fernzusteuern. Soweit so gut. ABER...

Die Telnetverbindung hat kein Login. Es wird also weder nach dem Usernamen noch nach dem Password gefragt (gibt's auch nicht). Der grosse Haken ist, dass sich das Surroundsystem nach dem Verbindungsaufbau auch nicht zurück meldet. Erst nach dem senden eines Befehls wird eine Antwort zurück gegeben.

In Windows sieht das so aus:

Telnetkonsole auf.
Verbindung auf IP
Terminalfenster bleibt schwarz und der Cursor blinkt
z.B. Befehl MVUP eingeben und mit Enter bestätigen
Rückmeldung des Surroundsystems

Ich versuche mit folgendem Code die Verbindung aufzubauen:

sub remote_command_send {
    # Telnet
    my $telnet = Net::Telnet->new($ip_address);
    my @lines = $telnet->cmd("$remote_command");
    return "gesendet";
}

Das Problem ist, dass dieser Aufruf ein Login erwartet. Und der Aufruf in ein Timeout läuft.

Kann man die Loginabfrage deaktivieren und die Timeoutzeit beeinflussen?

Ich hoffe ihr könnt mir helfen.

[makki]

Ich vermute mal wir sprechen von einem Denon? Das Rad wurde schonmal erfunden, nur halbfertig und undokumentiert
Denon-Plugin

Dazu ein Socket (socat) Eintrag: siehe Anhang (#5 Denon). Klingt komplizierter als nötig ist aber unterm Strich mit dem socat dazwischen einfacher, weil man sich das ganze leidige Handling (reconnect, timeouts,...) spart.

Makki

[swiss]

Hallo makki
danke für die schnelle Antwort

JA. Es handelt sich um ein Denon. Aber geht das nicht einfacher? Wenn ich mir dein Plugin ansehe, bekomme ich gleich Kopfschmerzen. Ich möchte ungern den Doktor in angewanter PERL Programmierung machen.

Ist das die einzige Möglichkeit? Ich müsste ja dein Plugin komplet zerlegen und in mein Plugin einarbeiten. Vor allem die Befehlsübergabe in deinem Plugin ist mir noch nicht klar. Und das mit dem erstellen von soket im WG hab ich auch noch nie richtig verstanden.

[makki]

Wiegesagt, ganz perfekt ist das noch nicht aber vom Ansatz her..
Befehlübergabe ist "$Tippfaul" und $unfertig:
Also $base_ga ist hier 10/0/0
10/0/0 macht PWON/OFF (1Bit)
10/0/2 macht MVUP/DOWN (1Bit)
10/0/3 macht MV<WERT> setzen (1 byte)
usw.

Keine Angst, ein echter Perl-Programmierer würde in einer eigenen Klasse einen Hashref machen

Makki

[swiss]

Hmmm...

Sorry ich raff es nicht. Da ich in meinem Plugin schon die ganze Ansteuerung und Rückmeldegeschichte mit meinen KNX Tastern aufgebaut habe und mir nur noch das senden von Befehlen via Telnet fehlt, muss ich dein Plugin doch irgendwie in mein Plugin einbauen.

Ich tu mich momentan am schwersten mit solchen Kombiausdrücke:

          my @vals = qw/PWSTANDBY PWON/; #1bit on/off 
          syswrite($socket[$socknum], $vals[$msg{'data'}]."\r");

Also nochmal für mich als blutiger Anfänger...

my @vals = qw/PWSTANDBY PWON/; #1bit on/off Hier wird der zu übertragende Befehl für den Denon erzeugt. Wiso steht da qw/PWSTANDBY ? Hat das qw eine bestimmt Funktion? Wie müsste die Variabel beschrieben werden, wenn ich NUR PWSTANDBY senden möchte (ohne unterscheidung zwischen 0 oder 1)?

syswrite($socket[$socknum], $vals[$msg{'data'}]."\r");

Hier wird allem anschein nach der vorher erstellte Befehl für den Denon via socat gesendet. oder?

Sorry fürs blöde fragen aber ich versuche das Script zu verstehen.

[makki]

Blöde Fragen gibts nicht

Da ich in meinem Plugin schon die ganze Ansteuerung und Rückmeldegeschichte mit meinen KNX Tastern aufgebaut habe und mir nur noch das senden

Dann sehen wir das ja hoffentlich bald

von Befehlen via Telnet fehlt

vergiss mal lieber das Telnet, da wirst Du nicht froh werden.. Effizient offenhalten ohne ständige Timeout-Probleme Der Denon mag auch keine mehreren connections etc.pp., ist ja nur ein kleiner Microcontroller ohne robusten, gescheiten IP-Stack (ich spreche aus Erfahrung glaube ich..)

          my @vals = qw/PWSTANDBY PWON/; #1bit on/off

ist dasselbe wie
my @vals; # ein Array
$vals[0] = "PWSTANDBY"; # dem array in 0 den Wert zuweisen
$vals[1] = "PWON"; # ...
Per Inhalt des Telegramms wird nun auswählt ob eben der String PWSTANDBY oder PWON rausgeschrieben wird.

Wie müsste die Variabel beschrieben werden, wenn ich NUR PWSTANDBY senden möchte (ohne unterscheidung zwischen 0 oder 1)?

syswrite($socket[$socknum], "PWSTANDBY\r");
oder
syswrite($socket[$socknum], $vals[0]."\r");

Makki

[swiss]

OK. Danke. Ich glaube ich hab zumindest das Script verstanden...

Dann sehen wir das ja hoffentlich bald

Klar doch. Ich will ja auch meinen Beitrag leisten Wenn es dann mal lüpt, muss ich es nur nochmals etwas nachbessern, da es momentan relativ chaotisch ist.

Nun hab ich aber noch ein Problem. Leider passiert weiterhin nix, wenn ich einen Befehl per socat versenden will.

Das könnte damit zusammen hangen, dass ich von Socat 0 Ahnung habe. Ist es normal im WG unter "Socketverbindungen" die Ampel auf ROT steht? Und das Zusammenspiel der Socketnummern hab ich auch noch nicht verstanden. Gibt's dazu ein Nachschlagewerk?

[makki]

Nun hab ich aber noch ein Problem. Leider passiert weiterhin nix, wenn ich einen Befehl per socat versenden will.
..
Ist es normal im WG unter "Socketverbindungen" die Ampel auf ROT steht?

Nein, da muss der laufende socat-Prozess stehen sonst stimmt was nicht.
Der Denon ist ziemlich zimperlich, also z.B. nicht mehrere Verbindungen offenhaben (altes Plugin?) -> im Zweifel den wiregated unter Status durchstarten, auf der ssh-Konsole mit

netstat -anp | grep <DENON-IP>

prüfen

Zum obigen Screenshot: das ist nichts anderes als ein "TCP-UDP-Umsetzer"
172.17.2.89 ist die IP des Denon, :23 der Telnet-Port, 50105/UDP der Port zum empfangen, 50106 zum senden (aus Sicht des Plugins)

Makki

[swiss]

Danke makki

Ich hab nun den Fehler gefunden. Ich habe in der Socketverbindung nach der IP des Denon den Telnetport vergessen Nun steht die Ampel auf Grün und die Ansteureung funktioniert Und nun hab ich auch das Prinzip der Socketverbindungen verstanden. cool. Nur die Optionen hab ich noch nicht verstanden aber das finde ich schon noch heraus.

Nochmals danke für deine Geduld und Hilfe.

[swiss]

Und schon kommt das nächste Problem

Nachdem nun die Steuerung ansich funktioniert, bin ich an der Optimierung des Codes. Und wie das hald bei mir so ist. Sobald ich den Code optimieren möchte geht erstmal nix mehr...

Nun zu mienem Problem.

Ich möchte das senden der Befehle in eine eigene Subroutine auslagern. Das Problem ist, dass ich mit dem Aufruf der Subroutine einen Wert übergeben möchte.

Der Aufruf sieht im Moment so aus:

my $return_value2 = command_senden("SAT");

Die Subroutine selbst sieht so aus:

sub command_senden{
    (my $befehl) = @_;
    my $command = $denon_befehle{$befehl};
    syswrite($socket[$socknum], $command);
    return "denon send: $command";
}

Das Problem ist, dass scheinbar der Wert, den ich mit dem Aufruf übergebe nicht verarbeitet wird. Nur finde ich den Fehler nicht

[makki]

[QUOTE=swiss;163725]

sub command_senden{
    (my $befehl) = @_;
...

Ich würde jetzt mal instinktiv sagen
my ($befehl) = @_;
oder
my $befehl = shift;

Makki

P.S.: ich habe eben das mit der Dreambox-Meldung so gemacht wie ich das eher machen würde Da kommt auch eine sub vor..

P.P.S: soclhe Sachen probiere ich übrigens auch immer erst sep. in einem 5-Zeiler Perl-script weil die Wege von Perl sind manchmal unergründlich..

[swiss]

So. Das Script läuft und wurde etwas aufgeräumt. Naja mein Programmierstiel ist nicht so toll also bitte nicht für die vielen IF abfragen schlagen. Die Performanc ist auch nicht so schlecht. Innerhalb einer Sekunde sind im Normalfall alle Zustands-LED's aktualisiert (auch bei Steuerung über die FB) und die Befehle weden relativ zügig ausgeführt.

@makki: Wie funktioniert das in SF, wenn ich den Quelltext erstmal als BETA einstellen möchte, und daran später noch weitere Veränderungen vornehmen möchte, bis diese Version als STABLE veröffentlicht werden kann?

[makki]

Naja das ist momentan bzgl. der Plugins eher rudimentär organisiert: Wenns ein Plugin gibt wird eingecheckt - erstmal mehr der grundlegenden Übersicht halber. Wenn man eins braucht holt man es sich ab, wenns was aktuelleres gibt schiebt man es hoch.

Aber deswegen hab ichs auf SF gelegt: jeder soll mitmachen können: Account anlegen, schreibrechte erfragen, fertig (oder ich checke es ein)

Makki

[swiss]

Ich habe auf SF einen account nur wie man damit das aktuelle Plugin eincheckt weiss ich noch nicht. Kann aber eigentlich auch nicht schwierig sein. oder? Kriegt das ein Laie gebacken?

[makki]

Denke schon
Je nach präferiertem OS einen SVN-Client holen (Tourtoise SVN oder eben apt-get install subversion)
betreffenden Verzeichnis auschecken:
svn co https://openautomation.svn.sourcefor...plugin/generic mylocalplugins
.. reinkopieren
svn add MeinNeuesPlugin
svn ci -m "Beschreibung meines neuen Plugins"

Makki