extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-15 10:51:02 +01:00
Code Issues Packages Projects Releases Wiki Activity

Create nat chain during pre-processing of nat action

Browse Source
This commit is contained in:
Tom Eastep 2010-12-27 07:47:16 -08:00
parent 79cbfd0126
commit 311797e0bf
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Shorewall/Perl/Shorewall/Rules.pm
View File

@ -836,8 +836,10 @@ sub process_rule_common ( $$$$$$$$$$$$$$$$ ) {
unless ( $inaction3 ) {
fatal_error "An action may not invoke itself" if $basictarget eq $inaction1;
process_action2( $normalized_target ) if use_action( $normalized_target ) && ! ( $actiontype & BUILTIN );
$actiontype = $targets{$basictarget};
if ( my $ref = use_action( $normalized_target ) ) {
process_action2( $normalized_target ) unless $actiontype & BUILTIN;
ensure_chain( 'nat', $ref->{name} ) if ( $actiontype = $targets{$basictarget} ) & NATRULE;
}
}
$action = $basictarget; # Remove params, if any, from $action.