Handle IP address regexps

This commit is contained in:
Jamie Cameron
2008-02-02 00:35:33 +00:00
parent 4205a6b05e
commit 1deb5d613b

View 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;