extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-02-20 03:31:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

Rename process_rule1() to process_rule_common()

Browse Source
This commit is contained in:
Tom Eastep 2010-12-11 17:19:43 -08:00
parent 7b86c699b6
commit 138e49276d
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Shorewall/Perl/Shorewall/Actions.pm
View File

@ -21,7 +21,7 @@
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
# #
# This module contains the code for dealing with actions (built-in, # This module contains the code for dealing with actions (built-in,
# standard and user-defined) and Macros. It also contains process_rule1() which # standard and user-defined) and Macros. It also contains process_rule_common() which
# performs low-level rule processing. # performs low-level rule processing.
# #
package Shorewall::Actions; package Shorewall::Actions;
@ -44,7 +44,7 @@ our @EXPORT = qw( merge_levels
process_actions1 process_actions1
process_actions2 process_actions2
process_actions3 process_actions3
process_rule1 process_rule_common
find_macro find_macro
split_action split_action
@ -983,7 +983,7 @@ sub process_actions3 () {
} }
} }
sub process_rule1 ( $$$$$$$$$$$$$$$ ); sub process_rule_common ( $$$$$$$$$$$$$$$ );
# #
# Expand a macro rule from the rules file # Expand a macro rule from the rules file
@ -1068,7 +1068,7 @@ sub process_macro ( $$$$$$$$$$$$$$$$ ) {
$mdest = ''; $mdest = '';
} }
$generated |= process_rule1( $generated |= process_rule_common(
$mtarget, $mtarget,
$param, $param,
$msource, $msource,
@ -1102,7 +1102,7 @@ sub process_macro ( $$$$$$$$$$$$$$$$ ) {
# Once a rule has been expanded via wildcards (source and/or dest zone eq 'all'), it is processed by this function. If # Once a rule has been expanded via wildcards (source and/or dest zone eq 'all'), it is processed by this function. If
# the target is a macro, the macro is expanded and this function is called recursively for each rule in the expansion. # the target is a macro, the macro is expanded and this function is called recursively for each rule in the expansion.
# #
sub process_rule1 ( $$$$$$$$$$$$$$$ ) { sub process_rule_common ( $$$$$$$$$$$$$$$ ) {
my ( $target, $current_param, $source, $dest, $proto, $ports, $sports, $origdest, $ratelimit, $user, $mark, $connlimit, $time, $headers, $wildcard ) = @_; my ( $target, $current_param, $source, $dest, $proto, $ports, $sports, $origdest, $ratelimit, $user, $mark, $connlimit, $time, $headers, $wildcard ) = @_;
my ( $action, $loglevel) = split_action $target; my ( $action, $loglevel) = split_action $target;
my ( $basictarget, $param ) = get_target_param $action; my ( $basictarget, $param ) = get_target_param $action;
@ -1125,7 +1125,7 @@ sub process_rule1 ( $$$$$$$$$$$$$$$ ) {
if ( $actiontype == MACRO ) { if ( $actiontype == MACRO ) {
# #
# process_macro() will call process_rule1() recursively for each rule in the macro body # process_macro() will call process_rule_common() recursively for each rule in the macro body
# #
fatal_error "Macro invocations nested too deeply" if ++$macro_nest_level > MAX_MACRO_NEST_LEVEL; fatal_error "Macro invocations nested too deeply" if ++$macro_nest_level > MAX_MACRO_NEST_LEVEL;

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

@ -1008,7 +1008,7 @@ sub process_rule ( ) {
my $destzone = (split( /:/, $dest, 2 ) )[0]; my $destzone = (split( /:/, $dest, 2 ) )[0];
$destzone = $action =~ /^REDIRECT/ ? $fw : '' unless defined_zone $destzone; $destzone = $action =~ /^REDIRECT/ ? $fw : '' unless defined_zone $destzone;
if ( ! $wild || $intrazone || ( $sourcezone ne $destzone ) ) { if ( ! $wild || $intrazone || ( $sourcezone ne $destzone ) ) {
$generated |= process_rule1 $target, '', $source, $dest , $proto, $ports, $sports, $origdest, $ratelimit, $user, $mark, $connlimit, $time, $headers, $wild; $generated |= process_rule_common $target, '', $source, $dest , $proto, $ports, $sports, $origdest, $ratelimit, $user, $mark, $connlimit, $time, $headers, $wild;
} }
} }
} }