Commit 28d46263 authored by Mike Hibler's avatar Mike Hibler
Browse files

Botch in firewall setup. This makes the script forward-compatible.

parent 52b2c206
......@@ -861,6 +861,7 @@ sub getfwconfig($$)
my $fwpat = q(TYPE=([\w-]+) STYLE=(\w+) IN_IF=(\w*) OUT_IF=(\w*) IN_VLAN=(\d+) OUT_VLAN=(\d+));
my $rpat = q(RULENO=(\d*) RULE="(.*)");
$fwinfo->{"TYPE"} = "none";
foreach my $line (@tmccresults) {
if ($line =~ /TYPE=([\w-]+)/) {
my $type = $1;
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment