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

Some minor changes

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@8424 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2008-04-15 00:34:44 +00:00
parent b1c5eefb6b
commit 4b5273c6bb
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -114,7 +114,7 @@ sub process_tos() {
$first_entry = 0;
fatal_error "A value must be supplied in the TOS column" if $tos eq '-';
fatal_error 'A value must be supplied in the TOS column' if $tos eq '-';
if ( defined ( my $tosval = $tosoptions{"\L$tos"} ) ) {
$tos = $tosval;
@ -129,7 +129,7 @@ sub process_tos() {
my ( $srczone , $source , $remainder ) = split( /:/, $src, 3 );
fatal_error "Invalid SOURCE" if defined $remainder;
fatal_error 'Invalid SOURCE' if defined $remainder;
if ( $srczone eq firewall_zone ) {
$chainref = $outtosref;
@ -198,8 +198,8 @@ sub setup_ecn()
for my $interface ( @interfaces ) {
my $chainref = ensure_chain 'mangle', ecn_chain( $interface );
add_rule $mangle_table->{POSTROUTING}, "-p tcp -o $interface -j $chainref->{name}";
add_rule $mangle_table->{OUTPUT}, "-p tcp -o $interface -j $chainref->{name}";
add_jump $mangle_table->{POSTROUTING} , $chainref, "-p tcp -o $interface ";
add_jump $mangle_table->{OUTPUT}, $chainref, "-p tcp -o $interface ";
}
for my $host ( @hosts ) {
@ -305,7 +305,7 @@ sub setup_blacklist() {
if ( $first_entry ) {
unless ( @$hosts ) {
warning_message "The entries in $fn have been ignored because there are no 'blacklist' interfaces";
warning_message q(The entries in $fn have been ignored because there are no 'blacklist' interfaces);
close_file;
last BLACKLIST;
}