More tweaking

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@7325 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-09-11 20:56:35 +00:00
parent 63f74768e2
commit a9708f1baa

View File

@ -735,20 +735,22 @@ sub finish_section ( $ ) {
for my $zone ( all_zones ) { for my $zone ( all_zones ) {
for my $zone1 ( all_zones ) { for my $zone1 ( all_zones ) {
my $chainref = $chain_table{'filter'}{4}{"${zone}2${zone1}"}; for my $ipv ( IPv4, IPv6 ) {
my $chainref = $chain_table{'filter'}{$ipv}{"${zone}2${zone1}"};
if ( $chainref->{referenced} ) { if ( $chainref->{referenced} ) {
finish_chain_section $chainref, $sections; finish_chain_section $chainref, $sections;
} }
} }
} }
}
} }
# #
# Helper for set_mss # Helper for set_mss
# #
sub set_mss1( $$ ) { sub set_mss1( $$$ ) {
my ( $chain, $mss ) = @_; my ( $ipv, $chain, $mss ) = @_;
my $chainref = ensure_chain 'filter', IPv4, $chain; my $chainref = ensure_chain 'filter', $ipv, $chain;
if ( $chainref->{policy} ne 'NONE' ) { if ( $chainref->{policy} ne 'NONE' ) {
my $match = $capabilities{TCPMSS_MATCH} ? "-m tcpmss --mss $mss: " : ''; my $match = $capabilities{TCPMSS_MATCH} ? "-m tcpmss --mss $mss: " : '';
@ -762,14 +764,14 @@ sub set_mss1( $$ ) {
sub set_mss( $$$ ) { sub set_mss( $$$ ) {
my ( $zone, $mss, $direction) = @_; my ( $zone, $mss, $direction) = @_;
for my $z ( all_zones ) { for my $z ( all_ipv4_zones ) {
if ( $direction eq '_in' ) { if ( $direction eq '_in' ) {
set_mss1 "${zone}2${z}" , $mss; set_mss1 IPv4, "${zone}2${z}" , $mss;
} elsif ( $direction eq '_out' ) { } elsif ( $direction eq '_out' ) {
set_mss1 "${z}2${zone}", $mss; set_mss1 IPv4, "${z}2${zone}", $mss;
} else { } else {
set_mss1 "${z}2${zone}", $mss; set_mss1 IPv4, "${z}2${zone}", $mss;
set_mss1 "${zone}2${z}", $mss; set_mss1 IPv4, "${zone}2${z}", $mss;
} }
} }
} }
@ -778,7 +780,7 @@ sub set_mss( $$$ ) {
# Interate over non-firewall zones and interfaces with 'mss=' setting adding TCPMSS rules as appropriate. # Interate over non-firewall zones and interfaces with 'mss=' setting adding TCPMSS rules as appropriate.
# #
sub setup_zone_mss() { sub setup_zone_mss() {
for my $zone ( all_zones ) { for my $zone ( all_ipv4_zones ) {
my $zoneref = find_zone( $zone ); my $zoneref = find_zone( $zone );
set_mss( $zone, $zoneref->{options}{in_out}{mss}, '' ) if $zoneref->{options}{in_out}{mss}; set_mss( $zone, $zoneref->{options}{in_out}{mss}, '' ) if $zoneref->{options}{in_out}{mss};