mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

93_DbLog: configCheck for SQLite changed again

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@22246 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2020-06-23 21:12:11 +00:00
parent 67d9234635
commit 4d78c0135e
1 changed files with 17 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
fhem/FHEM/93_DbLog.pm
View File

@@ -29,7 +29,8 @@ use HttpUtils;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
# Version History intern by DS_Starter:
our %DbLog_vNotesIntern = (
my %DbLog_vNotesIntern = (
"4.10.2" => "23.06.2020 configCheck changed for SQLite again ",
"4.10.1" => "22.06.2020 configCheck changed for SQLite ",
"4.10.0" => "22.05.2020 improve configCheck, new vars \$LASTTIMESTAMP and \$LASTVALUE in valueFn / DbLogValueFn, Forum:#111423 ",
"4.9.13" => "12.05.2020 commandRef changed, AutoInactiveDestroy => 1 for dbh ",
@@ -4102,14 +4103,14 @@ sub DbLog_configcheck($) {
}
if($dbmodel =~ /SQLITE/) {
my $dev = (DbLog_sqlget($hash,"SELECT sql FROM sqlite_master WHERE name = '$current'"))[0];
$cdat_dev = $dev?$dev:"no result";
$cdat_dev = $dev // "no result";
$cdat_typ = $cdat_evt = $cdat_rdg = $cdat_val = $cdat_unt = $cdat_dev;
$cdat_dev =~ s/.*DEVICE.varchar\(([\d]*)\).*/$1/e;
$cdat_typ =~ s/.*TYPE.varchar\(([\d]*)\).*/$1/e;
$cdat_evt =~ s/.*EVENT.varchar\(([\d]*)\).*/$1/e;
$cdat_rdg =~ s/.*READING.varchar\(([\d]*)\).*/$1/e;
$cdat_val =~ s/.*VALUE.varchar\(([\d]*)\).*/$1/e;
$cdat_unt =~ s/.*UNIT.varchar\(([\d]*)\).*/$1/e;
($cdat_dev) = $cdat_dev =~ /DEVICE.varchar\(([\d]+)\)/x;
($cdat_typ) = $cdat_typ =~ /TYPE.varchar\(([\d]+)\)/x;
($cdat_evt) = $cdat_evt =~ /EVENT.varchar\(([\d]+)\)/x;
($cdat_rdg) = $cdat_rdg =~ /READING.varchar\(([\d]+)\)/x;
($cdat_val) = $cdat_val =~ /VALUE.varchar\(([\d]+)\)/x;
($cdat_unt) = $cdat_unt =~ /UNIT.varchar\(([\d]+)\)/x;
}
if ($dbmodel !~ /SQLITE/) {
$cdat_dev = @sr_dev?($sr_dev[1]):"no result";
@@ -4347,6 +4348,7 @@ sub DbLog_configcheck($) {
}
}
}
} else {
$check .= "No DbRep-device assigned to $name is used. Hence an index for DbRep isn't needed. <br>";
$rec = "settings o.k.";