From 5b4422b0cb5680a2c628274f98cf9acbebb3705b Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Wed, 29 Jun 2011 15:08:26 -0400
Subject: [PATCH] Don't modify existing rules

---
 firewall/open-ports.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/firewall/open-ports.pl b/firewall/open-ports.pl
index 82dc74a5b..4cb5f06fe 100755
--- a/firewall/open-ports.pl
+++ b/firewall/open-ports.pl
@@ -67,8 +67,9 @@ PORT: foreach $p (@ARGV) {
 	print STDERR "Checking for port $p ..\n";
 	foreach $r (@{$filter->{'rules'}}) {
 		if ($r->{'chain'} eq 'INPUT' &&
-		    $r->{'j'}->[1] eq 'ACCEPT' &&
-		    $r->{'p'}->[0] eq '' && $r->{'p'}->[1] eq 'tcp') {
+		    $r->{'j'} && $r->{'j'}->[1] eq 'ACCEPT' &&
+		    $r->{'p'} && $r->{'p'}->[0] eq '' &&
+		    $r->{'p'}->[1] eq 'tcp') {
 			# Found tcp rule .. check ports
 			@rports = ( );
 			if ($r->{'dports'} && $r->{'dports'}->[0] eq '') {