extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-05 09:16:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix another bug

Browse Source
This commit is contained in:
Tom Eastep 2010-12-21 17:50:35 -08:00
parent f3abf56cac
commit e52feb7da7
1 changed files with 26 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -305,6 +305,8 @@ sub process_actions1() {
push_open( $actionfile ); push_open( $actionfile );
my $actiontype = 0;
while ( read_a_line ) { while ( read_a_line ) {
my ($wholetarget, @rest ) = split_line1 1, 13, 'action file' , $rule_commands; my ($wholetarget, @rest ) = split_line1 1, 13, 'action file' , $rule_commands;
@ -313,7 +315,7 @@ sub process_actions1() {
# deals with the target and the parameter. We pass undef for the rest so we'll # deals with the target and the parameter. We pass undef for the rest so we'll
# know if we try to use one of them. # know if we try to use one of them.
# #
process_rule_common( $action , $actiontype |= process_rule_common( $action ,
$wholetarget , $wholetarget ,
'' , # Current Param '' , # Current Param
undef, # source undef, # source
@ -334,7 +336,7 @@ sub process_actions1() {
pop_open; pop_open;
$targets{$action} |= ACTION; $targets{$action} = ACTION | $actiontype;
} }
} }
} }
@ -830,16 +832,11 @@ sub process_rule_common ( $$$$$$$$$$$$$$$$ ) {
} }
} }
if ( $inaction1 ) {
# #
# We need to transfer the NAT-oriented flags to the action itself # Return the NAT-oriented flags to the caller who will eventually add them
# to $targets{$inaction1}
# #
$targets{$inaction1} |= ( $actiontype & ( NATRULE | NONAT | NATONLY ) ); return ( $actiontype & ( NATRULE | NONAT | NATONLY ) ) if $inaction1;
#
# That's all for the first pass
#
return 1;
}
# #
# Take care of irregular syntax and targets # Take care of irregular syntax and targets