From 415db65a709b53efe443fdddff6e743c728e537b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 2 Jul 2009 16:10:16 +0000
Subject: [PATCH] Add a counter to the upgrade script, so you know how many
 configs there are to do, and how many are done.

---
 sbin/upgrade.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/sbin/upgrade.pl b/sbin/upgrade.pl
index a8047b1b7..e48881cb7 100755
--- a/sbin/upgrade.pl
+++ b/sbin/upgrade.pl
@@ -200,7 +200,9 @@ print "\nREADY TO BEGIN UPGRADES\n" unless ($quiet);
 my $notRun = 1;
 
 
-my $currentPath = Cwd::getcwd();
+my $currentPath  = Cwd::getcwd();
+my $totalConfigs = scalar keys %config;
+my $configCounter = 0;
 foreach my $filename (keys %config) {
     chdir($upgradesPath);
 	my $clicmd = $config{$filename}{mysqlCLI} || $mysql;
@@ -208,8 +210,10 @@ foreach my $filename (keys %config) {
 	my $backupTo = $config{$filename}{backupPath} || $backupDir;
 	mkdir($backupTo);
 	while ($upgrade{$config{$filename}{version}}{sql} ne "" || $upgrade{$config{$filename}{version}}{pl} ne "") {
+        ++$configCounter;
 		my $upgrade = $upgrade{$config{$filename}{version}}{from};
 		print "\n".$config{$filename}{db}." ".$upgrade{$upgrade}{from}."-".$upgrade{$upgrade}{to}."\n" unless ($quiet);
+        print "Processing $configCounter out of $totalConfigs configs\n" unless ($quiet);
 		unless ($skipBackup) {
 			print "\tBacking up $config{$filename}{db} ($upgrade{$upgrade}{from})..." unless ($quiet);
 			my $cmd = qq!$dumpcmd -u"$config{$filename}{dbuser}" -p"$config{$filename}{dbpass}"!;