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

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

Revision: 2353
          http://sourceforge.net/p/openautomation/code/2353
Author:   pfry
Date:     2015-01-27 14:00:49 +0000 (Tue, 27 Jan 2015)
Log Message:
-----------
transmit_on_config hinzu

Modified Paths:
--------------
    wiregate/plugin/generic/Logikprozessor.pl

Modified: wiregate/plugin/generic/Logikprozessor.pl
===================================================================
--- wiregate/plugin/generic/Logikprozessor.pl	2015-01-25 12:02:03 UTC (rev 2352)
+++ wiregate/plugin/generic/Logikprozessor.pl	2015-01-27 14:00:49 UTC (rev 2353)
@@ -169,7 +169,7 @@
 
 	my @keywords=qw(receive fetch trigger transmit translate debug delay timer prowl eibd_cache reply_to_read_requests 
                          ignore_read_requests transmit_only_on_request recalc_on_request state transmit_changes_only
-                         execute_on_input_changes_only cool rrd transmit_on_startup followup prowl execute_only_if_input_defined);
+                         execute_on_input_changes_only cool rrd transmit_on_startup transmit_on_config followup prowl execute_only_if_input_defined);
 	my $keywords="(".join("|",@keywords).")";
 
 	for my $k (keys %{$logic{$t}})
@@ -441,11 +441,19 @@
 {
     for my $t (grep !/^(debug$|_)/, keys %{$logic})
     {
-	next unless $logic->{$t}{transmit_on_startup};
-	followup({$t=>0});
+	followup({$t=>0}) if $logic->{$t}{transmit_on_startup};
     }
 }
 
+# Das Gleiche fuer transmit_on_config
+if($config_modified)
+{
+    for my $t (grep !/^(debug$|_)/, keys %{$logic})
+    {
+	followup({$t=>0}) if $logic->{$t}{transmit_on_config};
+    }
+}
+
 # Aufruf durch Bustraffic (d.h. eine Logik wird durch receive=>..., trigger=>... oder auch transmit=>... auf einer GA "getroffen"
 if($event=~/bus/)
 {

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