Minor tweaks

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5733 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-28 19:09:27 +00:00
parent 9302a9c148
commit a4fa639793
3 changed files with 4 additions and 5 deletions

View File

@ -1405,6 +1405,7 @@ sub addnatjump( $$$ ) {
clearrule; clearrule;
} }
} }
# #
# If the destination chain exists, then at the position in the source chain given by $$countref, add a jump to the destination. # If the destination chain exists, then at the position in the source chain given by $$countref, add a jump to the destination.
# #

View File

@ -135,7 +135,7 @@ sub emit ( $ ) {
# #
# 'compile' as opposed to 'check' # 'compile' as opposed to 'check'
# #
my $line = $_[0]; my $line = $_[0]; # This copy is necessary :-(. We modify the value below and we can't modify subroutine arguments.
unless ( $line =~ /^\s*$/ ) { unless ( $line =~ /^\s*$/ ) {
$line =~ s/^\n// if $lastlineblank; $line =~ s/^\n// if $lastlineblank;
@ -160,7 +160,7 @@ sub emitj {
# #
for ( @_ ) { for ( @_ ) {
unless ( /^\s*$/ ) { unless ( /^\s*$/ ) {
my $line = $_; my $line = $_; # This copy is necessary :-(. We modify the value below and we can't modify subroutine arguments.
$line =~ s/^\n// if $lastlineblank; $line =~ s/^\n// if $lastlineblank;
$line =~ s/^/$indent/gm if $indent; $line =~ s/^/$indent/gm if $indent;
$line =~ s/ /\t/g; $line =~ s/ /\t/g;

View File

@ -163,9 +163,7 @@ sub setup_ecn()
} }
for my $host ( @hosts ) { for my $host ( @hosts ) {
my ( $interface, $net ) = ( @$host ); add_rule $mangle_table->{ecn_chain $host->[0]}, join ('', '-p tcp ', match_dest_net( $host->[1] ) , ' -j ECN --ecn-tcp-remove' );
add_rule $mangle_table->{ecn_chain $interface}, join ('', '-p tcp ', match_dest_net( $net ) , ' -j ECN --ecn-tcp-remove' );
} }
} }
} }