Handle IP address regexps
authorJamie Cameron <jcameron@webmin.com>
Sat, 2 Feb 2008 00:35:33 +0000 (00:35 +0000)
committerJamie Cameron <jcameron@webmin.com>
Sat, 2 Feb 2008 00:35:33 +0000 (00:35 +0000)
syslog-ng/syslog-ng-lib.pl

index b90e2aa..f2c47b4 100644 (file)
@@ -77,6 +77,10 @@ while($line = <CONF>) {
                        # 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;