STABLE2 - fence: fixed a fence storm with fence_egenera

[Chris Feist <cfeist@fedoraproject.org>]

Gitweb:        http://git.fedorahosted.org/git/cluster.git?p=cluster.git;a=commitdiff;h=7040e494c6208f5f01ef8457f81e99464373b0b3
Commit:        7040e494c6208f5f01ef8457f81e99464373b0b3
Parent:        a012dc47f024f327029865073a41afd573a4b5d0
Author:        Chris Feist <cfeist@redhat.com>
AuthorDate:    Wed Aug 27 13:50:06 2008 -0500
Committer:     Chris Feist <cfeist@redhat.com>
CommitterDate: Tue Sep 2 17:24:26 2008 -0500

fence: fixed a fence storm with fence_egenera

4.8 - bz#437867
4.7.z - bz#459501

Committed on behalf of Jim Parsons (jparsons@redhat.com)
---
 fence/agents/egenera/fence_egenera.pl |    9 ++++++++-
 1 files changed, 8 insertions(+), 1 deletions(-)

diff --git a/fence/agents/egenera/fence_egenera.pl b/fence/agents/egenera/fence_egenera.pl
index 6970a13..30607fe 100644
--- a/fence/agents/egenera/fence_egenera.pl
+++ b/fence/agents/egenera/fence_egenera.pl
@@ -284,7 +284,8 @@ sub pserver_shutdown
 {
 	my $rtrn=1;
         local *egen_log;
-        open(egen_log,">/tmp/eglog");
+        open(egen_log,">>/tmp/eglog");
+  print egen_log "Attempting shutdown at ".`date`."\n";
 	for (my $trys=0; $trys<20; $trys++)
 	{
 		last if (pserver_status != 0);
@@ -303,6 +304,12 @@ sub pserver_shutdown
 			# do I need to do anything here?  
 			# We'll just wait for now
 		}
+    elsif (/^Booting/)
+    {
+       # Server is already on the way back up. Do nothing
+       $rtrn=0;
+       last;
+    }
 		elsif (/^Booted\(KDB\)/ || /^Debugging/ )
 		{
 			print egen_log "shutdown: crash dump being performed. Waiting\n";