Menu
▾
▴
[Openautomation-svn] SF.net SVN: openautomation:[368] wiregate/plugin/generic/ denon_steuerung_knx.pl
|
From: <sw...@us...> - 2011-06-21 19:57:17
|
Revision: 368
http://openautomation.svn.sourceforge.net/openautomation/?rev=368&view=rev
Author: swiss1
Date: 2011-06-21 19:57:10 +0000 (Tue, 21 Jun 2011)
Log Message:
-----------
Denon => KNX Plugin Version 0.1 BETA
Added Paths:
-----------
wiregate/plugin/generic/denon_steuerung_knx.pl
Added: wiregate/plugin/generic/denon_steuerung_knx.pl
===================================================================
--- wiregate/plugin/generic/denon_steuerung_knx.pl (rev 0)
+++ wiregate/plugin/generic/denon_steuerung_knx.pl 2011-06-21 19:57:10 UTC (rev 368)
@@ -0,0 +1,301 @@
+# Plugin zur Multimediasteuerung \xFCber einen 8fach Tastsensor
+# Version 0.1 20.06.2011 BETA
+# Copyright: swiss (http://knx-user-forum.de/members/swiss.html)
+# Die Vorlage f\xFCr die Daten\xFCbertragung via socat stammt von makki (http://knx-user-forum.de/members/makki.html)
+# Aufbau m\xF6glichst so, dass man unterhalb der Einstellungen nichts ver\xE4ndern muss!
+#
+#
+#######################
+### Wichtige Infos: ###
+#######################
+#
+# Im WG ist eine Socketverbindung mit folgenden Parametern zu erstellen:
+# Name: z.B. Denon
+# Socket1: tcp-connect, Socket: IP_DES_DENON:23, Optionen: cr
+# Socket2: udp-datagram, Socket: localhost:50105, Optionen: bind=localhost:50106,reuseaddr
+#
+#
+# Damit die Steuerung des ON/OFF Tasters korrekt funktioniert, muss die GA die unter $ga_status_einaus angegeben wird auch als h\xF6hrende Adresse beim EIN/AUS Taster angegeben werden!
+#
+#
+
+####################
+###Einstellungen:###
+####################
+
+
+my $ga_einaus = '9/5/0'; #Hier die GA f\xFCr EIN/AUS eintragen (0=AUS, 1=EIN)
+my $ga_status_einaus = '9/5/30'; #Hier die R\xFCckmelde-GA f\xFCr die Statusled EIN/AUS eintragen (0=AUS, 1=EIN)
+
+my $ga_lautstaerke = '9/5/4'; #Hier die GA f\xFCr MAINZONE leiser/lauter eintragen (0=leiser, 1=lauter)
+my $ga_main_lauter = '9/5/5';
+my $ga_main_leiser = '9/5/6';
+
+my $ga_status_mute = '9/5/8'; #Hier die R\xFCckmelde-GA f\xFCr die Statusled Stummschaltung eintragen (0=AUS, 1=EIN)
+
+my $ga_umschalttaste = '9/1/5';
+my $ga_status_umschalttaste = '9/1/14';
+
+my $ga_kurzwahltaste1 = '9/1/6'; #Hier die GA f\xFCr die MEMORY-Taste 1 eintragen (1=abrufen)
+my $ga_kurzwahltaste2 = '9/1/7'; #Hier die GA f\xFCr die MEMORY-Taste 2 eintragen (1=abrufen)
+my $ga_kurzwahltaste3 = '9/1/8'; #Hier die GA f\xFCr die MEMORY-Taste 3 eintragen (1=abrufen)
+my $ga_kurzwahltaste4 = '9/1/9'; #Hier die GA f\xFCr die MEMORY-Taste 4 eintragen (1=abrufen)
+
+my $ga_status_kurzwahltaste1 = '9/1/10';
+my $ga_status_kurzwahltaste2 = '9/1/11';
+my $ga_status_kurzwahltaste3 = '9/1/12';
+my $ga_status_kurzwahltaste4 = '9/1/13';
+
+my $socknum = 118; # Eindeutige Nummer des Sockets +1
+
+
+#Diese Einstellungen k\xF6nnen normalerweise so belassen werden!
+my $send_ip = "localhost"; # Sendeport (UDP, siehe in Socket-Einstellungen)
+my $send_port = "50106"; # Sendeport (UDP, siehe in Socket-Einstellungen)
+my $recv_ip = "localhost"; # Empfangsport (UDP, siehe in Socket-Einstellungen)
+my $recv_port = "50105"; # Empfangsport (UDP, siehe in Socket-Einstellungen)
+
+######################
+##ENDE Einstellungen##
+######################
+
+use Time::HiRes qw(usleep nanosleep);
+
+my %denon_befehle = ("PWOFF" => "PWSTANDBY\r",
+ "PWON" => "PWON\r",
+ "MVDOWN" => "MVDOWN\r",
+ "MVUP" => "MVUP\r",
+ "SAT" => "SISAT/CBL\r",
+ "DVD" => "SIDVD\r",
+ "TV" => "SITV\r",
+ "NET" => "SINET/USB\r",
+ "CD" => "SICD\r",
+ "TUNER" => "SITUNER\r",
+ "IRADIO" => "SIIRADIO\r",
+ "DVR" => "SIDVR\r");
+
+# Eigenen Aufruf-Zyklus auf 1T setzen
+$plugin_info{$plugname.'_cycle'} = 600;
+# Zyklischer Aufruf nach restart und alle 600 sek., dient dem anmelden an die Gruppenadresse, einmalig (0) w\xFCrde in diesem Fall auch gen\xFCgen
+
+if (!$socket[$socknum]) { # socket erstellen
+ $socket[$socknum] = IO::Socket::INET->new(LocalPort => $recv_port,
+ Proto => "udp",
+ LocalAddr => $recv_ip,
+ PeerPort => $send_port,
+ PeerAddr => $send_ip,
+ ReuseAddr => 1
+ )
+ or return ("open of $recv_ip : $recv_port failed: $!");
+
+ $socksel->add($socket[$socknum]); # add socket to select
+
+ $plugin_socket_subscribe{$socket[$socknum]} = $plugname; # subscribe plugin
+ return "opened Socket $socknum";
+}
+
+if ($msg{'apci'} eq "A_GroupValue_Write"){
+ if ($msg{'dst'} eq $ga_einaus) {
+ if (knx_read($msg{'dst'},0,1) == 1){
+ my $return_value2 = command_senden('PWON');
+ }elsif (knx_read($msg{'dst'},0,1) == 0){
+ knx_write($ga_status_einaus,0,1);
+ $plugin_info{$plugname.'_status_quelle'} = 0;
+ my $return_value = rueckmeldung_led();
+ my $return_value2 = command_senden('PWOFF');
+ }
+ return;
+ } elsif ($msg{'dst'} eq $ga_main_lauter) {
+ if (knx_read($msg{'dst'},0,1) == 1){
+ do
+ {
+ my $return_value2 = command_senden('MVUP');
+ usleep(150000);
+ } until (knx_read($msg{'dst'},0,1) == 0);
+ return;
+ }
+ } elsif ($msg{'dst'} eq $ga_main_leiser) {
+ if (knx_read($msg{'dst'},0,1) == 1){
+ do
+ {
+ my $return_value2 = command_senden('MVDOWN');
+ usleep(150000);
+ } until (knx_read($msg{'dst'},0,1) == 0);
+ return;
+ }
+ } elsif ($msg{'dst'} eq $ga_lautstaerke) {
+ if (knx_read($msg{'dst'},0,1) == 1){
+ my $return_value2 = command_senden('MVUP');
+ }elsif (knx_read($msg{'dst'},0,1) == 0){
+ my $return_value2 = command_senden('MVDOWN');
+ }
+ return;
+ } elsif ($msg{'dst'} eq $ga_umschalttaste) {
+ if (knx_read($ga_status_einaus,0,1) == 1){ #Wenn der Verst\xE4rker eingeschaltet ist, dann reagiere auf Quellenwahl
+ if (knx_read($msg{'dst'},0,1) == 1){
+ knx_write($ga_status_umschalttaste,1,1);
+ $plugin_info{$plugname.'_status_umschaltung'} = 1;
+ }elsif (knx_read($msg{'dst'},0,1) == 0){
+ knx_write($ga_status_umschalttaste,0,1);
+ $plugin_info{$plugname.'_status_umschaltung'} = 0;
+ }
+ return;
+ }
+ } elsif ($msg{'dst'} eq $ga_kurzwahltaste1) {
+ if (knx_read($ga_status_einaus,0,1) == 1){ #Wenn der Verst\xE4rker eingeschaltet ist, dann reagiere auf Quellenwahl
+ if (knx_read($msg{'dst'},0,1) == 1){
+ if ($plugin_info{$plugname.'_status_umschaltung'} == 0) {
+ $plugin_info{$plugname.'_status_quelle'} = 1;
+ my $return_value2 = command_senden('SAT');
+ my $return_value = rueckmeldung_led();
+ return;
+ } elsif ($plugin_info{$plugname.'_status_umschaltung'} == 1){
+ $plugin_info{$plugname.'_status_quelle'} = 5;
+ my $return_value2 = command_senden('NET');
+ my $return_value = rueckmeldung_led();
+ return;
+ }
+ }
+ }
+ } elsif ($msg{'dst'} eq $ga_kurzwahltaste2) {
+ if (knx_read($ga_status_einaus,0,1) == 1){ #Wenn der Verst\xE4rker eingeschaltet ist, dann reagiere auf Quellenwahl
+ if (knx_read($msg{'dst'},0,1) == 1){
+ if ($plugin_info{$plugname.'_status_umschaltung'} == 0) {
+ $plugin_info{$plugname.'_status_quelle'} = 2;
+ my $return_value2 = command_senden('TV');
+ my $return_value = rueckmeldung_led();
+ return;
+ } elsif ($plugin_info{$plugname.'_status_umschaltung'} == 1){
+ $plugin_info{$plugname.'_status_quelle'} = 6;
+ my $return_value2 = command_senden('IRADIO');
+ my $return_value = rueckmeldung_led();
+ return;
+ }
+ }
+ }
+ } elsif ($msg{'dst'} eq $ga_kurzwahltaste3) {
+ if (knx_read($ga_status_einaus,0,1) == 1){ #Wenn der Verst\xE4rker eingeschaltet ist, dann reagiere auf Quellenwahl
+ if (knx_read($msg{'dst'},0,1) == 1){
+ if ($plugin_info{$plugname.'_status_umschaltung'} == 0) {
+ $plugin_info{$plugname.'_status_quelle'} = 3;
+ my $return_value2 = command_senden('DVD');
+ my $return_value = rueckmeldung_led();
+ return;
+ } elsif ($plugin_info{$plugname.'_status_umschaltung'} == 1){
+ $plugin_info{$plugname.'_status_quelle'} = 7;
+ my $return_value2 = command_senden('DVR');
+ my $return_value = rueckmeldung_led();
+ return;
+ }
+ }
+ }
+ } elsif ($msg{'dst'} eq $ga_kurzwahltaste4) {
+ if (knx_read($ga_status_einaus,0,1) == 1){ #Wenn der Verst\xE4rker eingeschaltet ist, dann reagiere auf Quellenwahl
+ if (knx_read($msg{'dst'},0,1) == 1){
+ if ($plugin_info{$plugname.'_status_umschaltung'} == 0) {
+ $plugin_info{$plugname.'_status_quelle'} = 4;
+ my $return_value2 = command_senden('CD');
+ my $return_value = rueckmeldung_led();
+ return;
+ } elsif ($plugin_info{$plugname.'_status_umschaltung'} == 1){
+ $plugin_info{$plugname.'_status_quelle'} = 8;
+ my $return_value2 = command_senden('TUNER');
+ my $return_value = rueckmeldung_led();
+ return;
+ }
+ }
+ }
+ }
+} elsif ($fh) { # incoming datagram
+ my $buf = <$fh>;
+ my $bufhex = unpack("H*",$buf);
+ chomp $buf;
+ my $fn = substr($buf,0,2);
+ my $fp = substr($buf,0,4);
+
+ if ($fp eq "PWON") {
+ knx_write($ga_status_einaus,1,1);
+ syswrite($socket[$socknum],"SI?\r");
+ return;
+ } elsif ($fp eq "PWST") {
+ knx_write($ga_status_einaus,0,1);
+ $plugin_info{$plugname.'_status_quelle'} = 0;
+ my $return_value = rueckmeldung_led();
+ return;
+ } elsif ($fp eq "MUON") {
+ knx_write($ga_status_mute,1,1);
+ return;
+ } elsif ($fp eq "MUOF") {
+ knx_write($ga_status_mute,0,1);
+ return;
+ } elsif ($fn eq "SI") {
+ if (knx_read($ga_status_einaus,0,1) == 0){
+ $plugin_info{$plugname.'_status_quelle'} = 0;
+
+ } else {
+ if ($buf eq "SISAT/CBL"){
+ $plugin_info{$plugname.'_status_quelle'} = 1;
+ } elsif ($buf eq "SITV") {
+ $plugin_info{$plugname.'_status_quelle'} = 2;
+ } elsif ($buf eq "SIDVD") {
+ $plugin_info{$plugname.'_status_quelle'} = 3;
+ } elsif ($buf eq "SICD") {
+ $plugin_info{$plugname.'_status_quelle'} = 4;
+ } elsif ($buf eq "SINET/USB") {
+ $plugin_info{$plugname.'_status_quelle'} = 5;
+ } elsif ($buf eq "SIIRADIO") {
+ $plugin_info{$plugname.'_status_quelle'} = 6;
+ } elsif ($buf eq "SIDVR") {
+ $plugin_info{$plugname.'_status_quelle'} = 7;
+ } elsif ($buf eq "SITUNER") {
+ $plugin_info{$plugname.'_status_quelle'} = 8;
+ } else {
+ $plugin_info{$plugname.'_status_quelle'} = 0;
+ }
+ }
+ my $return_value = rueckmeldung_led();
+ return;
+ } elsif ($fn eq "MV" and $buf !~ /^MVMAX/) { # MVMAX is undocumented?
+ # broken, just sends every 2, .5 isn't considered
+ return;
+ } else {
+ return;
+ }
+} else { # zyklischer Aufruf
+ # Plugin an Gruppenadresse "anmelden", hierdurch wird das Plugin im folgenden bei jedem eintreffen eines Telegramms auf die GA aufgerufen und der obere Teil dieser if-Schleife durchlaufen
+ $plugin_subscribe{$ga_einaus}{$plugname} = 1;
+ $plugin_subscribe{$ga_lautstaerke}{$plugname} = 1;
+ $plugin_subscribe{$ga_main_lauter}{$plugname} = 1;
+ $plugin_subscribe{$ga_main_leiser}{$plugname} = 1;
+ $plugin_subscribe{$ga_umschalttaste}{$plugname} = 1;
+ $plugin_subscribe{$ga_kurzwahltaste1}{$plugname} = 1;
+ $plugin_subscribe{$ga_kurzwahltaste2}{$plugname} = 1;
+ $plugin_subscribe{$ga_kurzwahltaste3}{$plugname} = 1;
+ $plugin_subscribe{$ga_kurzwahltaste4}{$plugname} = 1;
+}
+
+# Hier werden diverse Zust\xE4nde des Denon zyklisch abgefragt um den aktuellen Status auch anzeigen zu k\xF6nnen, wenn etwas \xFCber z.B. die FB ver\xE4ndert wird:
+syswrite($socket[$socknum],"PW?\r");
+syswrite($socket[$socknum],"MU?\r");
+syswrite($socket[$socknum],"SI?\r");
+return;
+
+#Hier werden die Status LED der Quellenwahltasten angesteuert
+sub rueckmeldung_led{
+ SELECT:{
+ if ($plugin_info{$plugname.'_status_quelle'} == 0){ knx_write($ga_status_umschalttaste,0,1); knx_write($ga_status_kurzwahltaste1,0,1); knx_write($ga_status_kurzwahltaste2,0,1); knx_write($ga_status_kurzwahltaste3,0,1); knx_write($ga_status_kurzwahltaste4,0,1); last SELECT; }
+ if ($plugin_info{$plugname.'_status_quelle'} == 1){ knx_write($ga_status_umschalttaste,0,1); knx_write($ga_status_kurzwahltaste1,1,1); knx_write($ga_status_kurzwahltaste2,0,1); knx_write($ga_status_kurzwahltaste3,0,1); knx_write($ga_status_kurzwahltaste4,0,1); last SELECT; }
+ if ($plugin_info{$plugname.'_status_quelle'} == 2){ knx_write($ga_status_umschalttaste,0,1); knx_write($ga_status_kurzwahltaste1,0,1); knx_write($ga_status_kurzwahltaste2,1,1); knx_write($ga_status_kurzwahltaste3,0,1); knx_write($ga_status_kurzwahltaste4,0,1); last SELECT; }
+ if ($plugin_info{$plugname.'_status_quelle'} == 3){ knx_write($ga_status_umschalttaste,0,1); knx_write($ga_status_kurzwahltaste1,0,1); knx_write($ga_status_kurzwahltaste2,0,1); knx_write($ga_status_kurzwahltaste3,1,1); knx_write($ga_status_kurzwahltaste4,0,1); last SELECT; }
+ if ($plugin_info{$plugname.'_status_quelle'} == 4){ knx_write($ga_status_umschalttaste,0,1); knx_write($ga_status_kurzwahltaste1,0,1); knx_write($ga_status_kurzwahltaste2,0,1); knx_write($ga_status_kurzwahltaste3,0,1); knx_write($ga_status_kurzwahltaste4,1,1); last SELECT; }
+ if ($plugin_info{$plugname.'_status_quelle'} == 5){ knx_write($ga_status_umschalttaste,1,1); knx_write($ga_status_kurzwahltaste1,1,1); knx_write($ga_status_kurzwahltaste2,0,1); knx_write($ga_status_kurzwahltaste3,0,1); knx_write($ga_status_kurzwahltaste4,0,1); last SELECT; }
+ if ($plugin_info{$plugname.'_status_quelle'} == 6){ knx_write($ga_status_umschalttaste,1,1); knx_write($ga_status_kurzwahltaste1,0,1); knx_write($ga_status_kurzwahltaste2,1,1); knx_write($ga_status_kurzwahltaste3,0,1); knx_write($ga_status_kurzwahltaste4,0,1); last SELECT; }
+ if ($plugin_info{$plugname.'_status_quelle'} == 7){ knx_write($ga_status_umschalttaste,1,1); knx_write($ga_status_kurzwahltaste1,0,1); knx_write($ga_status_kurzwahltaste2,0,1); knx_write($ga_status_kurzwahltaste3,1,1); knx_write($ga_status_kurzwahltaste4,0,1); last SELECT; }
+ if ($plugin_info{$plugname.'_status_quelle'} == 8){ knx_write($ga_status_umschalttaste,1,1); knx_write($ga_status_kurzwahltaste1,0,1); knx_write($ga_status_kurzwahltaste2,0,1); knx_write($ga_status_kurzwahltaste3,0,1); knx_write($ga_status_kurzwahltaste4,1,1); last SELECT; }
+ }
+}
+
+sub command_senden{
+ my $befehl = $_[0];
+ syswrite($socket[$socknum], $denon_befehle{$befehl});
+}
\ No newline at end of file
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
