[Openautomation-svn] SF.net SVN: openautomation:[627] wiregate/plugin/generic/Szenen.pl

[<da...@us...>]

Revision: 627
          http://openautomation.svn.sourceforge.net/openautomation/?rev=627&view=rev
Author:   daviid5
Date:     2012-01-02 23:14:04 +0000 (Mon, 02 Jan 2012)
Log Message:
-----------
First Beta-Version of simple scene plugin

Added Paths:
-----------
    wiregate/plugin/generic/Szenen.pl

Added: wiregate/plugin/generic/Szenen.pl
===================================================================
--- wiregate/plugin/generic/Szenen.pl	                        (rev 0)
+++ wiregate/plugin/generic/Szenen.pl	2012-01-02 23:14:04 UTC (rev 627)
@@ -0,0 +1,28 @@
+# Beta-Version
+#
+#
+# Plugin f\xFCr Szenen
+# ga1 = GA
+# wert = Wert der auf die GA gesendet werden soll (DPT ist durch import der GAs aus der ETS festzulegen
+# Aufbau moeglichst so, dass man unterhalb der Definitionen nichts aendern muss!
+
+
+my $trigger_ga = '8/2/0';  # triggert die Szene mit einer 1 (DPT 1)
+$plugin_subscribe{$trigger_ga}{$plugname} = 1;
+
+my @GAs;
+push @GAs, { name => "Wohnzimmer TV", ga1 => "1/1/35", wert => 1 };
+push @GAs, { name => "Wohnzimmer Kamin", ga1 => "1/1/11", wert => 0 };
+push @GAs, { name => "Wohnzimmer T\xFCr", ga1 => "1/1/2", wert => 0 };
+push @GAs, { name => "Wohnzimmer Mitte", ga1 => "1/1/38", wert => 0 };
+push @GAs, { name => "Wohnzimmer Fenster", ga1 => "1/1/34" , wert => 0 };
+
+#push @GAs, { name => "Wohnzimmer TV dimmen", ga1 => "1/1/37" , wert => 50};
+
+
+if ($msg{'apci'} eq "A_GroupValue_Write" && $msg{'dst'} eq $trigger_ga && defined $msg{'value'} && $msg{'value'} == "1" ) {
+
+	foreach my $element (@GAs) {
+		knx_write($element->{ga1}, $element->{wert}, 1.001);	
+	}
+}
\ No newline at end of file

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.