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

Correct handling of actions when @chain is altered.

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-02-02 10:57:08 -08:00
parent e013e218a2
commit 9b30f48ba0
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1762,10 +1762,11 @@ sub process_action($$) {
pop_open;
#
# Pop the action parameters and delete record of this chain if the action parameters
# were modified
# Pop the action parameters
# Caller should delete record of this chain if the action parameters
# were modified (and this function returns true
#
delete $usedactions{$wholeaction} if pop_action_params( $oldparms );
pop_action_params( $oldparms );
}
#
@ -2417,6 +2418,8 @@ sub process_rule ( $$$$$$$$$$$$$$$$$$$$ ) {
#
# Handle actions
#
my $delete_action;
if ( $actiontype & ACTION ) {
#
# Create the action:level:tag:param tuple.
@ -2431,7 +2434,7 @@ sub process_rule ( $$$$$$$$$$$$$$$$$$$$ ) {
#
$actionresult = 0;
process_action( $ref, $chain );
$delete_action = process_action( $ref, $chain );
#
# Processing the action may determine that the action or one of it's dependents does NAT or HELPER, so:
#
@ -2659,6 +2662,8 @@ sub process_rule ( $$$$$$$$$$$$$$$$$$$$ ) {
'' );
}
delete $usedactions{$normalized_target} if $delete_action;
return 1;
}