From 4b5273c6bb7018047d888f9d9f661844bc35ea59 Mon Sep 17 00:00:00 2001 From: teastep Date: Tue, 15 Apr 2008 00:34:44 +0000 Subject: [PATCH] Some minor changes git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@8424 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb --- Shorewall-perl/Shorewall/Rules.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Shorewall-perl/Shorewall/Rules.pm b/Shorewall-perl/Shorewall/Rules.pm index 27ebf4125..f6493b980 100644 --- a/Shorewall-perl/Shorewall/Rules.pm +++ b/Shorewall-perl/Shorewall/Rules.pm @@ -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; }