From 6240d41754b32012b2c82adb92b6d059341e9506 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sat, 25 Dec 2010 07:41:18 -0800
Subject: [PATCH] Add new progress message

---
 Shorewall/Perl/Shorewall/Rules.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm
index 8639f8644..684eb29b2 100644
--- a/Shorewall/Perl/Shorewall/Rules.pm
+++ b/Shorewall/Perl/Shorewall/Rules.pm
@@ -377,9 +377,12 @@ sub process_actions2 () {
     progress_message2 'Generating Transitive Closure of Used-action List...';
 
     my $changed = 1;
+    my $passes  = 0;
 
     while ( $changed ) {
 	$changed = 0;
+	$passes++;
+
 	for my $target (keys %usedactions) {
 	    my ( $action, $level, $tag, $param ) = split ':', $target;
 	    my $actionref = $actions{$action};
@@ -390,6 +393,8 @@ sub process_actions2 () {
 	    }
 	}
     }
+
+    progress_message2 "Transitive Closure generated in $passes passes";
 }
 
 #