93_DbLog: contrib 4.11.0

git-svn-id: https://svn.fhem.de/fhem/trunk@23788 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2021-02-20 17:09:41 +00:00
parent ad7b608d89
commit a0acba47fb

View File

@@ -312,15 +312,14 @@ return;
sub DbLog_Define {
my ($hash, $def) = @_;
my $name = $hash->{NAME};
my @a = split("[ \t][ \t]*", $def);
my @a = split "[ \t][ \t]*", $def;
if($DbLogMMDBI) {
Log3($name, 1, "DbLog $name - ERROR - Perl module ".$DbLogMMDBI." is missing. DbLog module is not loaded ! On Debian systems you can install it with \"sudo apt-get install libdbi-perl\" ");
return "Error: Perl module ".$DbLogMMDBI." is missing. Install it on Debian with: sudo apt-get install libdbi-perl";
}
return "wrong syntax: define <name> DbLog configuration regexp"
if(int(@a) != 4);
return "wrong syntax: define <name> DbLog configuration regexp" if(int(@a) != 4);
$hash->{CONFIGURATION} = $a[2];
my $regexp = $a[3];