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

[<j-...@us...>]

Revision: 422
          http://openautomation.svn.sourceforge.net/openautomation/?rev=422&view=rev
Author:   j-n-k
Date:     2011-09-20 15:49:14 +0000 (Tue, 20 Sep 2011)
Log Message:
-----------
Commit Fensterstatus Plugin

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

Added: wiregate/plugin/generic/Fensterstatus.pl
===================================================================
--- wiregate/plugin/generic/Fensterstatus.pl	                        (rev 0)
+++ wiregate/plugin/generic/Fensterstatus.pl	2011-09-20 15:49:14 UTC (rev 422)
@@ -0,0 +1,42 @@
+#
+# Fensterstatus v0.2
+#
+# by JNK, 2011-09-19
+
+
+my @Fenster_GA = ('7/7/7', '7/7/8'); # hier alle Fenster-Einzel-GA
+my $Sammel_GA = '7/7/9'; # hier die Sammel-GA
+my $zustand_geschlossen = 01;    # auf richtige polarit\xE4t achten!
+my $zustand_offen = 00;
+
+ 
+# Flossen weg, der Rest geht automatisch
+$plugin_info{$plugname.'_cycle'} = 0; # nur bei Telegramm aufrufen
+
+if (($msg{'apci'} eq 'A_GroupValue_Write') && (grep {$_ eq $msg{'dst'};} @Fenster_GA)) {
+   # Telegramm auf einer Einzel-GA erhalten
+   my $status = $zustand_geschlossen; # mit geschlossen anfangen
+   my $old_status = $plugin_info{$plugname.'_oldstatus'};
+   foreach my $GA (@Fenster_GA) {
+     if (knx_read($GA, 0, 1) == $zustand_offen) { # da war eine 'offen', also Status auf 1 setzen
+       $status = $zustand_offen;
+       last;
+     }
+   }
+   if ($old_status != $status){ #
+       knx_write($Sammel_GA, $status, 1); # Status hat sich geaendert, senden
+       $plugin_info{$plugname.'_oldstatus'} = $status; # neuen Status speichern
+   }
+   
+   return 'Sent Value'.$status;
+}
+
+# keine Telegramme, also Init
+
+foreach my $GA (@Fenster_GA) {  # an allen Fenster-Einzel-GA anmelden
+    $plugin_subscribe{$GA}{$plugname} = 1; 
+}
+# bis zum Beweis des Gegenteils sind alle Fenster zu
+$plugin_info{$plugname.'_oldstatus'} = $zustand_geschlossen;
+
+return 'Init';
\ No newline at end of file


Property changes on: wiregate/plugin/generic/Fensterstatus.pl
___________________________________________________________________
Added: svn:executable
   + *

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