From aa6754cb40480ac28e5854741f21ebf79eaa640e Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Fri, 31 Dec 2010 07:51:15 -0800 Subject: [PATCH] Add a comment --- Shorewall/Perl/Shorewall/Rules.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm index 99627ca34..72c5740c2 100644 --- a/Shorewall/Perl/Shorewall/Rules.pm +++ b/Shorewall/Perl/Shorewall/Rules.pm @@ -848,8 +848,8 @@ sub process_macro ( $$$$$$$$$$$$$$$$$ ) { clear_comment unless $nocomment; return $generated; - } + # # 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. @@ -1085,6 +1085,9 @@ sub process_rule_common ( $$$$$$$$$$$$$$$$ ) { my ( $chain, $policy ); if ( $inaction ) { + # + # We are generating rules in an action chain -- the chain name is the name of the action chain + # $chain = $chainref->{name}; } else { unless ( $actiontype & NATONLY ) {