holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Add new progress message

Browse Source
This commit is contained in:
Tom Eastep 2010-12-25 07:41:18 -08:00
parent ce8f33b623
commit 6240d41754
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -377,9 +377,12 @@ sub process_actions2 () {
progress_message2 'Generating Transitive Closure of Used-action List...'; progress_message2 'Generating Transitive Closure of Used-action List...';
my $changed = 1; my $changed = 1;
my $passes = 0;
while ( $changed ) { while ( $changed ) {
$changed = 0; $changed = 0;
$passes++;
for my $target (keys %usedactions) { for my $target (keys %usedactions) {
my ( $action, $level, $tag, $param ) = split ':', $target; my ( $action, $level, $tag, $param ) = split ':', $target;
my $actionref = $actions{$action}; my $actionref = $actions{$action};
@ -390,6 +393,8 @@ sub process_actions2 () {
} }
} }
} }
progress_message2 "Transitive Closure generated in $passes passes";
} }
# #