Allow _ and - in extended messages key names

6 years ago · 2791d32e7c
parent 419c00a1dd
commit 2791d32e7c
1 changed files with 1 additions and 1 deletions
--- a/2
+++ b/2
@ -168,7 +168,7 @@ while ( my $entry = <JOURNAL> ){
  # OR
  #
  # gelf(~):code=200~url=/index.html~remote_ip=10.99.5.12~referer=http://test.local/
-  if ( $msg->{MESSAGE} =~ m/^gelf(\([^\(\)]+\))?:([a-zA-Z\d]+=([^\|])\|?)+/ ){
+  if ( $msg->{MESSAGE} =~ m/^gelf(\([^\(\)]+\))?:([a-zA-Z\d_\-]+=([^\|])\|?)+/ ){
    $msg->{MESSAGE} =~ s/^gelf(\([^\(\)]+\))?://;
    my $separator = ($1 && length $1 > 0) ? qr{$1} : qr{\|};
    foreach ( split /$separator/, $msg->{MESSAGE} ){