93_DbLog: contrib 5.3.0

git-svn-id: https://svn.fhem.de/fhem/trunk@26795 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2022-12-06 12:42:48 +00:00
parent 7fb049210c
commit 2d5fec3e64

View File

@@ -1471,7 +1471,7 @@ sub DbLog_Log {
my $log4rel = $vb4show && !$hash->{HELPER}{LONGRUN_PID} ? 1 : 0; my $log4rel = $vb4show && !$hash->{HELPER}{LONGRUN_PID} ? 1 : 0;
if(AttrVal ($name, 'verbose', 3) =~ /[45]/) { if(AttrVal ($name, 'verbose', 3) =~ /[45]/xs) {
if($log4rel) { if($log4rel) {
Log3 ($name, 4, "DbLog $name - ################################################################"); Log3 ($name, 4, "DbLog $name - ################################################################");
Log3 ($name, 4, "DbLog $name - ### start of new Logcycle ###"); Log3 ($name, 4, "DbLog $name - ### start of new Logcycle ###");
@@ -2870,7 +2870,7 @@ sub DbLog_execMemCacheSync {
my $name = $hash->{NAME}; my $name = $hash->{NAME};
if(AttrVal ($name, 'verbose', 3) =~ /[45]/) { if(AttrVal ($name, 'verbose', 3) =~ /[45]/xs) {
Log3 ($name, 4, "DbLog $name - ################################################################"); Log3 ($name, 4, "DbLog $name - ################################################################");
Log3 ($name, 4, "DbLog $name - ### New database processing cycle - SBP synchronous ###"); Log3 ($name, 4, "DbLog $name - ### New database processing cycle - SBP synchronous ###");
Log3 ($name, 4, "DbLog $name - ################################################################"); Log3 ($name, 4, "DbLog $name - ################################################################");
@@ -2880,7 +2880,7 @@ sub DbLog_execMemCacheSync {
my $memc; my $memc;
for my $key (sort(keys %{$data{DbLog}{$name}{cache}{memcache}})) { for my $key (sort(keys %{$data{DbLog}{$name}{cache}{memcache}})) {
Log3 ($name, 5, "DbLog $name - MemCache contains: $key -> ".$data{DbLog}{$name}{cache}{memcache}{$key}); Log3 ($name, 5, "DbLog $name - Store contains: $key -> ".$data{DbLog}{$name}{cache}{memcache}{$key});
$memc->{cdata}{$key} = delete $data{DbLog}{$name}{cache}{memcache}{$key}; # Subprocess Daten, z.B.: 2022-11-29 09:33:32|SolCast|SOLARFORECAST||nextCycletime|09:33:47| $memc->{cdata}{$key} = delete $data{DbLog}{$name}{cache}{memcache}{$key}; # Subprocess Daten, z.B.: 2022-11-29 09:33:32|SolCast|SOLARFORECAST||nextCycletime|09:33:47|
} }