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

[<pf...@us...>]

Revision: 820
          http://openautomation.svn.sourceforge.net/openautomation/?rev=820&view=rev
Author:   pfry
Date:     2012-05-15 06:23:03 +0000 (Tue, 15 May 2012)
Log Message:
-----------

Garbage Collection bereinigt plugin_info und plugin_subscribe um Eintraege fuer Plugins, die gar nicht existieren. USE AT YOUR OWN RISK!

Modified Paths:
--------------
    wiregate/plugin/generic/MissGoogle.pl
    wiregate/plugin/generic/conf.d/Logikprozessor.conf

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

Added: wiregate/plugin/generic/Garbage_Collection.pl
===================================================================
--- wiregate/plugin/generic/Garbage_Collection.pl	                        (rev 0)
+++ wiregate/plugin/generic/Garbage_Collection.pl	2012-05-15 06:23:03 UTC (rev 820)
@@ -0,0 +1,38 @@
+######################
+# Garbage Collection #
+######################
+# Wiregate-Plugin
+# (c) 2012 Fry under the GNU Public License
+
+# $plugin_info{$plugname.'_cycle'}=0; return 'deaktiviert';
+
+my $retval='';
+chdir "/etc/wiregate/plugin/generic";
+
+# Cleanup plugin_subscribe
+my @plugins=<*.pl>; 
+my $valid=join "|", map quotemeta, @plugins;
+for my $ga (keys %plugin_subscribe)
+{
+   my @delme=grep !/^($valid)/, keys %{$plugin_subscribe{$ga}};
+   for my $v (@delme)
+   {
+      delete $plugin_subscribe{$ga}{$v};
+      $retval.=$ga.'->'.$v.', ';
+   }
+}
+
+# Cleanup plugin_info
+push @plugins, "conf.d";
+my $valid=join "|", map quotemeta, @plugins;
+my @delme=grep !/^($valid)/, keys %plugin_info;
+for my $v (@delme)
+{
+    delete $plugin_info{$v};
+    $retval.=$v.', ';
+}
+
+$plugin_info{$plugname.'_cycle'}=1000;
+
+return $retval ? ('Geloescht: '.$retval) : undef;
+

Modified: wiregate/plugin/generic/MissGoogle.pl
===================================================================
--- wiregate/plugin/generic/MissGoogle.pl	2012-05-15 00:15:08 UTC (rev 819)
+++ wiregate/plugin/generic/MissGoogle.pl	2012-05-15 06:23:03 UTC (rev 820)
@@ -1,12 +1,15 @@
 #!/usr/bin/perl -w
 
+# Ansagedateien fuer das Wiregate-Plugin Ansagen.pl in /var/lib/mpd/music/Ansagen schreiben
+# Quelle fuer die Dateien ist Google
+
 use strict;
 
 system "mkdir", "-p", "/var/lib/mpd/music/Ansagen";
 chdir "/var/lib/mpd/music/Ansagen";
 
 my %text=(
-    "./Achtung, es wurde ein Einbruch detektiert. Die Polizei wird automatisch benachrichtigt.wav"=>"Achtung, es wurde ein Einbruch detektiert. Die Polizei wird automatisch benachrichtigt",
+    "./Achtung Einbruch.wav"=>"Achtung Einbruch Verlassen Sie sofort das Haus",
     "./AufWiedersehen.wav"=>"Auf Wiedersehen",
     "./Tschuess.wav"=>"tschuess",
     "./Ciao.wav"=>"tschau",
@@ -45,7 +48,8 @@
     "./Personen/Lynn.wav"=>"Lynn",
     "./Personen/Michael.wav"=>"Michael",
     "./Personen/Nils.wav"=>"Nils",
-    "./Personen/Rita.wav"=>"Rita",
+    "./Personen/Rita.wav"=>"Ritah",
+    "./Personen/Jule.wav"=>"Jule",
     "./Personen/Tanja.wav"=>"Tanja",
     "./Personen/Uta.wav"=>"Uta",
     "./Personen/Wigbert.wav"=>"Wigbert",
@@ -123,6 +127,8 @@
     "./Zahlen/an.wav"=>"an",
     "./Zahlen/auf.wav"=>"auf",
     "./Zahlen/aus.wav"=>"aus",
+    "./Zahlen/ab.wav"=>"ab",
+    "./Zahlen/stop.wav"=>"stop",
     "./Zahlen/c0.wav"=>"Null",
     "./Zahlen/c1000.wav"=>"tausend",
     "./Zahlen/c100.wav"=>"hundert",
@@ -218,7 +224,21 @@
     "./Zeiten/Minuten.wav"=>"Minuten",
     "./Zeiten/Sekunden.wav"=>"Sekunden",
     "./Zeiten/Stunden.wav"=>"Stunden",
-    "./Zeiten/Uhr.wav"=>"Uhr");
+    "./Zeiten/Uhr.wav"=>"Uhr",
+    "./Warnung/keine_Meldung.wav"=>"keine Meldung",
+    "./Warnung/Hinweis.wav"=>"Hinweis",
+    "./Warnung/Vorwarnung.wav"=>"Vorwarnung",
+    "./Warnung/Warnung.wav"=>"Warnung",
+    "./Warnung/Gefahr.wav"=>"Gefahr",
+    "./Warnung/Gefahr_hoch.wav"=>"Gefahr hoch",
+    "./Unwetter/Gewitter.wav"=>"Gewitter",
+    "./Unwetter/Glatteis.wav"=>"Glatteis",
+    "./Unwetter/Regen.wav"=>"Regen",
+    "./Unwetter/Schnee.wav"=>"Schnee",
+    "./Unwetter/Sturm.wav"=>"Sturm",
+    "./Unwetter/Temperatur.wav"=>"Temperatur",
+    "./Unwetter/Strassenglaette.wav"=>"Strassenglaette",
+);
 
 for my $f (keys %text)
 {

Modified: wiregate/plugin/generic/conf.d/Logikprozessor.conf
===================================================================
--- wiregate/plugin/generic/conf.d/Logikprozessor.conf	2012-05-15 00:15:08 UTC (rev 819)
+++ wiregate/plugin/generic/conf.d/Logikprozessor.conf	2012-05-15 06:23:03 UTC (rev 820)
@@ -28,9 +28,7 @@
     # werden hier gar nicht gebraucht.
 
     # 5. Hier eine "Treppenlichtfunktion". Auf jeden Schreibzugriff auf die receive-Adresse wird 10min spaeter eine 0 an 
-    # die transmit-Adresse (hier gleich) geschickt. Verzoegert wird uebrigens nur das Senden, nicht das Ausfuehren der 
-    # translate-Routine. Neu ist hier der "delay"-Parameter, ausserdem der Spezialfall, dass translate einfach eine Konstante als
-    # Rueckgabewert spezifiziert.
+    # die transmit-Adresse (hier gleich) geschickt. 
     stair => { receive=>'1/2/9', transmit=>'1/2/9', delay=>600, translate => 0, },
     # Verzoegert wird uebrigens nur das Senden, nicht das Ausfuehren der translate-Routine. 
     # Neu ist hier der "delay"-Parameter, ausserdem der Spezialfall, dass translate einfach eine Konstante 
@@ -110,3 +108,6 @@
     # in einen absoluten Wert umgewandelt   
     ); 
 
+
+
+

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