[Openautomation-svn] SF.net SVN: openautomation:[634] wiregate/plugin/generic

[<ma...@us...>]

Revision: 634
          http://openautomation.svn.sourceforge.net/openautomation/?rev=634&view=rev
Author:   makki1
Date:     2012-01-05 16:25:17 +0000 (Thu, 05 Jan 2012)
Log Message:
-----------
WireGat-Plugins: remove debug-code, cleanup, add maskver-Watchdog

Modified Paths:
--------------
    wiregate/plugin/generic/DMX-Plugin.pl
    wiregate/plugin/generic/EiWoMiSa
    wiregate/plugin/generic/RFID-Leser
    wiregate/plugin/generic/Taupunkt.pl

Added Paths:
-----------
    wiregate/plugin/generic/EIB-Watchdog_maskver

Modified: wiregate/plugin/generic/DMX-Plugin.pl
===================================================================
--- wiregate/plugin/generic/DMX-Plugin.pl	2012-01-05 13:32:10 UTC (rev 633)
+++ wiregate/plugin/generic/DMX-Plugin.pl	2012-01-05 16:25:17 UTC (rev 634)
@@ -1,5 +1,5 @@
 # Plugin DMX-Gateway
-# Version: 0.3 2011-05-28
+# Version: 0.4 2012-01-05
 # Ben\xF6tigt DMX USB-Interface
 
 ##################
@@ -44,12 +44,6 @@
 
 # Hauptverarbeitung
 if (!$socket[$socknum]) { # socket erstellen
-    if (defined $socket[$socknum]) { #debug
-        if ($socket[$socknum]->opened) { $socket[$socknum]->close(); }
-        undef $socket[$socknum];
-    }  #debug      my $dgram = sprintf("C%03dL%03d\r\n",$dmxchan,hex($msg{'data'}));
-
-    $socksel->remove($socket[$socknum]);
     $socket[$socknum] = IO::Socket::INET->new(LocalPort => $dmx_recv_port,
                               Proto => "udp",
                               LocalAddr => $dmx_recv_ip,

Added: wiregate/plugin/generic/EIB-Watchdog_maskver
===================================================================
--- wiregate/plugin/generic/EIB-Watchdog_maskver	                        (rev 0)
+++ wiregate/plugin/generic/EIB-Watchdog_maskver	2012-01-05 16:25:17 UTC (rev 634)
@@ -0,0 +1,21 @@
+### Variante maskver
+# Watchdog für KNX-Schnittstelle
+# relevant nur bei USB und evtl. FT1.2 !
+
+### Config physikalische Adresse - maskver muss lesbar sein!
+my $check_pa = "1.1.211";
+my $check_time = 120;
+### ENDE config
+
+# Eigenen Aufruf-Zyklus setzen
+$plugin_info{$plugname.'_cycle'} = $check_time;
+
+my $result=system("maskver local:/tmp/eib $check_pa");
+if ($result != 0) {
+	my $dummy = `/etc/init.d/eibd restart`;
+	return "EIB-Lesefehler!";
+} 
+
+return 0;
+
+

Modified: wiregate/plugin/generic/EiWoMiSa
===================================================================
--- wiregate/plugin/generic/EiWoMiSa	2012-01-05 13:32:10 UTC (rev 633)
+++ wiregate/plugin/generic/EiWoMiSa	2012-01-05 16:25:17 UTC (rev 634)
@@ -1,5 +1,5 @@
 # Plugin Eiwomisa RGB DMX-Controller
-# Version: 0.1 2011-01-21
+# Version: 0.11 2012-01-05
 # Benötigt Eiwomisa RGB DMX Controller und socat Eintrag für USB-RS232 Wandler
 
 ##################
@@ -33,11 +33,6 @@
 
 # Hauptverarbeitung
 if (!$socket[$socknum]) { # socket erstellen
-    if (defined $socket[$socknum]) { #debug
-        if ($socket[$socknum]->opened) { $socket[$socknum]->close(); }
-        undef $socket[$socknum];
-    }  #debug
-    $socksel->remove($socket[$socknum]);
     $socket[$socknum] = IO::Socket::INET->new(
                               Proto => "udp",
                               PeerPort  => $dmx_send_port,

Modified: wiregate/plugin/generic/RFID-Leser
===================================================================
--- wiregate/plugin/generic/RFID-Leser	2012-01-05 13:32:10 UTC (rev 633)
+++ wiregate/plugin/generic/RFID-Leser	2012-01-05 16:25:17 UTC (rev 634)
@@ -1,5 +1,5 @@
 # Plugin R.S-Systems RFID-Reader to KNX
-# Version: 0.2 2010-10-02
+# Version: 0.21 2012-01-05
 # Ben\xF6tigt 
 # - RSS RFID-Reader an einem USB-Seriell-Wandler
 # - Eintrag unter Socketverbindungen (socat)
@@ -27,11 +27,6 @@
 # Hauptverarbeitung
 # or ($fh and eof($socket[$socknum]))
 if (!$socket[$socknum]) { # socket erstellen
-    if (defined $socket[$socknum]) { #debug
-        if ($socket[$socknum]->opened) { $socket[$socknum]->close(); }
-        undef $socket[$socknum];
-    }  #debug
-    $socksel->remove($socket[$socknum]);
     $socket[$socknum] = IO::Socket::INET->new(LocalPort => $recv_port,
                               Proto => "udp",
                               LocalAddr => $recv_ip

Modified: wiregate/plugin/generic/Taupunkt.pl
===================================================================
--- wiregate/plugin/generic/Taupunkt.pl	2012-01-05 13:32:10 UTC (rev 633)
+++ wiregate/plugin/generic/Taupunkt.pl	2012-01-05 16:25:17 UTC (rev 634)
@@ -1,4 +1,8 @@
 # Plugin zur Taupunktberechnung
+# *** ACHTUNG *** 
+# Dieses Plugin ist im Prinzip obsolet, da Taupunkt seit PL29 direkter Bestandteil ist 
+# *** ACHTUNG *** 
+# 
 # Details zur N\xE4herungsformel unter http://www.wettermail.de/wetter/feuchte.html
 # Das Plugin geht davon aus, das Temperatur&Luftfeuchte zyklisch 
 # auf den Bus geschrieben werden und/oder lesbar sind (Lese-Flag gesetzt)

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