RHEL4 - fence: fixed a fence storm with fence_egenera

[Chris Feist]

Gitweb:        http://git.fedorahosted.org/git/cluster.git?p=cluster.git;a=commitdiff;h=3ac098920b654410883a31e762fdd150b6f21c14
Commit:        3ac098920b654410883a31e762fdd150b6f21c14
Parent:        4016e754cf83a64a5de3db22f7bf808419ffbe95
Author:        Chris Feist <cfeist@redhat.com>
AuthorDate:    Wed Aug 27 13:50:06 2008 -0500
Committer:     Chris Feist <cfeist@redhat.com>
CommitterDate: Wed Aug 27 13:51:49 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 577d819..088c7d6 100755
--- a/fence/agents/egenera/fence_egenera.pl
+++ b/fence/agents/egenera/fence_egenera.pl
@@ -297,7 +297,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);
@@ -316,6 +317,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";