From a4aa020a84152f1246f43aec42a2843f7f0edcd5 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Mon, 7 Mar 2016 13:51:49 -0800 Subject: [PATCH] Add R chain designator Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Rules.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm index 8e7cb629b..14d5b8add 100644 --- a/Shorewall/Perl/Shorewall/Rules.pm +++ b/Shorewall/Perl/Shorewall/Rules.pm @@ -3714,14 +3714,16 @@ sub process_rules() { # Process a rule from the mangle file # sub process_mangle_rule1( $$$$$$$$$$$$$$$$$$ ) { - our ( $chainref, $action, $source, $dest, $proto, $ports, $sports, $user, $testval, $length, $tos , $connbytes, $helper, $headers, $probability , $dscp , $state, $time ) = @_; + my ( $chainref, $action, $source, $dest, $proto, $ports, $sports, $user, $testval, $length, $tos , $connbytes, $helper, $headers, $probability , $dscp , $state, $time ) = @_; my %designators = ( P => PREROUTING, I => INPUT, F => FORWARD, O => OUTPUT, - T => POSTROUTING ); + T => POSTROUTING, + R => REALPREROUTING, + ); my %chainlabels = ( 1 => 'PREROUTING', 2 => 'INPUT',