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

93_DbLog: contrib 5.3.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26806 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2022-12-06 21:51:50 +00:00
parent 454e0dbb89
commit 01f31e4e7b
1 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3751,7 +3751,6 @@ sub _DbLog_SBP_onRun_deleteOldDays {
my $args = $memc->{arguments};
my $error = q{};
my $errorh = q{};
my $numdel = 0;
my $ret;
my $retjson;
@@ -3778,16 +3777,16 @@ sub _DbLog_SBP_onRun_deleteOldDays {
eval { $numdel = $dbh->do($cmd);
1;
}
or do { $errorh = $@;
or do { $error = $@;
Log3 ($name, 2, "DbLog $name - Error table $history - $errorh");
Log3 ($name, 2, "DbLog $name - Error table $history - $error");
$dbh->disconnect();
delete $store->{dbh};
$ret = {
name => $name,
msg => $@,
msg => $error,
ot => 0,
oper => $operation
};
@@ -3815,7 +3814,7 @@ sub _DbLog_SBP_onRun_deleteOldDays {
numdel => $numdel
};
my $retjson = eval { encode_json($ret) };
$retjson = eval { encode_json($ret) };
$subprocess->writeToParent ($retjson);
return;
@@ -3839,7 +3838,6 @@ sub _DbLog_SBP_onRun_userCommand {
my $sql = $memc->{arguments};
my $error = q{};
my $errorh = q{};
my $res;
my $ret;
my $retjson;
@@ -3851,16 +3849,16 @@ sub _DbLog_SBP_onRun_userCommand {
eval { $res = $dbh->selectrow_array($sql);
1;
}
or do { $errorh = $@;
or do { $error = $@;
Log3 ($name, 2, "DbLog $name - Error - $errorh");
Log3 ($name, 2, "DbLog $name - Error - $error");
$dbh->disconnect();
delete $store->{dbh};
$ret = {
name => $name,
msg => $@,
msg => $error,
ot => 0,
oper => $operation
};
@@ -3886,7 +3884,7 @@ sub _DbLog_SBP_onRun_userCommand {
res => $res
};
my $retjson = eval { encode_json($ret) };
$retjson = eval { encode_json($ret) };
$subprocess->writeToParent ($retjson);
return;