|
From: <pf...@us...> - 2012-05-15 06:23:11
|
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.
|