FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-29 23:47:10 +00:00
Code Issues Releases Wiki Activity

configDB.pm: added FileRead caching (experimental)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7678 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2015-01-23 18:41:10 +00:00
parent d18d80761c
commit 67efa8c39e
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/configDB.pm
View File

@ -99,6 +99,8 @@
# #
# 2015-01-23 - changed attribute handling for internal configDB attrs # 2015-01-23 - changed attribute handling for internal configDB attrs
# #
# 2015-01-23 - added FileRead() caching - experimental
#
############################################################################## ##############################################################################
# #
@ -293,7 +295,7 @@ sub cfgDB_AttrRead($) {
sub cfgDB_FileRead($) { sub cfgDB_FileRead($) {
my ($filename) = @_; my ($filename) = @_;
if ($configDB{cache}{$filename}) { if ($configDB{cache}{$filename} && $configDB{attr}{useCache}) {
Log3(undef, 4, "configDB serving from cache: $filename"); Log3(undef, 4, "configDB serving from cache: $filename");
return (undef,split(/\n/,$configDB{cache}{$filename})); return (undef,split(/\n/,$configDB{cache}{$filename}));
} }
@ -307,8 +309,10 @@ sub cfgDB_FileRead($) {
$fhem_dbh->disconnect(); $fhem_dbh->disconnect();
$counter = length($blobContent); $counter = length($blobContent);
if($counter) { if($counter) {
Log3(undef,4,"configDB caching: $filename"); if ($configDB{attr}{useCache}) {
$configDB{cache}{$filename} = $blobContent; Log3(undef,4,"configDB caching: $filename");
$configDB{cache}{$filename} = $blobContent;
}
@ret = split(/\n/,$blobContent); @ret = split(/\n/,$blobContent);
$err = ""; $err = "";
} else { } else {
@ -319,8 +323,10 @@ sub cfgDB_FileRead($) {
} }
sub cfgDB_FileWrite($@) { sub cfgDB_FileWrite($@) {
my ($filename,@content) = @_; my ($filename,@content) = @_;
Log3(undef,4,"configDB delete from cache: $filename"); if ($configDB{attr}{useCache}) {
$configDB{cache}{$filename} = undef; Log3(undef,4,"configDB delete from cache: $filename");
$configDB{cache}{$filename} = undef;
}
Log3(undef, 4, "configDB writing file: $filename"); Log3(undef, 4, "configDB writing file: $filename");
my $fhem_dbh = _cfgDB_Connect; my $fhem_dbh = _cfgDB_Connect;
$fhem_dbh->do("delete from fhembinfilesave where filename = '$filename'"); $fhem_dbh->do("delete from fhembinfilesave where filename = '$filename'");