Fix iptables parsing

This commit is contained in:
Jamie Cameron
2010-06-14 00:19:02 -07:00
parent 818c2e1635
commit cbbae5ecad

View File

@ -73,7 +73,7 @@ while(<FILE>) {
# New chain definition
$table->{'defaults'}->{$2} = '-';
}
elsif (/^(\[[^\]]*\]\s+)?-(AI)\s+(\S+)(.*)/) {
elsif (/^(\[[^\]]*\]\s+)?-(A|I)\s+(\S+)(.*)/) {
# Rule definition
local $rule = { 'line' => $lnum,
'eline' => $lnum,