From 8bcfba2f3f5ad3a90e2a696e6a28cd3cde5427e8 Mon Sep 17 00:00:00 2001 From: parixx <> Date: Tue, 21 Aug 2012 20:16:35 +0000 Subject: [PATCH] Removed Debug Code git-svn-id: https://svn.fhem.de/fhem/trunk@1808 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/95_PachLog.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/95_PachLog.pm b/fhem/FHEM/95_PachLog.pm index 3c861d466..4186b5d76 100644 --- a/fhem/FHEM/95_PachLog.pm +++ b/fhem/FHEM/95_PachLog.pm @@ -71,7 +71,7 @@ sub PachLog_Define($@) # X-API-Key steht im DEF %defs{}{DEF} # Alternativ nach $defs{}{XAPIKEY} my($package, $filename, $line, $subroutine) = caller(3); - Log 0 , "PachLog_Define => $package: $filename LINE: $line SUB: $subroutine \n"; + # Log 0 , "PachLog_Define => $package: $filename LINE: $line SUB: $subroutine \n"; Log 5, Dumper(@_) . "\n"; return "Unknown argument count " . int(@a) . " , usage set dataset value or set delete dataset" if(int(@a) != 1); return undef; @@ -183,7 +183,7 @@ sub PachLog_Notify ($$) $feed{$feednr}{$r}{VAL} = &ReadingToNumber($i,$ll) ; } -# Log $ll, "PACHLOG => dumper(FEED) => " .Dumper(%feed); + # Log $ll, "PACHLOG => dumper(FEED) => " .Dumper(%feed); # CVS-Data my @cvs = (); @@ -224,7 +224,7 @@ sub PachLog_Notify ($$) # Ueberpruefen wir, ob alles okay war: if ($res->is_success()) { - Log 0,("PACHLOG => Update[" . $t ."]: " . $cvs_data . " >> SUCCESS\n"); + Log 5,("PACHLOG => Update[" . $t ."]: " . $cvs_data . " >> SUCCESS\n"); # Time setzten $defs{$d}{READINGS}{$t}{TIME} = TimeNow(); }