diff --git a/fhem/contrib/93_Log2Syslog.pm b/fhem/contrib/93_Log2Syslog.pm index 8873d5dd2..cb327c909 100644 --- a/fhem/contrib/93_Log2Syslog.pm +++ b/fhem/contrib/93_Log2Syslog.pm @@ -30,6 +30,7 @@ ###################################################################################################################### # Versions History: # +# 4.8.1 12.08.2018 IETF-Syslog without VERSION changed, Log verbose 1 to 2 changed in parsePayload # 4.8.0 12.08.2018 enhanced IETF Parser to match logs without version # 4.7.0 10.08.2018 Parser for TPLink # 4.6.1 10.08.2018 some perl warnings, changed IETF Parser @@ -80,7 +81,7 @@ eval "use Net::Domain qw(hostname hostfqdn hostdomain domainname);1" or my $Mis # sub Log2Syslog_Log3slog($$$); -my $Log2SyslogVn = "4.8.0"; +my $Log2SyslogVn = "4.8.1"; # Mappinghash BSD-Formatierung Monat my %Log2Syslog_BSDMonth = ( @@ -507,7 +508,7 @@ sub Log2Syslog_parsePayload($$) { if(!$prival) { $err = 1; - Log2Syslog_Log3slog ($hash, 1, "Log2Syslog $name - error parse msg -> $data"); + Log2Syslog_Log3slog ($hash, 2, "Log2Syslog $name - error parse msg -> $data"); } else { if(looks_like_number($prival)) { @@ -566,7 +567,7 @@ sub Log2Syslog_parsePayload($$) { } } else { # IETF-Syslog ohne VERSION - $data =~ /^<(?\d{1,3})>(?\d{4}-\d{2}-\d{2})T(?