diff --git a/fhem/contrib/DS_Starter/93_DbLog.pm b/fhem/contrib/DS_Starter/93_DbLog.pm index f3328bb82..04c42f3f6 100644 --- a/fhem/contrib/DS_Starter/93_DbLog.pm +++ b/fhem/contrib/DS_Starter/93_DbLog.pm @@ -1,5 +1,5 @@ ############################################################################################################################################ -# $Id: 93_DbLog.pm 20966 2020-01-13 21:13:47Z DS_Starter $ +# $Id: 93_DbLog.pm 21003 2020-01-17 19:56:36Z DS_Starter $ # # 93_DbLog.pm # written by Dr. Boris Neubert 2007-12-30 @@ -30,7 +30,8 @@ no if $] >= 5.017011, warnings => 'experimental::smartmatch'; # Version History intern by DS_Starter: our %DbLog_vNotesIntern = ( - "4.9.8" => "17.01.2020 extend configCheck with plotEmbed check. Forum: #107383 ", + "4.9.9" => "21.01.2020 default ParseEvent ", + "4.9.8" => "17.01.2020 adjust configCheck with plotEmbed check. Forum: #107383 ", "4.9.7" => "13.01.2020 change datetime pattern in valueFn of DbLog_addCacheLine. Forum: #107285 ", "4.9.6" => "04.01.2020 fix change off 4.9.4 in default splitting. Forum: #106992 ", "4.9.5" => "01.01.2020 do not reopen database connection if device is disabled (fix) ", @@ -999,7 +1000,7 @@ sub DbLog_ParseEvent($$$$) { if(!defined($reading)) { $reading = ""; } if(!defined($value)) { $value = ""; } if($value eq "") { # Default Splitting geändert 04.01.20 Forum: #106992 - if($reading =~ /:$/) { + if($reading =~ /^.*:\s+$/) { # und 21.01.20 Forum: 106769 $reading = (split(":", $reading))[0]; } else { $reading = "state"; @@ -3761,7 +3762,7 @@ sub DbLog_configcheck($) { } if($supd) { $check .= "Used DbLog version: $hash->{HELPER}{VERSION}.
$uptb
"; - $check .= "Recommendation: You should update FHEM to get the freshest DbLog version !

"; + $check .= "Recommendation: You should update FHEM to get the recent DbLog version from repository !

"; } else { $check .= "Used DbLog version: $hash->{HELPER}{VERSION}.
$uptb
"; $check .= "Recommendation: No update of DbLog is needed.

"; @@ -6084,12 +6085,12 @@ sub DbLog_setVersionInfo($) { if($modules{$type}{META}{x_prereqs_src} && !$hash->{HELPER}{MODMETAABSENT}) { # META-Daten sind vorhanden $modules{$type}{META}{version} = "v".$v; # Version aus META.json überschreiben, Anzeige mit {Dumper $modules{DbLog}{META}} - if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 93_DbLog.pm 20966 2020-01-13 21:13:47Z DS_Starter $ im Kopf komplett! vorhanden ) + if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 93_DbLog.pm 21003 2020-01-17 19:56:36Z DS_Starter $ im Kopf komplett! vorhanden ) $modules{$type}{META}{x_version} =~ s/1.1.1/$v/g; } else { $modules{$type}{META}{x_version} = $v; } - return $@ unless (FHEM::Meta::SetInternals($hash)); # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 93_DbLog.pm 20966 2020-01-13 21:13:47Z DS_Starter $ im Kopf komplett! vorhanden ) + return $@ unless (FHEM::Meta::SetInternals($hash)); # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 93_DbLog.pm 21003 2020-01-17 19:56:36Z DS_Starter $ im Kopf komplett! vorhanden ) if(__PACKAGE__ eq "FHEM::$type" || __PACKAGE__ eq $type) { # es wird mit Packages gearbeitet -> Perl übliche Modulversion setzen # mit {->VERSION()} im FHEMWEB kann Modulversion abgefragt werden