From ff402dcf098d8a942ef1dcc3a76c0b0f5b656b91 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sun, 12 Dec 2010 13:02:27 -0800 Subject: [PATCH] Add a comment to the params for process_rule_common() Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Actions.pm | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/Actions.pm b/Shorewall/Perl/Shorewall/Actions.pm index a7fcb13fc..f373d6a74 100644 --- a/Shorewall/Perl/Shorewall/Actions.pm +++ b/Shorewall/Perl/Shorewall/Actions.pm @@ -965,7 +965,23 @@ sub process_macro ( $$$$$$$$$$$$$$$$$ ) { # the target is a macro, the macro is expanded and this function is called recursively for each rule in the expansion. # sub process_rule_common ( $$$$$$$$$$$$$$$$ ) { - my ( $chainref, $target, $current_param, $source, $dest, $proto, $ports, $sports, $origdest, $ratelimit, $user, $mark, $connlimit, $time, $headers, $wildcard ) = @_; + my ( $chainref, #reference to Action Chain if we are being called from process_action3() + $target, + $current_param, + $source, + $dest, + $proto, + $ports, + $sports, + $origdest, + $ratelimit, + $user, + $mark, + $connlimit, + $time, + $headers, + $wildcard ) = @_; + my ( $action, $loglevel) = split_action $target; my ( $basictarget, $param ) = get_target_param $action; my $rule = '';