Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

DBLog: Fix the following errors:

Browse Source 
Use of uninitialized value $modifier in string eq at fhem.pl line 3343.
    Use of uninitialized value $perlCode in eval "string" at fhem.pl line 3321



git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3855 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tobiasfaust 2013-09-04 17:57:38 +00:00
parent a7bf9e5df8
commit e45e3231b1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
FHEM/93_DbLog.pm
View File

@ -404,10 +404,10 @@ DbLog_Log($$)
for (my $i=0; $i<int(@v1); $i++) { for (my $i=0; $i<int(@v1); $i++) {
my @v2 = split(/:/, $v1[$i]); my @v2 = split(/:/, $v1[$i]);
$DoIt = 0 if(!$v2[1] && $reading =~ m/^$v2[0]$/); #Reading matcht auf Regexp, kein MinIntervall angegeben $DoIt = 0 if(!$v2[1] && $reading =~ m/^$v2[0]$/); #Reading matcht auf Regexp, kein MinIntervall angegeben
if(($reading =~ m/^$v2[0]$/) && ($v2[1] =~ m/^(\d+)$/)) { if(($v2[1] && $reading =~ m/^$v2[0]$/) && ($v2[1] =~ m/^(\d+)$/)) {
#Regexp matcht und MinIntervall ist angegeben #Regexp matcht und MinIntervall ist angegeben
my $lt = $defs{$dev->{NAME}}{'.userReadings'}{$reading}{"DBLOG_".$log->{NAME}}{TIME}; my $lt = $defs{$dev->{NAME}}{Helper}{DBLOG}{$reading}{$log->{NAME}}{TIME};
my $lv = $defs{$dev->{NAME}}{'.userReadings'}{$reading}{"DBLOG_".$log->{NAME}}{VALUE}; my $lv = $defs{$dev->{NAME}}{Helper}{DBLOG}{$reading}{$log->{NAME}}{VALUE};
$lt = 0 if(!$lt); $lt = 0 if(!$lt);
$lv = "" if(!$lv); $lv = "" if(!$lv);
@ -420,8 +420,8 @@ DbLog_Log($$)
} }
next if($DoIt == 0); next if($DoIt == 0);
$defs{$dev->{NAME}}{'.userReadings'}{$reading}{"DBLOG_".$log->{NAME}}{TIME} = $now; $defs{$dev->{NAME}}{Helper}{DBLOG}{$reading}{$log->{NAME}}{TIME} = $now;
$defs{$dev->{NAME}}{'.userReadings'}{$reading}{"DBLOG_".$log->{NAME}}{VALUE} = $value; $defs{$dev->{NAME}}{Helper}{DBLOG}{$reading}{$log->{NAME}}{VALUE} = $value;
my @is= ($ts, $n, $t, $s, $reading, $value, $unit); my @is= ($ts, $n, $t, $s, $reading, $value, $unit);