70_WS3600.pm - fixed: annoying warnings in Loglevel 4 and 5

described in http://forum.fhem.de/index.php/topic,20859.0.html

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5189 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
2014-03-10 18:20:18 +00:00
parent c9fd2d67dc
commit 8e272182d8

View File

@@ -269,7 +269,10 @@ WS3600_Read($)
$inputline =~ s/\s+$//;
my ($rawreading, $val, $val2) = split(/ /, $inputline);
if(defined($rawreading)) {
Log3 $name, 4, "WS3600(Dbg): $name read $inputline|$rawreading|$val|$val2";
my $logmsg = "WS3600(Dbg): $name read $inputline|$rawreading|$val";
$logmsg .= "|$val2" if(defined($val2));
Log3 $name, 4, $logmsg;
# Log3 $name, 4, "WS3600(Dbg): $name read $inputline|$rawreading|$val|$val2";
if(defined($TranslatedCodes{$rawreading})) {
$reading = $TranslatedCodes{$rawreading};
readingsBulkUpdate($hash,$reading, $val);