From 1deb5d613b18c8c63d0dde82fe63bb189bd28cf4 Mon Sep 17 00:00:00 2001 From: Jamie Cameron Date: Sat, 2 Feb 2008 00:35:33 +0000 Subject: [PATCH] Handle IP address regexps --- syslog-ng/syslog-ng-lib.pl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/syslog-ng/syslog-ng-lib.pl b/syslog-ng/syslog-ng-lib.pl index b90e2aad5..f2c47b4ce 100644 --- a/syslog-ng/syslog-ng-lib.pl +++ b/syslog-ng/syslog-ng-lib.pl @@ -77,6 +77,10 @@ while($line = ) { # regular word push(@ltok, $1); $line = $2; } + elsif ($line =~ /^\s*([0-9\[\]\-]+\.[0-9\[\]\-]+\.[0-9\[\]\-]+\.[0-9\[\]\-]+)(.*)$/) { + # IP address regexp + push(@ltok, $1); $line = $2; + } elsif ($line =~ /^\s*(\d+\.\d+\.\d+\.\d+)(.*)$/) { # IP address push(@ltok, $1); $line = $2;