diff --git a/fhem/contrib/DS_Starter/93_DbLog.pm b/fhem/contrib/DS_Starter/93_DbLog.pm index 983b03f4e..1f1e35b0c 100644 --- a/fhem/contrib/DS_Starter/93_DbLog.pm +++ b/fhem/contrib/DS_Starter/93_DbLog.pm @@ -39,7 +39,7 @@ no if $] >= 5.017011, warnings => 'experimental::smartmatch'; # Version History intern by DS_Starter: my %DbLog_vNotesIntern = ( - "5.9.1" => "13.08.2023 possible use of alternative tables in _DbLog_plotData Forum:134547 ", + "5.9.1" => "14.08.2023 possible use of alternative tables in _DbLog_plotData Forum:134547 ", "5.9.0" => "16.05.2023 Server shutdown -> write cachefile if database connect can't be done during delayed shutdown ". "Forum: https://forum.fhem.de/index.php?topic=133599.0 ", "5.8.8" => "11.05.2023 _DbLog_ParseEvent changed default splitting, Forum: https://forum.fhem.de/index.php?topic=133537.0 ", @@ -247,13 +247,13 @@ sub DbLog_Define { if($DbLogMMDBI) { $err = "Perl module ".$DbLogMMDBI." is missing. On Debian you can install it with: sudo apt-get install libdbi-perl"; - Log3 ($name, 1, "DbLog $name - ERROR - $err"); + Log3 ($name, 1, "$name - ERROR - $err"); return "Error: $err"; } if ($storabs) { $err = "Perl module ".$storabs." is missing. On Debian you can install it with: sudo apt-get install libstorable-perl"; - Log3 ($name, 1, "DbLog $name - ERROR - $err"); + Log3 ($name, 1, "$name - ERROR - $err"); return "Error: $err"; } @@ -279,7 +279,7 @@ sub DbLog_Define { my $ret = DbLog_readCfg($hash); # read configuration data if ($ret) { # return on error while reading configuration - Log3($name, 1, "DbLog $name - Error while reading $hash->{CONFIGURATION}: '$ret' "); + Log3($name, 1, "$name - Error while reading $hash->{CONFIGURATION}: '$ret' "); return $ret; } @@ -379,7 +379,7 @@ sub DbLog_DelayedShutdown { 0; if ($delay_needed) { - Log3 ($name, 2, "DbLog $name - Wait for last database cycle due to shutdown ..."); + Log3 ($name, 2, "$name - Wait for last database cycle due to shutdown ..."); } @@ -427,7 +427,7 @@ sub DbLog_Attr { if ($aName =~ /^(traceHandles|noNotifyDev)$/xs) { my $msg = "$name - The attribute >$aName< is deprecated and is not set anymore."; - Log3 ($name, 1, "DbLog $name $msg"); + Log3 ($name, 1, "$name $msg"); return $msg; } @@ -765,7 +765,7 @@ sub _DbLog_setreopen { ## no critic "not used" DbLog_SBP_sendDbDisconnect ($hash); # an SBP if (!$prop) { - Log3 ($name, 3, "DbLog $name - Reopen requested"); + Log3 ($name, 3, "$name - Reopen requested"); if($hash->{HELPER}{REOPEN_RUNS}) { delete $hash->{HELPER}{REOPEN_RUNS}; @@ -786,7 +786,7 @@ sub _DbLog_setreopen { ## no critic "not used" delete $hash->{HELPER}{LONGRUN_PID}; my $ts = (split " ",FmtDateTime(gettimeofday()+$prop))[1]; - Log3 ($name, 2, "DbLog $name - Connection closed until $ts ($prop seconds)."); + Log3 ($name, 2, "$name - Connection closed until $ts ($prop seconds)."); DbLog_setReadingstate ($hash, "closed until $ts ($prop seconds)"); @@ -806,7 +806,7 @@ sub _DbLog_setrereadcfg { ## no critic "not used" my $hash = $paref->{hash}; my $name = $paref->{name}; - Log3 ($name, 3, "DbLog $name - Rereadcfg requested."); + Log3 ($name, 3, "$name - Rereadcfg requested."); my $ret = DbLog_readCfg($hash); return $ret if $ret; @@ -820,7 +820,7 @@ sub _DbLog_setrereadcfg { ## no critic "not used" my $rst = DbLog_SBP_sendConnectionData ($hash); # neue Verbindungsdaten an SubProzess senden if (!$rst) { - Log3 ($name, 3, "DbLog $name - new DB connection parameters are transmitted ..."); + Log3 ($name, 3, "$name - new DB connection parameters are transmitted ..."); } $ret = "Rereadcfg executed."; @@ -948,8 +948,8 @@ sub _DbLog_setcount { ## no critic "not used" my $err = DbLog_SBP_CheckAndInit ($hash); # Subprocess checken und ggf. initialisieren return $err if($err); - Log3 ($name, 2, qq{DbLog $name - WARNING - "$opt" is outdated. Please consider use of DbRep "set countEntries" instead.}); - Log3 ($name, 4, "DbLog $name - Records count requested."); + Log3 ($name, 2, qq{$name - WARNING - "$opt" is outdated. Please consider use of DbRep "set countEntries" instead.}); + Log3 ($name, 4, "$name - Records count requested."); DbLog_SBP_sendCommand ($hash, 'count'); @@ -979,8 +979,8 @@ sub _DbLog_setdeleteOldDays { ## no critic "not used" my $err = DbLog_SBP_CheckAndInit ($hash); # Subprocess checken und ggf. initialisieren return $err if($err); - Log3 ($name, 2, qq{DbLog $name - WARNING - "$opt" is outdated. Please consider use of DbRep "set delEntries" instead.}); - Log3 ($name, 3, "DbLog $name - Deletion of records older than $prop days in database $db requested"); + Log3 ($name, 2, qq{$name - WARNING - "$opt" is outdated. Please consider use of DbRep "set delEntries" instead.}); + Log3 ($name, 3, "$name - Deletion of records older than $prop days in database $db requested"); DbLog_SBP_sendCommand ($hash, 'deleteOldDays', $prop); @@ -1009,7 +1009,7 @@ sub _DbLog_setuserCommand { ## no critic "not used" my $err = DbLog_SBP_CheckAndInit ($hash); # Subprocess checken und ggf. initialisieren return $err if($err); - Log3 ($name, 2, qq{DbLog $name - WARNING - "$opt" is outdated. Please consider use of DbRep "set sqlCmd" instead.}); + Log3 ($name, 2, qq{$name - WARNING - "$opt" is outdated. Please consider use of DbRep "set sqlCmd" instead.}); DbLog_SBP_sendCommand ($hash, 'userCommand', $sql); @@ -1071,13 +1071,13 @@ sub _DbLog_setexportCache { ## no critic "not used" return $error if($error); - Log3 ($name, 3, "DbLog $name - $crows Cache rows exported to $outfile"); + Log3 ($name, 3, "$name - $crows Cache rows exported to $outfile"); if (lc($args[-1]) =~ m/^purgecache/i) { delete $data{DbLog}{$name}{cache}; readingsSingleUpdate ($hash, 'CacheUsage', 0, 1); - Log3 ($name, 3, "DbLog $name - Cache purged after exporting rows to $outfile."); + Log3 ($name, 3, "$name - Cache purged after exporting rows to $outfile."); } return; @@ -1134,7 +1134,7 @@ sub _DbLog_setreduceLog { ## no critic "not used" my $prop1 = $paref->{prop1}; my $arg = $paref->{arg}; - Log3($name, 2, qq{DbLog $name - WARNING - "$opt" is outdated. Please consider use of DbRep "set reduceLog" instead.}); + Log3($name, 2, qq{$name - WARNING - "$opt" is outdated. Please consider use of DbRep "set reduceLog" instead.}); my ($od,$nd) = split ":", $prop; # $od - Tage älter als , $nd - Tage neuer als @@ -1161,7 +1161,7 @@ sub _DbLog_setreduceLog { ## no critic "not used" DbLog_SBP_sendCommand ($hash, 'reduceLog', $arg); } else { - Log3 ($name, 2, "DbLog $name: reduceLog error, no given."); + Log3 ($name, 2, "$name: reduceLog error, no given."); return "reduceLog syntax error, no given."; } @@ -1217,10 +1217,10 @@ sub DbLog_Log { if(AttrVal ($name, 'verbose', 3) > 3) { if($log4rel) { - Log3 ($name, 4, "DbLog $name - ################################################################"); - Log3 ($name, 4, "DbLog $name - ### start of new Logcycle ###"); - Log3 ($name, 4, "DbLog $name - ################################################################"); - Log3 ($name, 4, "DbLog $name - number of events received: $max of device: $dev_name"); + Log3 ($name, 4, "$name - ################################################################"); + Log3 ($name, 4, "$name - ### start of new Logcycle ###"); + Log3 ($name, 4, "$name - ################################################################"); + Log3 ($name, 4, "$name - number of events received: $max of device: $dev_name"); } } @@ -1253,7 +1253,7 @@ sub DbLog_Log { $event = '' if(!defined($event)); $event = DbLog_charfilter($event) if(AttrVal($name, "useCharfilter",0)); - Log3 ($name, 4, "DbLog $name - check Device: $dev_name , Event: $event") if($log4rel); + Log3 ($name, 4, "$name - check Device: $dev_name , Event: $event") if($log4rel); if($dev_name =~ m/^$re$/ || "$dev_name:$event" =~ m/^$re$/ || $DbLogSelectionMode eq 'Include') { my $timestamp = $ts_0; @@ -1271,7 +1271,7 @@ sub DbLog_Log { ($err, $timestamp) = convertTimeZone ($params); if ($err) { - Log3 ($name, 1, "DbLog $name - ERROR while converting time zone: $err - exit log loop !"); + Log3 ($name, 1, "$name - ERROR while converting time zone: $err - exit log loop !"); last; } } @@ -1305,13 +1305,13 @@ sub DbLog_Log { for my $ed (@exdvs) { if($rd) { if("$dev_name:$reading" =~ m/^$ed:$rd$/) { - Log3 ($name, 4, "DbLog $name - Device:Reading \"$dev_name:$reading\" global excluded from logging by attribute \"excludeDevs\" ") if($log4rel); + Log3 ($name, 4, "$name - Device:Reading \"$dev_name:$reading\" global excluded from logging by attribute \"excludeDevs\" ") if($log4rel); $next = 1; } } else { if($dev_name =~ m/^$ed$/) { - Log3 ($name, 4, "DbLog $name - Device \"$dev_name\" global excluded from logging by attribute \"excludeDevs\" ") if($log4rel); + Log3 ($name, 4, "$name - Device \"$dev_name\" global excluded from logging by attribute \"excludeDevs\" ") if($log4rel); $next = 1; } } @@ -1322,11 +1322,11 @@ sub DbLog_Log { next if($next); } - Log3 ($name, 5, "DbLog $name - parsed Event: $dev_name , Event: $event") if($log4rel); + Log3 ($name, 5, "$name - parsed Event: $dev_name , Event: $event") if($log4rel); if($log4rel) { - Log3 ($name, 5, qq{DbLog $name - DbLogExclude of "$dev_name": $DbLogExclude}) if($DbLogExclude); - Log3 ($name, 5, qq{DbLog $name - DbLogInclude of "$dev_name": $DbLogInclude}) if($DbLogInclude); + Log3 ($name, 5, qq{$name - DbLogExclude of "$dev_name": $DbLogExclude}) if($DbLogExclude); + Log3 ($name, 5, qq{$name - DbLogInclude of "$dev_name": $DbLogInclude}) if($DbLogInclude); } # Je nach DBLogSelectionMode muss das vorgegebene Ergebnis der Include-, bzw. Exclude-Pruefung @@ -1413,7 +1413,7 @@ sub DbLog_Log { eval $DbLogValueFn; if($@) { - Log3 ($name, 2, "DbLog $name - error device \"$dev_name\" specific DbLogValueFn: ".$@); + Log3 ($name, 2, "$name - error device \"$dev_name\" specific DbLogValueFn: ".$@); } if($IGNORE) { # aktueller Event wird nicht geloggt wenn $IGNORE=1 gesetzt @@ -1421,7 +1421,7 @@ sub DbLog_Log { $defs{$dev_name}{Helper}{DBLOG}{$reading}{$name}{VALUE} = $lastv if(defined $lastv); if($log4rel) { - Log3 ($name, 4, "DbLog $name - Event ignored by device \"$dev_name\" specific DbLogValueFn - TS: $timestamp, Device: $dev_name, Type: $dev_type, Event: $event, Reading: $reading, Value: $value, Unit: $unit"); + Log3 ($name, 4, "$name - Event ignored by device \"$dev_name\" specific DbLogValueFn - TS: $timestamp, Device: $dev_name, Type: $dev_type, Event: $event, Reading: $reading, Value: $value, Unit: $unit"); } next; @@ -1434,7 +1434,7 @@ sub DbLog_Log { $timestamp = $TIMESTAMP; } else { - Log3 ($name, 2, "DbLog $name - TIMESTAMP got from DbLogValueFn in $dev_name is invalid: $TIMESTAMP"); + Log3 ($name, 2, "$name - TIMESTAMP got from DbLogValueFn in $dev_name is invalid: $TIMESTAMP"); } $reading = $READING if($READING ne ''); @@ -1457,7 +1457,7 @@ sub DbLog_Log { eval $value_fn; if($@) { - Log3 ($name, 2, "DbLog $name - error valueFn: ".$@); + Log3 ($name, 2, "$name - error valueFn: ".$@); } if($IGNORE) { # aktueller Event wird nicht geloggt wenn $IGNORE=1 gesetzt @@ -1465,7 +1465,7 @@ sub DbLog_Log { $defs{$dev_name}{Helper}{DBLOG}{$reading}{$name}{VALUE} = $lastv if(defined $lastv); if($log4rel) { - Log3 ($name, 4, "DbLog $name - Event ignored by valueFn - TS: $timestamp, Device: $dev_name, Type: $dev_type, Event: $event, Reading: $reading, Value: $value, Unit: $unit"); + Log3 ($name, 4, "$name - Event ignored by valueFn - TS: $timestamp, Device: $dev_name, Type: $dev_type, Event: $event, Reading: $reading, Value: $value, Unit: $unit"); } next; @@ -1478,7 +1478,7 @@ sub DbLog_Log { $timestamp = $TIMESTAMP; } else { - Log3 ($name, 2, "DbLog $name - Parameter TIMESTAMP got from valueFn is invalid: $TIMESTAMP"); + Log3 ($name, 2, "$name - Parameter TIMESTAMP got from valueFn is invalid: $TIMESTAMP"); } $dev_name = $DEVICE if($DEVICE ne ''); @@ -1494,7 +1494,7 @@ sub DbLog_Log { my $row = $timestamp."|".$dev_name."|".$dev_type."|".$event."|".$reading."|".$value."|".$unit; if($log4rel) { - Log3 ($name, 4, "DbLog $name - added event - Timestamp: $timestamp, Device: $dev_name, Type: $dev_type, Event: $event, Reading: $reading, Value: $value, Unit: $unit"); + Log3 ($name, 4, "$name - added event - Timestamp: $timestamp, Device: $dev_name, Type: $dev_type, Event: $event, Reading: $reading, Value: $value, Unit: $unit"); } $memcount = DbLog_addMemCacheRow ($name, $row); # Datensatz zum Memory Cache hinzufügen @@ -1522,7 +1522,7 @@ sub DbLog_Log { if(!$lmlr || gettimeofday() > $lmlr+($syncival/2)) { - Log3 ($name, 4, "DbLog $name - Number of cache entries reached cachelimit $clim - start database sync."); + Log3 ($name, 4, "$name - Number of cache entries reached cachelimit $clim - start database sync."); DbLog_execMemCacheAsync ($hash); @@ -1900,7 +1900,7 @@ sub _DbLog_checkDefMinInt { $force = ($adefelem[2] && $adefelem[2] =~ /force/i) ? 1 : 0; # Forum: #97148 if(($now-$lt < $adefelem[1]) && ($lv eq $value || $force)) { # innerhalb defaultMinInterval und LastValue=Value oder force-Option - $DoIt = 0; # Log3 ($name, 1, "DbLog $name - defaulMInInterval - device \"$dev_name\", reading \"$reading\" inside of $adefelem[1] seconds (force: $force) -> don't log it !"); + $DoIt = 0; # Log3 ($name, 1, "$name - defaulMInInterval - device \"$dev_name\", reading \"$reading\" inside of $adefelem[1] seconds (force: $force) -> don't log it !"); return $DoIt; } } @@ -1987,11 +1987,11 @@ sub DbLog_execMemCacheAsync { } if($verbose > 3 && $dolog) { - Log3 ($name, 4, "DbLog $name - ################################################################"); - Log3 ($name, 4, "DbLog $name - ### New database processing cycle - SBP asynchronous ###"); - Log3 ($name, 4, "DbLog $name - ################################################################"); - Log3 ($name, 4, "DbLog $name - MemCache contains $memcount entries to process"); - Log3 ($name, 4, "DbLog $name - DbLogType is: ".AttrVal($name, 'DbLogType', 'History')); + Log3 ($name, 4, "$name - ################################################################"); + Log3 ($name, 4, "$name - ### New database processing cycle - SBP asynchronous ###"); + Log3 ($name, 4, "$name - ################################################################"); + Log3 ($name, 4, "$name - MemCache contains $memcount entries to process"); + Log3 ($name, 4, "$name - DbLogType is: ".AttrVal($name, 'DbLogType', 'History')); } if($dolog) { @@ -2010,7 +2010,7 @@ sub DbLog_execMemCacheAsync { } else { if(defined $hash->{HELPER}{SHUTDOWNSEQ}) { - Log3 ($name, 2, "DbLog $name - no data for last database write cycle"); + Log3 ($name, 2, "$name - no data for last database write cycle"); _DbLog_finishDelayedShutdown ($hash); } } @@ -2044,9 +2044,9 @@ sub DbLog_execMemCacheSync { my $verbose = AttrVal ($name, 'verbose', 3); if($verbose > 3) { - Log3 ($name, 4, "DbLog $name - ################################################################"); - Log3 ($name, 4, "DbLog $name - ### New database processing cycle - SBP synchronous ###"); - Log3 ($name, 4, "DbLog $name - ################################################################"); + Log3 ($name, 4, "$name - ################################################################"); + Log3 ($name, 4, "$name - ### New database processing cycle - SBP synchronous ###"); + Log3 ($name, 4, "$name - ################################################################"); } DbLog_logHashContent ( {name => $name, href => $data{DbLog}{$name}{cache}{memcache}, level => 5, logtxt => 'TempStore contains: '} ); @@ -2669,7 +2669,7 @@ sub _DbLog_SBP_dbhDo { my $err = q{}; my $rv = q{}; - Log3 ($name, 4, "DbLog $name - $info"); + Log3 ($name, 4, "$name - $info"); eval{ $rv = $dbh->do($sql); 1; @@ -3554,7 +3554,7 @@ sub __DbLog_SBP_onRun_LogCurrent { ); } else { - Log3 ($name, 4, "DbLog $name - ".($#device_cur+1-$nins_cur)." of ".($#device_cur+1)." events inserted into table $current".($usepkc ? " using PK on columns $pkc" : "")); + Log3 ($name, 4, "$name - ".($#device_cur+1-$nins_cur)." of ".($#device_cur+1)." events inserted into table $current".($usepkc ? " using PK on columns $pkc" : "")); _DbLog_SBP_Log3Parent ( { name => $name, level => 4, msg => ($#device_cur+1-$nins_cur)." of ".($#device_cur+1)." events inserted into table $current".($usepkc ? " using PK on columns $pkc" : ""), @@ -3830,7 +3830,7 @@ sub _DbLog_SBP_onRun_userCommand { _DbLog_SBP_Log3Parent ( { name => $name, level => 4, - msg => qq{DbLog $name - userCommand requested: "$sql"}, + msg => qq{$name - userCommand requested: "$sql"}, oper => 'log3parent', subprocess => $subprocess } @@ -3868,7 +3868,7 @@ sub _DbLog_SBP_onRun_userCommand { _DbLog_SBP_Log3Parent ( { name => $name, level => 4, - msg => qq{DbLog $name - userCommand result: "$res"}, + msg => qq{$name - userCommand result: "$res"}, oper => 'log3parent', subprocess => $subprocess } @@ -4773,7 +4773,7 @@ sub __DbLog_SBP_commitOnly { ); } else { - Log3 ($name, 4, qq{DbLog $name - commit inserted data table >$table<}); + Log3 ($name, 4, qq{$name - commit inserted data table >$table<}); } } else { @@ -4787,7 +4787,7 @@ sub __DbLog_SBP_commitOnly { ); } else { - Log3 ($name, 4, qq{DbLog $name - insert table >$table< committed by autocommit}); + Log3 ($name, 4, qq{$name - insert table >$table< committed by autocommit}); } } 1; @@ -4803,7 +4803,7 @@ sub __DbLog_SBP_commitOnly { ); } else { - Log3 ($name, 2, qq{DbLog $name - ERROR commit table >$table<: $err}); + Log3 ($name, 2, qq{$name - ERROR commit table >$table<: $err}); } }; @@ -4834,7 +4834,7 @@ sub __DbLog_SBP_rollbackOnly { ); } else { - Log3 ($name, 4, "DbLog $name - Transaction rollback table >$table<"); + Log3 ($name, 4, "$name - Transaction rollback table >$table<"); } } else { @@ -4848,7 +4848,7 @@ sub __DbLog_SBP_rollbackOnly { ); } else { - Log3 ($name, 4, "DbLog $name - data auto rollback table >$table<"); + Log3 ($name, 4, "$name - data auto rollback table >$table<"); } } 1; @@ -4864,7 +4864,7 @@ sub __DbLog_SBP_rollbackOnly { ); } else { - Log3 ($name, 2, "DbLog $name - ERROR - $err"); + Log3 ($name, 2, "$name - ERROR - $err"); } }; @@ -4895,7 +4895,7 @@ sub __DbLog_SBP_disconnectOnly { ); } else { - Log3 ($name, 2, "DbLog $name - ERROR - $err"); + Log3 ($name, 2, "$name - ERROR - $err"); } }; @@ -5073,7 +5073,7 @@ sub _DbLog_SBP_Log3Parent { ); } else { - Log3 ($name, $level, qq{DbLog $name - $msg}); + Log3 ($name, $level, qq{$name - $msg}); } return; @@ -5100,7 +5100,7 @@ sub DbLog_SBP_onExit { my $subprocess = shift; my $name = $subprocess->{name}; - Log3 ($name, 1, "DbLog $name - SubProcess EXITED!"); + Log3 ($name, 1, "$name - SubProcess EXITED!"); return; } @@ -5123,11 +5123,11 @@ sub DbLog_SBP_CheckAndInit { my $rt = gettimeofday() - $hash->{HELPER}{LONGRUN_PID}; # aktuelle Laufzeit if ($rt >= $to) { # SubProcess beenden, möglicherweise tot - Log3 ($name, 2, qq{DbLog $name - The Subprocess >$hash->{SBP_PID}< has exceeded the timeout of $to seconds}); + Log3 ($name, 2, qq{$name - The Subprocess >$hash->{SBP_PID}< has exceeded the timeout of $to seconds}); DbLog_SBP_CleanUp ($hash); - Log3 ($name, 2, qq{DbLog $name - The last running operation was canceled}); + Log3 ($name, 2, qq{$name - The last running operation was canceled}); } } @@ -5166,7 +5166,7 @@ sub DbLog_SBP_sendDbDisconnect { if(!defined $subprocess) { $err = qq{SubProcess isn't available. Disconnect command couldn't be sent}; - Log3 ($name, 1, "DbLog $name - ERROR - $err"); + Log3 ($name, 1, "$name - ERROR - $err"); return $err; } @@ -5196,7 +5196,7 @@ sub DbLog_SBP_sendConnectionData { if(!defined $subprocess) { $err = qq{SubProcess isn't running, DB connection data couldn't be sent}; - Log3 ($name, 1, "DbLog $name - ERROR - $err"); + Log3 ($name, 1, "$name - ERROR - $err"); return $err; } @@ -5241,7 +5241,7 @@ sub DbLog_SBP_sendLogData { my $subprocess = $hash->{".fhem"}{subprocess}; if(!defined $subprocess) { - Log3 ($name, 1, "DbLog $name - ERROR - SubProcess isn't running, processing data couldn't be sent"); + Log3 ($name, 1, "$name - ERROR - SubProcess isn't running, processing data couldn't be sent"); return 'no SubProcess is running'; } @@ -5279,7 +5279,7 @@ sub DbLog_SBP_sendCommand { my $subprocess = $hash->{".fhem"}{subprocess}; if(!defined $subprocess) { - Log3 ($name, 1, "DbLog $name - ERROR - SubProcess isn't running, processing data couldn't be sent"); + Log3 ($name, 1, "$name - ERROR - SubProcess isn't running, processing data couldn't be sent"); return 'no SubProcess is running'; } @@ -5355,7 +5355,7 @@ sub _DbLog_SBP_Init { my $pid = $subprocess->run(); if (!defined $pid) { - my $err = "DbLog $name - Cannot create subprocess for non-blocking operation"; + my $err = "$name - Cannot create subprocess for non-blocking operation"; Log3 ($name, 1, $err); DbLog_SBP_CleanUp ($hash); @@ -5364,7 +5364,7 @@ sub _DbLog_SBP_Init { return 'no SubProcess PID created'; } - Log3 ($name, 2, qq{DbLog $name - Subprocess >$pid< initialized ... ready for non-blocking operation}); + Log3 ($name, 2, qq{$name - Subprocess >$pid< initialized ... ready for non-blocking operation}); $hash->{".fhem"}{subprocess} = $subprocess; $hash->{FD} = fileno $subprocess->child(); @@ -5378,7 +5378,7 @@ sub _DbLog_SBP_Init { if (!$nscd) { my $rst = DbLog_SBP_sendConnectionData ($hash); # Verbindungsdaten übertragen if (!$rst) { - Log3 ($name, 3, "DbLog $name - requested DB connection parameters are transmitted"); + Log3 ($name, 3, "$name - requested DB connection parameters are transmitted"); } } @@ -5398,7 +5398,7 @@ sub DbLog_SBP_CleanUp { my $pid = $subprocess->pid(); return if(!defined $pid); - Log3 ($name, 2, qq{DbLog $name - stopping SubProcess PID >$pid< ...}); + Log3 ($name, 2, qq{$name - stopping SubProcess PID >$pid< ...}); #$subprocess->terminate(); #$subprocess->wait(); @@ -5406,7 +5406,7 @@ sub DbLog_SBP_CleanUp { kill 'SIGKILL', $pid; waitpid ($pid, 0); - Log3 ($name, 2, qq{DbLog $name - SubProcess PID >$pid< stopped}); + Log3 ($name, 2, qq{$name - SubProcess PID >$pid< stopped}); delete ($selectlist{"$name.$pid"}); delete $hash->{FD}; @@ -5446,7 +5446,7 @@ sub DbLog_SBP_Read { ################################ if ($oper eq 'log3parent') { my $level = $ret->{level}; - Log3 ($name, $level, "DbLog $name - ".$msg); + Log3 ($name, $level, "$name - ".$msg); return; } @@ -5455,13 +5455,13 @@ sub DbLog_SBP_Read { my $ce = AttrVal ($name, 'cacheEvents', 0); - # Log3 ($name, 1, "DbLog $name - Read result of operation: $oper"); - # Log3 ($name, 1, "DbLog $name - DbLog_SBP_Read: name: $name, msg: $msg, ot: $ot, rowlback: ".Dumper $rowlback); + # Log3 ($name, 1, "$name - Read result of operation: $oper"); + # Log3 ($name, 1, "$name - DbLog_SBP_Read: name: $name, msg: $msg, ot: $ot, rowlback: ".Dumper $rowlback); if($reqdbdat) { # Übertragung DB Verbindungsparameter ist requested my $rst = DbLog_SBP_sendConnectionData ($hash); if (!$rst) { - Log3 ($name, 3, "DbLog $name - requested DB connection parameters are transmitted"); + Log3 ($name, 3, "$name - requested DB connection parameters are transmitted"); } } @@ -5477,16 +5477,16 @@ sub DbLog_SBP_Read { for my $key (sort {$a <=>$b} keys %{$rowlback}) { $memcount = DbLog_addMemCacheRow ($name, $rowlback->{$key}); # Datensatz zum Memory Cache hinzufügen - Log3 ($name, 5, "DbLog $name - row back to Cache: $key -> ".$rowlback->{$key}); + Log3 ($name, 5, "$name - row back to Cache: $key -> ".$rowlback->{$key}); } if ($hash->{HELPER}{SHUTDOWNSEQ} && $memcount) { - Log3 ($name, 2, "DbLog $name - an error occurred during the last write cycle to the database, the data is exported to a file instead ... ......"); + Log3 ($name, 2, "$name - an error occurred during the last write cycle to the database, the data is exported to a file instead ... ......"); my $error = CommandSet (undef, qq{$name exportCache purgecache}); if ($error) { # Fehler beim Export Cachefile - Log3 ($name, 1, "DbLog $name - ERROR - while exporting Cache file: $error"); + Log3 ($name, 1, "$name - ERROR - while exporting Cache file: $error"); } } }; @@ -5535,7 +5535,7 @@ sub DbLog_SBP_Read { ## sendDbConnectData - Read ############################# if ($oper =~ /sendDbConnectData/xs) { - Log3 ($name, 3, "DbLog $name - DB connection parameters are initialized in the SubProcess"); + Log3 ($name, 3, "$name - DB connection parameters are initialized in the SubProcess"); DoTrigger ($name, 'SUBPROC_INITIALIZED', 1); } @@ -5562,7 +5562,7 @@ sub DbLog_SBP_Read { DbLog_setReadingstate ($hash, $state); if ($hash->{HELPER}{SHUTDOWNSEQ}) { - Log3 ($name, 2, "DbLog $name - Last database write cycle done"); + Log3 ($name, 2, "$name - Last database write cycle done"); _DbLog_finishDelayedShutdown ($hash); } } @@ -5606,11 +5606,11 @@ sub DbLog_writeFileIfCacheOverflow { readingsEndUpdate($hash, 1); if($coft && $memcount >= $coft) { - Log3 ($name, 2, "DbLog $name - WARNING - Cache is exported to file instead of logging it to database"); + Log3 ($name, 2, "$name - WARNING - Cache is exported to file instead of logging it to database"); my $error = CommandSet (undef, qq{$name exportCache purgecache}); if($error) { # Fehler beim Export Cachefile - Log3 ($name, 1, "DbLog $name - ERROR - while exporting Cache file: $error"); + Log3 ($name, 1, "$name - ERROR - while exporting Cache file: $error"); DbLog_setReadingstate ($hash, $error); return $success; } @@ -5752,14 +5752,14 @@ sub _DbLog_manageDBHU { $dbh = _DbLog_getNewDBHandle ($hash) || return "Can't connect to database."; $hash->{DBHU} = $dbh; - Log3 ($name, 4, "DbLog $name - Created new DBHU for PID: $$"); + Log3 ($name, 4, "$name - Created new DBHU for PID: $$"); } } else { $dbh = _DbLog_getNewDBHandle ($hash) || return "Can't connect to database."; $hash->{DBHU} = $dbh; - Log3 ($name, 4, "DbLog $name - Created new DBHU for PID: $$"); + Log3 ($name, 4, "$name - Created new DBHU for PID: $$"); } return; @@ -5808,21 +5808,21 @@ sub _DbLog_prepExecQueryOnly { my ($sth,$result); - Log3 ($name, 4, "DbLog $name - Executing SQL: $sql"); + Log3 ($name, 4, "$name - Executing SQL: $sql"); eval{ $sth = $dbh->prepare($sql); $sth->execute; 1; } or do { $err = $@; - Log3 ($name, 2, "DbLog $name - ERROR - $err"); + Log3 ($name, 2, "$name - ERROR - $err"); return $err; }; @sr = $sth->fetchrow_array; no warnings 'uninitialized'; - Log3 ($name, 4, "DbLog $name - SQL result: ".join ' ', @sr); + Log3 ($name, 4, "$name - SQL result: ".join ' ', @sr); use warnings; return ($err, @sr); @@ -5846,7 +5846,7 @@ sub DbLog_ExecSQL { my $dbh = $hash->{DBHU}; my $name = $hash->{NAME}; - Log3 ($name, 4, "DbLog $name - Backdoor executing: $sql"); + Log3 ($name, 4, "$name - Backdoor executing: $sql"); ($err, my $sth) = _DbLog_SBP_dbhDo ($name, $dbh, $sql, ''); $sth = 0 if($err); @@ -6370,7 +6370,7 @@ sub _DbLog_plotData { } if ($inf =~ /table_/xs) { - $table = (split "_", $inf)[1]; # altervative Tabelle ab V 5.9.1 + $table = (split "_", $inf)[1]; # alternative Tabelle ab V 5.9.1 } if ($outf eq "int" && $inf eq "current") { @@ -6402,13 +6402,13 @@ sub _DbLog_plotData { $err = DbLog_checkTimeformat($from); # Forum: https://forum.fhem.de/index.php/topic,101005.0.html if($err) { - Log3 ($name, 1, "DbLog $name - wrong date/time format (from: $from) requested by SVG: $err"); + Log3 ($name, 1, "$name - wrong date/time format (from: $from) requested by SVG: $err"); return; } $err = DbLog_checkTimeformat($to); # Forum: https://forum.fhem.de/index.php/topic,101005.0.html if($err) { - Log3 ($name, 1, "DbLog $name - wrong date/time format (to: $to) requested by SVG: $err"); + Log3 ($name, 1, "$name - wrong date/time format (to: $to) requested by SVG: $err"); return; } @@ -6440,10 +6440,10 @@ sub _DbLog_plotData { } if ($verbose > 3) { - Log3 ($name, 4, "DbLog $name - ################################################################"); - Log3 ($name, 4, "DbLog $name - ### new get data for SVG ###"); - Log3 ($name, 4, "DbLog $name - ################################################################"); - Log3 ($name, 4, "DbLog $name - main PID: $hash->{PID}, secondary PID: $$"); + Log3 ($name, 4, "$name - ################################################################"); + Log3 ($name, 4, "$name - ### new get data for SVG ###"); + Log3 ($name, 4, "$name - ################################################################"); + Log3 ($name, 4, "$name - main PID: $hash->{PID}, secondary PID: $$"); } my $samePID = $hash->{PID} == $$ ? 1 : 0; @@ -6457,7 +6457,7 @@ sub _DbLog_plotData { else { $dbh = _DbLog_getNewDBHandle($hash) || return "Can't connect to database."; - Log3 ($name, 4, "DbLog $name - Created new DBHU for PID: $$"); + Log3 ($name, 4, "$name - Created new DBHU for PID: $$"); } # vorbereiten der DB-Abfrage, DB-Modell-abhaengig @@ -6530,8 +6530,8 @@ sub _DbLog_plotData { $deltacalc = 1; if ($verbose > 3) { - Log3 ($name, 4, "DbLog $name - deltacalc: hour") if($readings[$i]->[3] eq "delta-h"); # geändert V4.8.0 / 14.10.2019 - Log3 ($name, 4, "DbLog $name - deltacalc: day") if($readings[$i]->[3] eq "delta-d"); # geändert V4.8.0 / 14.10.2019 + Log3 ($name, 4, "$name - deltacalc: hour") if($readings[$i]->[3] eq "delta-h"); # geändert V4.8.0 / 14.10.2019 + Log3 ($name, 4, "$name - deltacalc: day") if($readings[$i]->[3] eq "delta-d"); # geändert V4.8.0 / 14.10.2019 } } @@ -6664,13 +6664,13 @@ sub _DbLog_plotData { $sql_value = $val; $sql_timestamp = $ts; - if($@) { + if ($@) { Log3 ($name, 3, "DbLog: Error in inline function: <".$readings[$i]->[4].">, Error: $@"); } } - if($sql_timestamp lt $from && $deltacalc) { - if(Scalar::Util::looks_like_number($sql_value)) { # nur setzen wenn numerisch + if ($sql_timestamp lt $from && $deltacalc) { + if (Scalar::Util::looks_like_number($sql_value)) { # nur setzen wenn numerisch $minval = $sql_value if($sql_value < $minval || ($minval = (~0 >> 1)) ); # geändert V4.8.0 / 14.10.2019 $maxval = $sql_value if($sql_value > $maxval || ($maxval = -(~0 >> 1)) ); # geändert V4.8.0 / 14.10.2019 $lastv[$i] = $sql_value; @@ -6682,14 +6682,14 @@ sub _DbLog_plotData { $out_tstamp = ""; $retvaldummy = ""; - if($readings[$i]->[4]) { + if ($readings[$i]->[4]) { $out_tstamp = $sql_timestamp; $writeout = 1 if(!$deltacalc); } ############ Auswerten des 4. Parameters: Funktion ################### ###################################################################### - if($readings[$i]->[3] && $readings[$i]->[3] eq "int") { # nur den integerwert uebernehmen falls zb value=15°C + if ($readings[$i]->[3] && $readings[$i]->[3] eq "int") { # nur den integerwert uebernehmen falls zb value=15°C $out_value = $1 if($sql_value =~ m/^(\d+).*/o); $out_tstamp = $sql_timestamp; $writeout = 1; @@ -6708,7 +6708,7 @@ sub _DbLog_plotData { my @a = split("[- :]", $sql_timestamp); my $akt_ts = mktime($a[5],$a[4],$a[3],$a[2],$a[1]-1,$a[0]-1900,0,0,-1); - if($lastd[$i] ne "undef") { + if ($lastd[$i] ne "undef") { @a = split("[- :]", $lastd[$i]); } @@ -6716,7 +6716,7 @@ sub _DbLog_plotData { $out_tstamp = $sql_timestamp; $out_value = sprintf("%02d", $akt_ts - $last_ts); - if(lc($sql_value) =~ m(hide)) { + if (lc($sql_value) =~ m(hide)) { $writeout = 0; } else { @@ -6726,7 +6726,7 @@ sub _DbLog_plotData { elsif ($readings[$i]->[3] && $readings[$i]->[3] eq "delta-h") { # Berechnung eines Delta-Stundenwertes %tstamp = DbLog_explode_datetime($sql_timestamp, ()); - if($lastd[$i] eq "undef") { + if ($lastd[$i] eq "undef") { %lasttstamp = DbLog_explode_datetime($sql_timestamp, ()); $lasttstamp{hour} = "00"; } @@ -6734,12 +6734,12 @@ sub _DbLog_plotData { %lasttstamp = DbLog_explode_datetime($lastd[$i], ()); } - if("$tstamp{hour}" ne "$lasttstamp{hour}") { + if ("$tstamp{hour}" ne "$lasttstamp{hour}") { # Aenderung der Stunde, Berechne Delta # wenn die Stundendifferenz größer 1 ist muss ein Dummyeintrag erstellt werden $retvaldummy = ""; - if(($tstamp{hour}-$lasttstamp{hour}) > 1) { + if (($tstamp{hour}-$lasttstamp{hour}) > 1) { for (my $j = $lasttstamp{hour}+1; $j < $tstamp{hour}; $j++) { $out_value = "0"; $hour = $j; @@ -6747,20 +6747,20 @@ sub _DbLog_plotData { $cnt[$i]++; $out_tstamp = DbLog_implode_datetime($tstamp{year}, $tstamp{month}, $tstamp{day}, $hour, "30", "00"); - if ($outf =~ m/(all)/) { # Timestamp: Device, Type, Event, Reading, Value, Unit + if ($outf =~ m/(all)/) { # Timestamp: Device, Type, Event, Reading, Value, Unit $retvaldummy .= sprintf("%s: %s, %s, %s, %s, %s, %s\n", $out_tstamp, $sql_device, $type, $event, $sql_reading, $out_value, $unit); - - } elsif ($outf =~ m/(array)/) { + } + elsif ($outf =~ m/(array)/) { push(@ReturnArray, {"tstamp" => $out_tstamp, "device" => $sql_device, "type" => $type, "event" => $event, "reading" => $sql_reading, "value" => $out_value, "unit" => $unit}); } else { - $out_tstamp =~ s/\ /_/g; #needed by generating plots + $out_tstamp =~ s/\ /_/g; #needed by generating plots $retvaldummy .= "$out_tstamp $out_value\n"; } } } - if(($tstamp{hour}-$lasttstamp{hour}) < 0) { + if (($tstamp{hour}-$lasttstamp{hour}) < 0) { for (my $j = 0; $j < $tstamp{hour}; $j++) { $out_value = "0"; $hour = $j; @@ -6796,21 +6796,21 @@ sub _DbLog_plotData { elsif ($readings[$i]->[3] && $readings[$i]->[3] eq "delta-d") { # Berechnung eines Tages-Deltas %tstamp = DbLog_explode_datetime($sql_timestamp, ()); - if($lastd[$i] eq "undef") { + if ($lastd[$i] eq "undef") { %lasttstamp = DbLog_explode_datetime($sql_timestamp, ()); } else { %lasttstamp = DbLog_explode_datetime($lastd[$i], ()); } - if("$tstamp{day}" ne "$lasttstamp{day}") { # Aenderung des Tages, berechne Delta - $writeout = 1 if($minval != (~0 >> 1) && $maxval != -(~0 >> 1)); # geändert V4.8.0 / 14.10.2019 - $out_value = ($writeout == 1) ? sprintf("%g", $maxval - $minval) : 0; # if there was no previous reading in the selected time range, produce a null delta, %g - a floating-point number + if ("$tstamp{day}" ne "$lasttstamp{day}") { # Aenderung des Tages, berechne Delta + $writeout = 1 if($minval != (~0 >> 1) && $maxval != -(~0 >> 1)); # geändert V4.8.0 / 14.10.2019 + $out_value = ($writeout == 1) ? sprintf("%g", $maxval - $minval) : 0; # if there was no previous reading in the selected time range, produce a null delta, %g - a floating-point number $sum[$i] += $out_value; $cnt[$i]++; $out_tstamp = DbLog_implode_datetime($lasttstamp{year}, $lasttstamp{month}, $lasttstamp{day}, "12", "00", "00"); - $minval = $maxval if($maxval != -(~0 >> 1)); # only use the current range's maximum as the new minimum if a proper value was found + $minval = $maxval if($maxval != -(~0 >> 1)); # only use the current range's maximum as the new minimum if a proper value was found Log3 ($name, 5, "$name - Output delta-d -> TS: $tstamp{day}, LASTTS: $lasttstamp{day}, OUTTS: $out_tstamp, OUTVAL: $out_value, WRITEOUT: $writeout"); } @@ -6841,15 +6841,15 @@ sub _DbLog_plotData { } } - if(Scalar::Util::looks_like_number($sql_value)) { # nur setzen wenn numerisch - if($deltacalc) { - if(Scalar::Util::looks_like_number($out_value)) { - if($out_value < $min[$i]) { + if (Scalar::Util::looks_like_number($sql_value)) { # nur setzen wenn numerisch + if ($deltacalc) { + if (Scalar::Util::looks_like_number($out_value)) { + if ($out_value < $min[$i]) { $min[$i] = $out_value; $mind[$i] = $out_tstamp; } - if($out_value > $max[$i]) { + if ($out_value > $max[$i]) { $max[$i] = $out_value; $maxd[$i] = $out_tstamp; } @@ -6858,17 +6858,17 @@ sub _DbLog_plotData { $maxval = $sql_value; } else { - if($firstd[$i] eq "undef") { + if ($firstd[$i] eq "undef") { $firstv[$i] = $sql_value; $firstd[$i] = $sql_timestamp; } - if($sql_value < $min[$i]) { + if ($sql_value < $min[$i]) { $min[$i] = $sql_value; $mind[$i] = $sql_timestamp; } - if($sql_value > $max[$i]) { + if ($sql_value > $max[$i]) { $max[$i] = $sql_value; $maxd[$i] = $sql_timestamp; } @@ -6886,7 +6886,7 @@ sub _DbLog_plotData { $maxval = 0; } - if(!$deltacalc) { + if (!$deltacalc) { $cnt[$i]++; $lastv[$i] = $sql_value; } @@ -6902,8 +6902,8 @@ sub _DbLog_plotData { ######## den letzten Abschlusssatz rausschreiben ########## - if($readings[$i]->[3] && ($readings[$i]->[3] eq "delta-h" || $readings[$i]->[3] eq "delta-d")) { - if($lastd[$i] eq "undef") { + if ($readings[$i]->[3] && ($readings[$i]->[3] eq "delta-h" || $readings[$i]->[3] eq "delta-d")) { + if ($lastd[$i] eq "undef") { $out_value = "0"; $out_tstamp = DbLog_implode_datetime($from_datetime{year}, $from_datetime{month}, $from_datetime{day}, $from_datetime{hour}, "30", "00") if($readings[$i]->[3] eq "delta-h"); $out_tstamp = DbLog_implode_datetime($from_datetime{year}, $from_datetime{month}, $from_datetime{day}, "12", "00", "00") if($readings[$i]->[3] eq "delta-d"); @@ -6918,7 +6918,7 @@ sub _DbLog_plotData { $sum[$i] += $out_value; $cnt[$i]++; - if($outf =~ m/(all)/) { + if ($outf =~ m/(all)/) { $retval .= sprintf("%s: %s %s %s %s %s %s\n", $out_tstamp, $sql_device, $type, $event, $sql_reading, $out_value, $unit); } elsif ($outf =~ m/(array)/) { @@ -7032,7 +7032,7 @@ sub DbLog_configcheck { my ($check, $rec, $err, $upd, $msg, @config, %dbconfig); - Log3 ($name, 4, "DbLog $name - ### Start configCheck ###"); + Log3 ($name, 4, "$name - ### Start configCheck ###"); my $ok = FW_makeImage('10px-kreis-gruen.png', ''); my $nok = FW_makeImage('10px-kreis-rot.png', ''); @@ -7145,7 +7145,7 @@ sub DbLog_configcheck { my $dbh = _DbLog_getNewDBHandle ($hash) || return "Can't connect to database."; my $ct = sprintf("%.4f", tv_interval($st)); # Laufzeit ermitteln - Log3 ($name, 4, "DbLog $name - Time required to establish the database connection: ".$ct); + Log3 ($name, 4, "$name - Time required to establish the database connection: ".$ct); my (@ce,@se); my ($chutf8mod,$chutf8dat); @@ -7662,12 +7662,12 @@ sub DbLog_configcheck { for my $dbrp (@repdvs) { if (!$defs{$dbrp}) { - Log3 ($name, 2, "DbLog $name - Device '$dbrp' found by configCheck doesn't exist !"); + Log3 ($name, 2, "$name - Device '$dbrp' found by configCheck doesn't exist !"); next; } if ($defs{$dbrp}->{DEF} eq $name) { # DbRep Device verwendet aktuelles DbLog-Device - Log3 ($name, 5, "DbLog $name - DbRep-Device '$dbrp' uses $name."); + Log3 ($name, 5, "$name - DbRep-Device '$dbrp' uses $name."); $isused = 1; } } @@ -7819,7 +7819,7 @@ sub _DbLog_checkModVer { my @remList = split /\R/, $remCtrlFile; my $root = $attr{global}{modpath}; - Log3 ($name, 4, "DbLog $name - configCheck: Got SVN $ctrlFileName with ".int(@remList)." entries."); + Log3 ($name, 4, "$name - configCheck: Got SVN $ctrlFileName with ".int(@remList)." entries."); open (FD, "$root/FHEM/$ctrlFileName") or do { $msg = "Automatic check of SVN DbLog version not possible: $!"; $rec = "Try to solve the problem that has occurred. Compare your local DbLog version with the public version manually."; @@ -7829,7 +7829,7 @@ sub _DbLog_checkModVer { my @locList = map { $_ =~ s/[\r\n]//; $_ } ; close(FD); - Log3 ($name, 4, "DbLog $name - configCheck: Got local $ctrlFileName with ".int(@locList)." entries."); + Log3 ($name, 4, "$name - configCheck: Got local $ctrlFileName with ".int(@locList)." entries."); my %lh; @@ -7839,7 +7839,7 @@ sub _DbLog_checkModVer { $lh{$l[3]}{TS} = $l[1]; $lh{$l[3]}{LEN} = $l[2]; - Log3 ($name, 4, "DbLog $name - configCheck: local version from last update - creation time: ".$lh{$l[3]}{TS}." - bytes: ".$lh{$l[3]}{LEN}); + Log3 ($name, 4, "$name - configCheck: local version from last update - creation time: ".$lh{$l[3]}{TS}." - bytes: ".$lh{$l[3]}{LEN}); } for my $rem (@remList) { @@ -7851,7 +7851,7 @@ sub _DbLog_checkModVer { my $fileOk = ($lh{$fName} && $lh{$fName}{TS} eq $r[1] && $lh{$fName}{LEN} eq $r[2]); if (!$fileOk) { - Log3 ($name, 4, "DbLog $name - configCheck: New SVN version of $fName found - creation time: $r[1] ($r[2] Bytes)"); + Log3 ($name, 4, "$name - configCheck: New SVN version of $fName found - creation time: $r[1] ($r[2] Bytes)"); $msg = "A new DbLog version is available (creation time: $r[1], size: $r[2] bytes)"; $rec = "You should update FHEM to get the recent DbLog version from repository."; @@ -7861,7 +7861,7 @@ sub _DbLog_checkModVer { my $sz = -s $fPath; if ($fileOk && defined($sz) && $sz ne $r[2]) { - Log3 ($name, 4, "DbLog $name - configCheck: SVN version of $fName creation time: $r[1] ($r[2] Bytes) differs from local one ($sz Bytes)"); + Log3 ($name, 4, "$name - configCheck: SVN version of $fName creation time: $r[1] ($r[2] Bytes) differs from local one ($sz Bytes)"); $msg = "Your local DbLog module is modified. The SVN version of $fName has creation time: $r[1] ($r[2] Bytes)"; $rec = "You should update FHEM to get the recent DbLog version from repository."; @@ -7890,13 +7890,13 @@ sub __DbLog_updGetUrl { my ($err, $data) = HttpUtils_BlockingGet(\%upd_connecthash); if($err) { - Log3 ($name, 1, "DbLog $name - configCheck: ERROR while connecting to fhem.de: $err"); + Log3 ($name, 1, "$name - configCheck: ERROR while connecting to fhem.de: $err"); return ($err, ""); } if(!$data) { - Log3 ($name, 1, "DbLog $name - configCheck: ERROR $url: empty file received"); + Log3 ($name, 1, "$name - configCheck: ERROR $url: empty file received"); $err = 1; return ($err, ""); @@ -7944,13 +7944,13 @@ sub DbLog_AddLog { my $devspec = join(':',@dc); my @exdvs = devspec2array($devspec); - Log3 ($name, 4, "DbLog $name - Addlog known devices by devspec: @exdvs"); + Log3 ($name, 4, "$name - Addlog known devices by devspec: @exdvs"); for (@exdvs) { $dev_name = $_; if(!$defs{$dev_name}) { - Log3 ($name, 2, "DbLog $name - Device '$dev_name' used by addLog doesn't exist !"); + Log3 ($name, 2, "$name - Device '$dev_name' used by addLog doesn't exist !"); next; } @@ -7982,7 +7982,7 @@ sub DbLog_AddLog { } } - Log3 ($name, 2, "DbLog $name - Device: \"$dev_name\", reading: \"$v2[0]\" excluded by attribute DbLogExclude from addLog !") if($do == 0 && $rd =~ m/^$rdspec$/); + Log3 ($name, 2, "$name - Device: \"$dev_name\", reading: \"$v2[0]\" excluded by attribute DbLogExclude from addLog !") if($do == 0 && $rd =~ m/^$rdspec$/); } } } @@ -7991,18 +7991,18 @@ sub DbLog_AddLog { push @exrds, $rd if($rd =~ m/^$rdspec$/); } - Log3 $name, 4, "DbLog $name - Readings extracted from Regex: @exrds"; + Log3 $name, 4, "$name - Readings extracted from Regex: @exrds"; if(!$found) { if(goodReadingName($rdspec) && defined($value)) { - Log3 $name, 3, "DbLog $name - addLog WARNING - Device: '$dev_name' -> Reading '$rdspec' not found - add it as new reading."; + Log3 $name, 3, "$name - addLog WARNING - Device: '$dev_name' -> Reading '$rdspec' not found - add it as new reading."; push @exrds,$rdspec; } elsif (goodReadingName($rdspec) && !defined($value)) { - Log3 $name, 2, "DbLog $name - addLog WARNING - Device: '$dev_name' -> new Reading '$rdspec' has no value - can't add it !"; + Log3 $name, 2, "$name - addLog WARNING - Device: '$dev_name' -> new Reading '$rdspec' has no value - can't add it !"; } else { - Log3 $name, 2, "DbLog $name - addLog WARNING - Device: '$dev_name' -> Readingname '$rdspec' is no valid or regexp - can't add regexp as new reading !"; + Log3 $name, 2, "$name - addLog WARNING - Device: '$dev_name' -> Readingname '$rdspec' is no valid or regexp - can't add regexp as new reading !"; } } @@ -8044,7 +8044,7 @@ sub DbLog_AddLog { ($err, $ts) = convertTimeZone ($params); if ($err) { - Log3 ($name, 1, "DbLog $name - ERROR while converting time zone: $err - exit log loop !"); + Log3 ($name, 1, "$name - ERROR while converting time zone: $err - exit log loop !"); last; } } @@ -8067,7 +8067,7 @@ sub DbLog_AddLog { eval $value_fn; - Log3 ($name, 2, "DbLog $name - error valueFn: ".$@) if($@); + Log3 ($name, 2, "$name - error valueFn: ".$@) if($@); if($IGNORE) { # aktueller Event wird nicht geloggt wenn $IGNORE=1 gesetzt $defs{$dev_name}{Helper}{DBLOG}{$dev_reading}{$name}{TIME} = $lastt if($lastt); # patch Forum:#111423 @@ -8082,7 +8082,7 @@ sub DbLog_AddLog { $ts = $TIMESTAMP; } else { - Log3 ($name, 2, "DbLog $name - Parameter TIMESTAMP got from valueFn is invalid: $TIMESTAMP"); + Log3 ($name, 2, "$name - Parameter TIMESTAMP got from valueFn is invalid: $TIMESTAMP"); } $dev_name = $DEVICE if($DEVICE ne ''); @@ -8103,7 +8103,7 @@ sub DbLog_AddLog { my $row = $ts."|".$dev_name."|".$dev_type."|".$event."|".$dev_reading."|".$read_val."|".$ut; if (!AttrVal($name, 'suppressAddLogV3', 0)) { - Log3 $name, 3, "DbLog $name - addLog created - TS: $ts, Device: $dev_name, Type: $dev_type, Event: $event, Reading: $dev_reading, Value: $read_val, Unit: $ut"; + Log3 $name, 3, "$name - addLog created - TS: $ts, Device: $dev_name, Type: $dev_type, Event: $event, Reading: $dev_reading, Value: $read_val, Unit: $ut"; } $memcount = DbLog_addMemCacheRow ($name, $row); # Datensatz zum Memory Cache hinzufügen @@ -8178,13 +8178,13 @@ sub DbLog_addCacheLine { my $CN = " "; eval $value_fn; - Log3 ($name, 2, "DbLog $name - error valueFn: ".$@) if($@); + Log3 ($name, 2, "$name - error valueFn: ".$@) if($@); if ($IGNORE) { # kein add wenn $IGNORE=1 gesetzt $defs{$i_dev}{Helper}{DBLOG}{$i_reading}{$name}{TIME} = $lastt if($defs{$i_dev} && $lastt); # patch Forum:#111423 $defs{$i_dev}{Helper}{DBLOG}{$i_reading}{$name}{VALUE} = $lastv if($defs{$i_dev} && defined $lastv); - Log3 ($name, 4, "DbLog $name - Event ignored by valueFn - TS: $i_timestamp, Device: $i_dev, Type: $i_type, Event: $i_evt, Reading: $i_reading, Value: $i_val, Unit: $i_unit"); + Log3 ($name, 4, "$name - Event ignored by valueFn - TS: $i_timestamp, Device: $i_dev, Type: $i_type, Event: $i_evt, Reading: $i_reading, Value: $i_val, Unit: $i_unit"); next; } @@ -8196,7 +8196,7 @@ sub DbLog_addCacheLine { $i_timestamp = $TIMESTAMP; } else { - Log3 ($name, 2, "DbLog $name - Parameter TIMESTAMP got from valueFn is invalid: $TIMESTAMP"); + Log3 ($name, 2, "$name - Parameter TIMESTAMP got from valueFn is invalid: $TIMESTAMP"); } $i_dev = $DEVICE if($DEVICE ne ''); @@ -8212,7 +8212,7 @@ sub DbLog_addCacheLine { my $row = $i_timestamp."|".$i_dev."|".$i_type."|".$i_evt."|".$i_reading."|".$i_val."|".$i_unit; $row = DbLog_charfilter($row) if(AttrVal($name, "useCharfilter",0)); - Log3 ($name, 4, "DbLog $name - added by addCacheLine - TS: $i_timestamp, Device: $i_dev, Type: $i_type, Event: $i_evt, Reading: $i_reading, Value: $i_val, Unit: $i_unit"); + Log3 ($name, 4, "$name - added by addCacheLine - TS: $i_timestamp, Device: $i_dev, Type: $i_type, Event: $i_evt, Reading: $i_reading, Value: $i_val, Unit: $i_unit"); use warnings; @@ -8396,7 +8396,7 @@ sub DbLog_reopen { delete $hash->{HELPER}{REOPEN_RUNS_UNTIL}; if($delay) { - Log3 ($name, 2, "DbLog $name - Database connection reopened (it was $delay seconds closed)."); + Log3 ($name, 2, "$name - Database connection reopened (it was $delay seconds closed)."); } DbLog_setReadingstate ($hash, 'reopened'); @@ -8434,8 +8434,8 @@ sub DbLog_checkUsePK { $upkh = 1 if(@pkh && @pkh ne "none"); $upkc = 1 if(@pkc && @pkc ne "none"); - Log3 ($name, 4, "DbLog $name - Primary Key used in $history: $pkh"); - Log3 ($name, 4, "DbLog $name - Primary Key used in $current: $pkc"); + Log3 ($name, 4, "$name - Primary Key used in $history: $pkh"); + Log3 ($name, 4, "$name - Primary Key used in $current: $pkc"); return ($upkh,$upkc,$pkh,$pkc); } @@ -8471,7 +8471,7 @@ sub DbLog_checkSyntaxValueFn { $err = perlSyntaxCheck ($func, %specials); - Log3 ($name, 1, "DbLog $name - Syntaxcheck <$devname> attribute DbLogValueFn: \n".$err) if($err && $devname); + Log3 ($name, 1, "$name - Syntaxcheck <$devname> attribute DbLogValueFn: \n".$err) if($err && $devname); $func =~ s/^\s*(\{.*\})\s*$/$1/s; @@ -9266,7 +9266,7 @@ return;
  • - get <name> configCheck
    + get <name> configCheck

      A number of key settings are reviewed and recommendations are made if potential improvements are identified.
    @@ -9297,8 +9297,8 @@ return;
    • - get <name> ReadingsMinVal[Timestamp] <Device> <Reading> <default> -
      + get <name> ReadingsMinVal[Timestamp] <Device> <Reading> <default>

      +
        Determines the record with the smallest value of the specified device / reading combination from the history table.
        Only the value or the combination of value and timestamp is returned as string @@ -9318,8 +9318,8 @@ return;
        • - get <name> ReadingsAvgVal <Device> <Reading> <default> -
          + get <name> ReadingsAvgVal <Device> <Reading> <default>

          +
            Determines the average value of the specified Device / Reading combination from the history table.
            The simple arithmetic average value is returned.
            @@ -9338,8 +9338,8 @@ return;
            • - get <name> ReadingsVal[Timestamp] <Device> <Reading> <default> -
              + get <name> ReadingsVal[Timestamp] <Device> <Reading> <default>

              +
                Reads the last (newest) record stored in the history table of the specified Device / Reading combination.
                @@ -9360,8 +9360,8 @@ return;
                • - get <name> ReadingsTimestamp <Device> <Reading> <default> -
                  + get <name> ReadingsTimestamp <Device> <Reading> <default>

                  +
                    Reads the timestamp of the last (newest) record stored in the history table of the specified Device/Reading combination and returns this value.
                    @@ -9380,8 +9380,7 @@ return;
                    • - get <name> retrieve <querytype> <device|table> <reading> <from> <to> <offset> <limit> -
                      + get <name> retrieve <querytype> <device|table> <reading> <from> <to> <offset> <limit>

                        Reads data from the database table history and returns the results formatted as JSON.
                        @@ -11142,7 +11141,7 @@ attr SMA_Energymeter DbLogValueFn
                      • - get <name> configCheck


                        + get <name> configCheck

                          Es werden einige wichtige Einstellungen geprüft und Empfehlungen gegeben falls potentielle Verbesserungen