extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-15 04:04:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

Minor tweak to Shorewall::Zones

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@9724 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2009-03-21 22:46:16 +00:00
parent bb8e562d18
commit 1ff093b1c0
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Shorewall/Perl/Shorewall/Zones.pm
View File

@ -201,7 +201,7 @@ sub parse_zone_option_list($$)
#
# Hash of options that have their own key in the returned hash.
#
my %key = ( mss => "mss" );
my %key = ( mss => 'mss' );
my ( $list, $zonetype ) = @_;
my %h;
@ -284,8 +284,6 @@ sub determine_zones()
fatal_error "Invalid zone name ($zone)" if $reservedName{$zone} || $zone =~ /^all2|2all$/;
fatal_error( "Duplicate zone name ($zone)" ) if $zones{$zone};
$type = IP unless $type;
if ( $type =~ /ipv4/i ) {
fatal_error "Invalid zone type ($type)" if $family == F_IPV6;
$type = IP;
@ -332,6 +330,7 @@ sub determine_zones()
hosts => {}
};
push @z, $zone;
}
fatal_error "No firewall zone defined" unless $firewall_zone;
@ -588,7 +587,7 @@ sub all_zones() {
}
sub non_firewall_zones() {
grep ( $zones{$_}{type} != FIREWALL , @zones );
grep ( $zones{$_}{type} != FIREWALL , @zones );
}
sub complex_zones() {