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

[<vl...@us...>]

Revision: 423
          http://openautomation.svn.sourceforge.net/openautomation/?rev=423&view=rev
Author:   vlamers
Date:     2011-09-24 07:33:30 +0000 (Sat, 24 Sep 2011)
Log Message:
-----------
Plugin to control a garage door with 2 Reeds and 1 switch module

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

Added: wiregate/plugin/generic/Garagentor.pl
===================================================================
--- wiregate/plugin/generic/Garagentor.pl	                        (rev 0)
+++ wiregate/plugin/generic/Garagentor.pl	2011-09-24 07:33:30 UTC (rev 423)
@@ -0,0 +1,92 @@
+##########################################################
+
+#################################################################
+# do not change anything below, all config stays above
+#################################################################
+## GA\xB4s
+my $Garage_zu ='14/0/1';
+my $Garage_zu_rueck = '14/0/4';
+my $Garage_auf = '14/0/0';
+my $Garage_auf_rueck = '14/0/3';
+my $Garage_schalten = '14/0/6';
+
+
+# subscribe plugin and call it only when necessary, script will be activated if telegrams to the deffined GA are send.
+$plugin_subscribe{$Garage_zu}{$plugname} = 1;
+$plugin_subscribe{$Garage_auf}{$plugname} = 1;
+$plugin_subscribe{$Garage_zu_rueck}{$plugname} = 1;
+$plugin_subscribe{$Garage_auf_rueck}{$plugname} = 1;
+$plugin_info{$plugname.'_cycle'} = 0;
+
+
+
+ 
+ 
+ 
+## tor zu
+     if (($msg{'dst'} eq ($Garage_zu)) && ($msg{'apci'} eq 'A_GroupValue_Write'))
+     {
+      ## Status der GA\xB4s holen
+     my $status = knx_read($Garage_zu_rueck,0,1);
+   
+          if (($msg{'value'} == 01) && ($status == 00)) {
+         knx_write($Garage_schalten,1,1);
+          return "zu";
+          }
+          if (($msg{'value'} == 01) && ($status == 01)) {
+         knx_write($Garage_zu,0,1);
+          return "zu";
+          }
+    
+   else {
+          return;
+     }}
+# zu reset
+   if (($msg{'dst'} eq ($Garage_zu_rueck)) && ($msg{'apci'} eq 'A_GroupValue_Write'))  
+	{
+	my $garage_soll = knx_read($Garage_zu,0,1);
+	
+	 if (($msg{'data'} == 01) && ($garage_soll == 01)) {
+	 knx_write($Garage_zu ,0,1);
+	}
+	if (($msg{'data'} == 01) && ($garage_soll == 00)) {
+	 knx_write($Garage_schalten ,1,1);
+	}
+	
+	}
+
+## auf reset 
+	if (($msg{'dst'} eq ($Garage_auf_rueck)) && ($msg{'apci'} eq 'A_GroupValue_Write'))  
+	{
+	my $garage_soll = knx_read($Garage_auf,0,1);
+	
+	 if (($msg{'data'} == 01) && ($garage_soll == 01)) {
+	 knx_write($Garage_auf ,0,1);
+	}
+	if (($msg{'data'} == 01) && ($garage_soll == 00)) {
+	 knx_write($Garage_schalten ,1,1);}
+	 
+	}
+	
+## tor auf
+if (($msg{'dst'} eq ($Garage_auf)) && ($msg{'apci'} eq 'A_GroupValue_Write'))
+     {
+      ## Status der GA\xB4s holen
+     my $status = knx_read($Garage_auf_rueck,0,1);
+     
+     
+          if (($msg{'value'} == 01) && ($status == 00)) {
+         knx_write($Garage_schalten,1,1);
+          return "auf";
+          }
+          
+           if (($msg{'value'} == 01) && ($status == 01)) {
+         knx_write($Garage_auf,0,1);
+          return "auf";
+          }
+         
+      else {
+          return;
+     }
+     }
+   
\ No newline at end of file

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