Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-07 22:29:19 +00:00
Code

93_DbRep: contrib 8.27.2

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@20258 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2019-09-27 07:43:09 +00:00
parent 3842a2ad54
commit 51e1e2477f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/DS_Starter/93_DbRep.pm
View File

@ -58,7 +58,7 @@ no if $] >= 5.017011, warnings => 'experimental::smartmatch';
# Version History intern # Version History intern
our %DbRep_vNotesIntern = ( our %DbRep_vNotesIntern = (
"8.27.2" => "26.09.2019 fix log of export data to file ", "8.27.2" => "26.09.2019 fix export data to file ",
"8.27.1" => "22.09.2019 comma are shown in sqlCmdHistory, Forum: #103908 ", "8.27.1" => "22.09.2019 comma are shown in sqlCmdHistory, Forum: #103908 ",
"8.27.0" => "15.09.2019 save memory usage by eliminating \$hash -> {dbloghash}, fix warning uninitialized value \$idevice in split ", "8.27.0" => "15.09.2019 save memory usage by eliminating \$hash -> {dbloghash}, fix warning uninitialized value \$idevice in split ",
"8.26.0" => "07.09.2019 make SQL Wildcard (\%) possible as placeholder in a reading list: https://forum.fhem.de/index.php/topic,101756.0.html ". "8.26.0" => "07.09.2019 make SQL Wildcard (\%) possible as placeholder in a reading list: https://forum.fhem.de/index.php/topic,101756.0.html ".
@ -5068,6 +5068,7 @@ sub deldoublets_DoParse($) {
$dev =~ s/'/''/g; # escape ' with '' $dev =~ s/'/''/g; # escape ' with ''
$read =~ s/'/''/g; # escape ' with '' $read =~ s/'/''/g; # escape ' with ''
$val =~ s/'/''/g; # escape ' with '' $val =~ s/'/''/g; # escape ' with ''
$val =~ s/\\/\\\\/g; # escape ' with ''
$st = [gettimeofday]; $st = [gettimeofday];
my $dsql = "delete FROM $table WHERE TIMESTAMP = '$dt' AND DEVICE = '$dev' AND READING = '$read' AND VALUE = '$val' limit $limit;"; my $dsql = "delete FROM $table WHERE TIMESTAMP = '$dt' AND DEVICE = '$dev' AND READING = '$read' AND VALUE = '$val' limit $limit;";
my $sthd = $dbh->prepare($dsql); my $sthd = $dbh->prepare($dsql);
@ -5422,7 +5423,6 @@ sub expfile_DoParse($) {
} }
$rsf =~ s/[:\s]/_/g; $rsf =~ s/[:\s]/_/g;
# my ($f,$e) = split(/\./,$file);
my ($f,$e) = $file =~ /(.*)\.(.*)/; my ($f,$e) = $file =~ /(.*)\.(.*)/;
$e = $e?$e:""; $e = $e?$e:"";
$f =~ s/%TSB/$rsf/g; $f =~ s/%TSB/$rsf/g;