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

Fix ECN in shorewall-perl (again)

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@7010 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-07-31 14:13:10 +00:00
parent d133c44162
commit 7da375634a
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Shorewall-perl/Shorewall/Config.pm
View File

@ -57,6 +57,7 @@ our @EXPORT = qw(
finalize_aux_config
warning_message
error_message
fatal_error
set_shorewall_dir
set_debug
@ -403,6 +404,20 @@ sub warning_message
}
}
#
# Issue a Error Message
#
sub warning_message
{
my $currentlineinfo = $currentfile ? " : $currentfilename (line $currentlinenumber)" : '';
if ( $debug ) {
print STDERR longmess( " ERROR: @_$currentlineinfo" );
} else {
print STDERR " ERROR: @_$currentlineinfo\n";
}
}
#
# Issue fatal error message and die
#

2
Shorewall-perl/Shorewall/Rules.pm
View File

@ -196,7 +196,7 @@ sub setup_ecn()
for my $interface ( @interfaces ) {
my $chainref = ensure_chain 'mangle', ecn_chain( $interface );
add_rule $mangle_table->{PREROUTING}, "-p tcp -o $interface -j $chainref->{name}";
add_rule $mangle_table->{POSTROUTING}, "-p tcp -o $interface -j $chainref->{name}";
add_rule $mangle_table->{OUTPUT}, "-p tcp -o $interface -j $chainref->{name}";
}