|
From: <dpe...@us...> - 2012-11-11 10:44:16
|
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.
|