diff --git a/fhem/contrib/93_Log2Syslog.pm b/fhem/contrib/93_Log2Syslog.pm index 56ad66cab..8873d5dd2 100644 --- a/fhem/contrib/93_Log2Syslog.pm +++ b/fhem/contrib/93_Log2Syslog.pm @@ -30,6 +30,7 @@ ###################################################################################################################### # Versions History: # +# 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 # 4.6.0 08.08.2018 set sendTestMessage added, Attribute "contDelimiter", "sendSeverity" @@ -79,7 +80,7 @@ eval "use Net::Domain qw(hostname hostfqdn hostdomain domainname);1" or my $Mis # sub Log2Syslog_Log3slog($$$); -my $Log2SyslogVn = "4.7.0"; +my $Log2SyslogVn = "4.8.0"; # Mappinghash BSD-Formatierung Monat my %Log2Syslog_BSDMonth = ( @@ -539,25 +540,52 @@ sub Log2Syslog_parsePayload($$) { } elsif ($pp eq "IETF") { # IETF Protokollformat https://tools.ietf.org/html/rfc5424 - # Beispiel data "<$prival>1 $tim $host $id $pid $mid - : $otp"; -# $data =~ /^<(?\d{1,3})>(?\d+)\s(?\d{4}-\d{2}-\d{2})T(?