Fix iptables parsing

diff --git a/firewall/firewall-lib.pl b/firewall/firewall-lib.pl
index 2739586..71544b4 100755 (executable)
--- a/firewall/firewall-lib.pl
+++ b/firewall/firewall-lib.pl
@@ -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,