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

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

Revision: 804
          http://openautomation.svn.sourceforge.net/openautomation/?rev=804&view=rev
Author:   pfry
Date:     2012-05-10 08:54:24 +0000 (Thu, 10 May 2012)
Log Message:
-----------
KLeinerer Bugfix betr. debug-Flag und Name des Konfigfiles, wenn ".pl" im Skriptnamen fehlt

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

Modified: wiregate/plugin/generic/Logikprozessor.pl
===================================================================
--- wiregate/plugin/generic/Logikprozessor.pl	2012-05-10 07:49:18 UTC (rev 803)
+++ wiregate/plugin/generic/Logikprozessor.pl	2012-05-10 08:54:24 UTC (rev 804)
@@ -49,7 +49,8 @@
 
 # Konfigurationsfile einlesen
 my %logic=();
-my $conf="/etc/wiregate/plugin/generic/conf.d/$plugname"; $conf=~s/\.pl$/.conf/;
+my $conf="/etc/wiregate/plugin/generic/conf.d/$plugname"; 
+$conf.='.conf' unless $conf=~s/\.pl$/.conf/;
 open FILE, "<$conf" || return "no config found";
 $/=undef;
 my $lines = <FILE>;
@@ -92,6 +93,8 @@
 	# Debuggingflag gesetzt
 	my $debug = $logic{debug} || $logic{$t}{debug}; 
 
+	next if $t eq 'debug';
+
 	# Eintrag pruefen
 	if(defined $logic{$t}{receive} && ref $logic{$t}{receive} && ref $logic{$t}{receive} ne 'ARRAY')
 	{

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