From cd66af78555671bed0c9c01c47b5e11103eb757e Mon Sep 17 00:00:00 2001
From: Scott Walters <scott@slowass.net>
Date: Sun, 22 May 2011 21:44:44 -0400
Subject: [PATCH] Warn the user if upgradeState is set but not current, and
 WebGUI::Middleware::Maintenance is going to block everything because of it.

---
 sbin/maintenanceMode.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/sbin/maintenanceMode.pl b/sbin/maintenanceMode.pl
index 18f20edcf..147b56614 100755
--- a/sbin/maintenanceMode.pl
+++ b/sbin/maintenanceMode.pl
@@ -35,6 +35,16 @@ pod2usage() if $configFile eq "";
 my $session = WebGUI::Session->open($configFile);
 $session->setting->remove('specialState');
 $session->setting->add('specialState','upgrading') unless $stop;
+
+my $upgradeState = $session->setting->get('upgradeState');
+if( $upgradeState eq WebGUI->VERSION ) {
+    $session->setting->remove('upgradeState');
+}
+elsif( $upgradeState ) {
+    print "Warning!  WebGUI will continue to show the maintenance screen due to database/code version mismatch:\n";
+    print "Code: @{[ WebGUI->VERSION ]} versus upgradeState setting in database: $upgradeState\n";
+}                  
+
 $session->end;
 $session->close;