From e754638e4f53ebad53e39e75c79f6287bce26bf4 Mon Sep 17 00:00:00 2001 From: betateilchen <> Date: Sat, 17 Feb 2018 19:07:37 +0000 Subject: [PATCH] configDB.pm: remove experimental cache mechanism git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@16205 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- configDB.pm | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/configDB.pm b/configDB.pm index 5b14e7271..85eb00202 100644 --- a/configDB.pm +++ b/configDB.pm @@ -126,6 +126,8 @@ # # 2017-08-31 - changed improve table_info for migration check # +# 2018-02-17 - changed. remove experimenatal cache functions +# ############################################################################## =cut @@ -395,10 +397,10 @@ sub cfgDB_AttrRead($) { sub cfgDB_FileRead($) { my ($filename) = @_; - if ($configDB{cache}{$filename} && $configDB{attr}{useCache}) { - Log3(undef, 4, "configDB serving from cache: $filename"); - return (undef,split(/\n/,$configDB{cache}{$filename})); - } +# if ($configDB{cache}{$filename} && $configDB{attr}{useCache}) { +# Log3(undef, 4, "configDB serving from cache: $filename"); +# return (undef,split(/\n/,$configDB{cache}{$filename})); +# } Log3(undef, 4, "configDB reading file: $filename"); my ($err, @ret, $counter); @@ -411,10 +413,10 @@ sub cfgDB_FileRead($) { $blobContent = decode_base64($blobContent) if ($blobContent); $counter = length($blobContent); if($counter) { - if ($configDB{attr}{useCache}) { - Log3(undef,4,"configDB caching: $filename"); - $configDB{cache}{$filename} = $blobContent; - } +# if ($configDB{attr}{useCache}) { +# Log3(undef,4,"configDB caching: $filename"); +# $configDB{cache}{$filename} = $blobContent; +# } @ret = split(/\n/,$blobContent); $err = ""; } else { @@ -425,10 +427,10 @@ sub cfgDB_FileRead($) { } sub cfgDB_FileWrite($@) { my ($filename,@content) = @_; - if ($configDB{attr}{useCache}) { - Log3(undef,4,"configDB delete from cache: $filename"); - $configDB{cache}{$filename} = undef; - } +# if ($configDB{attr}{useCache}) { +# Log3(undef,4,"configDB delete from cache: $filename"); +# $configDB{cache}{$filename} = undef; +# } Log3(undef, 4, "configDB writing file: $filename"); my $fhem_dbh = _cfgDB_Connect; $fhem_dbh->do("delete from fhemb64filesave where filename = '$filename'");