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

93_DbLog: contrib 5.2.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26780 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2022-12-05 10:15:41 +00:00
parent 718d2d57f3
commit 610f2f7151
1 changed files with 36 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
fhem/contrib/DS_Starter/93_DbLog.pm
View File

@ -268,9 +268,11 @@ my %DbLog_vNotesIntern = (
############### ###############
my %DbLog_hset = ( # Hash der Set-Funktion my %DbLog_hset = ( # Hash der Set-Funktion
listCache => { fn => \&_setlistCache }, listCache => { fn => \&_DbLog_setlistCache },
clearReadings => { fn => \&_setclearReadings }, clearReadings => { fn => \&_DbLog_setclearReadings },
eraseReadings => { fn => \&_seteraseReadings }, eraseReadings => { fn => \&_DbLog_seteraseReadings },
stopSubProcess => { fn => \&_DbLog_setstopSubProcess },
purgeCache => { fn => \&_DbLog_setpurgeCache },
); );
my %DbLog_columns = ("DEVICE" => 64, my %DbLog_columns = ("DEVICE" => 64,
@ -840,11 +842,6 @@ sub DbLog_Set {
$ret = "reduceLogNbl error, no <days> given."; $ret = "reduceLogNbl error, no <days> given.";
} }
} }
elsif ($opt eq 'stopSubProcess') {
DbLog_SBP_CleanUp ($hash); # SubProcess beenden
$ret = 'SubProcess stopped and will be automatically restarted if needed';
DbLog_setReadingstate ($hash, $ret);
}
elsif ($opt eq 'addLog') { elsif ($opt eq 'addLog') {
unless ($prop) { return "The argument of $opt is not valid. Please check commandref.";} unless ($prop) { return "The argument of $opt is not valid. Please check commandref.";}
my $nce = ("\!useExcludes" ~~ @a) ? 1 : 0; my $nce = ("\!useExcludes" ~~ @a) ? 1 : 0;
@ -940,10 +937,6 @@ sub DbLog_Set {
$ret = "Rereadcfg executed."; $ret = "Rereadcfg executed.";
} }
elsif ($opt eq 'purgeCache') {
delete $data{DbLog}{$name}{cache};
readingsSingleUpdate($hash, 'CacheUsage', 0, 1);
}
elsif ($opt eq 'commitCache') { elsif ($opt eq 'commitCache') {
DbLog_execMemCacheAsync ($hash); DbLog_execMemCacheAsync ($hash);
} }
@ -1236,7 +1229,7 @@ return $ret;
################################################################ ################################################################
# Setter listCache # Setter listCache
################################################################ ################################################################
sub _setlistCache { ## no critic "not used" sub _DbLog_setlistCache { ## no critic "not used"
my $paref = shift; my $paref = shift;
my $name = $paref->{name}; my $name = $paref->{name};
@ -1256,7 +1249,7 @@ return $cache;
################################################################ ################################################################
# Setter clearReadings # Setter clearReadings
################################################################ ################################################################
sub _setclearReadings { ## no critic "not used" sub _DbLog_setclearReadings { ## no critic "not used"
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
my $name = $paref->{name}; my $name = $paref->{name};
@ -1274,7 +1267,7 @@ return;
################################################################ ################################################################
# Setter eraseReadings # Setter eraseReadings
################################################################ ################################################################
sub _seteraseReadings { ## no critic "not used" sub _DbLog_seteraseReadings { ## no critic "not used"
my $paref = shift; my $paref = shift;
my $name = $paref->{name}; my $name = $paref->{name};
@ -1287,6 +1280,34 @@ sub _seteraseReadings { ## no critic "not used"
return; return;
} }
################################################################
# Setter stopSubProcess
################################################################
sub _DbLog_setstopSubProcess { ## no critic "not used"
my $paref = shift;
my $hash = $paref->{hash};
DbLog_SBP_CleanUp ($hash); # SubProcess beenden
my $ret = 'SubProcess stopped and will be automatically restarted if needed';
DbLog_setReadingstate ($hash, $ret);
return $ret;
}
################################################################
# Setter purgeCache
################################################################
sub _DbLog_setpurgeCache { ## no critic "not used"
my $paref = shift;
my $hash = $paref->{hash};
my $name = $paref->{name};
delete $data{DbLog}{$name}{cache};
readingsSingleUpdate($hash, 'CacheUsage', 0, 1);
return 'Memory Cache purged';
}
################################################################################################################## ##################################################################################################################
# #
# Hauptroutine zum Loggen. Wird bei jedem Eventchange # Hauptroutine zum Loggen. Wird bei jedem Eventchange