FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-08 07:24:21 +00:00
Code Issues Releases Wiki Activity

93_DbRep: contrib v 8.47.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25476 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2022-01-16 19:33:37 +00:00
parent 8564b44f73
commit 09f302dd35
1 changed files with 28 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
fhem/contrib/DS_Starter/93_DbRep.pm
View File

@ -11443,7 +11443,7 @@ sub DbRep_initSQLcmdCache {
$count++; $count++;
} }
Log3 ($name, 4, qq{DbRep $name - SQL history restored from Cache file - count: "$count"}) if($count); Log3 ($name, 4, qq{DbRep $name - SQL history restored from Cache file - count: $count}) if($count);
} }
return; return;
@ -11474,26 +11474,37 @@ sub DbRep_addSQLcmdCache {
} }
} }
_DbRep_insertSQLtoCache ($name, $tmpsql) if($doIns); if($doIns) {
_DbRep_insertSQLtoCache ($name, $tmpsql);
my (undef, $cstr) = DbRep_listSQLcmdCache ($name);
DbRep_setCmdFile($name."_sqlCmdList", $cstr, $hash) if($cstr); my (undef, $cstr) = DbRep_listSQLcmdCache ($name, 1);
DbRep_setCmdFile($name."_sqlCmdList", $cstr, $hash) if($cstr);
}
return; return;
} }
#################################################################################################### ####################################################################################################
# SQL Cache listen # SQL Cache listen
# $write: 0 - listen für Anzeige bzw. Drop-Down Liste
# 1 - erzeuge Liste zum Schreiben in Cache File
#################################################################################################### ####################################################################################################
sub DbRep_listSQLcmdCache { sub DbRep_listSQLcmdCache {
my $name = shift; my $name = shift;
my $write = shift // 0;
my $cache; my $cache;
my $cstr = q{}; my $cstr = q{};
for my $key (sort{$b<=>$a} keys %{$data{DbRep}{$name}{sqlcache}{cmd}}) { for my $key (sort{$b<=>$a} keys %{$data{DbRep}{$name}{sqlcache}{cmd}}) {
$cache .= $key." => ".$data{DbRep}{$name}{sqlcache}{cmd}{$key}."\n"; $cache .= $key." => ".$data{DbRep}{$name}{sqlcache}{cmd}{$key}."\n";
$cstr .= _DbRep_convertSQL ($data{DbRep}{$name}{sqlcache}{cmd}{$key}).",";
if ($write) {
$cstr .= $key."|=>|"._DbRep_convertSQL ($data{DbRep}{$name}{sqlcache}{cmd}{$key}).",";
}
else {
$cstr .= _DbRep_convertSQL ($data{DbRep}{$name}{sqlcache}{cmd}{$key}).",";
}
} }
return ($cache,$cstr); return ($cache,$cstr);
@ -11506,9 +11517,16 @@ sub _DbRep_insertSQLtoCache {
my $name = shift; my $name = shift;
my $cmd = shift; my $cmd = shift;
$data{DbRep}{$name}{sqlcache}{index}++; if ($cmd =~ /\|=\>\|/xs) {
my $index = $data{DbRep}{$name}{sqlcache}{index}; my ($k,$v) = split /\|=\>\|/, $cmd, 2;
$data{DbRep}{$name}{sqlcache}{cmd}{$index} = $cmd; $data{DbRep}{$name}{sqlcache}{cmd}{$k} = $v;
$data{DbRep}{$name}{sqlcache}{index} = $k if($k > $data{DbRep}{$name}{sqlcache}{index});
}
else {
$data{DbRep}{$name}{sqlcache}{index}++;
my $index = $data{DbRep}{$name}{sqlcache}{index};
$data{DbRep}{$name}{sqlcache}{cmd}{$index} = $cmd;
}
return if(!$init_done); # nicht beim initialen Laden ausführen return if(!$init_done); # nicht beim initialen Laden ausführen