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

[<dpe...@us...>]

Revision: 1123
          http://openautomation.svn.sourceforge.net/openautomation/?rev=1123&view=rev
Author:   dpesch01
Date:     2012-11-11 10:44:10 +0000 (Sun, 11 Nov 2012)
Log Message:
-----------
forward deklaration f?\195?\188r groupaddress als alternative zur Klammerschreibweise + defined Pr?\195?\188fung f?\195?\188r transmit

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

Modified: wiregate/plugin/generic/Logikprozessor.pl
===================================================================
--- wiregate/plugin/generic/Logikprozessor.pl	2012-11-10 22:19:24 UTC (rev 1122)
+++ wiregate/plugin/generic/Logikprozessor.pl	2012-11-11 10:44:10 UTC (rev 1123)
@@ -50,6 +50,8 @@
 my $systemtime=time();
 my $date=sprintf("%02d/%02d",$month,$day_of_month);
 
+sub groupaddress;
+
 # Konfigurationsfile einlesen
 my $eibd_backend_address='1.1.254';
 my %logic=();
@@ -142,9 +144,12 @@
 	}
 
 	# transmit-Adresse abonnieren
-	my $transmit=groupaddress $logic{$t}{transmit};
-	$plugin_subscribe{$transmit}{$plugname}=1;
-	plugin_log($plugname, "\$logic{$t}: Transmit-GA $transmit nicht in %eibgaconf gefunden") if $debug && !exists $eibgaconf{$transmit};
+	if (defined($logic{$t}{transmit}))
+	{
+    my $transmit=groupaddress $logic{$t}{transmit};
+    $plugin_subscribe{$transmit}{$plugname}=1;
+    plugin_log($plugname, "\$logic{$t}: Transmit-GA $transmit nicht in %eibgaconf gefunden") if $debug && !exists $eibgaconf{$transmit};
+  }
 
 	# Zaehlen und Logeintrag
 	$count++;

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