Correct handling of ";;+" in the snat file

Signed-off-by: Tom Eastep <teastep@shorewall.net>
2020-06-28 11:05:00 -07:00
1 changed files with 8 additions and 0 deletions
--- a/Shorewall/Perl/Shorewall/Rules.pm
+++ b/Shorewall/Perl/Shorewall/Rules.pm
@@ -5485,6 +5485,14 @@ sub process_snat1( $$$$$$$$$$$$ ) {
    my $logaction;
    my $param;

+    #
+    # Handle early matches
+    #
+    if ( $inlinematches =~ s/^s*\+// ) {
+	$prerule = $inlinematches;
+	$inlinematches = '';
+    }
+
    if ( $action =~ /^MASQUERADE(\+)?(?:\((.+)\))?$/ ) {
 	$target     = 'MASQUERADE';
 	$actiontype = $builtin_target{$action = $target};