holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Minor tweaks

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
New/Shorewall/Chains.pm
View File

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

4
New/Shorewall/Common.pm
View File

@ -135,7 +135,7 @@ sub emit ( $ ) {
#
# '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*$/ ) {
$line =~ s/^\n// if $lastlineblank;
@ -160,7 +160,7 @@ sub emitj {
#
for ( @_ ) {
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/^/$indent/gm if $indent;
$line =~ s/ /\t/g;

4
New/Shorewall/Rules.pm
View File

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