From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 14915 invoked by alias); 27 Aug 2008 18:53:05 -0000 Received: (qmail 14909 invoked by alias); 27 Aug 2008 18:53:05 -0000 X-Spam-Status: No, hits=1.2 required=5.0 tests=AWL,BAYES_50,KAM_MX,SPF_HELO_PASS X-Spam-Check-By: sourceware.org X-Spam-Checker-Version: SpamAssassin 3.2.4 (2008-01-01) on bastion.fedora.phx.redhat.com X-Spam-Level: Subject: RHEL4 - fence: fixed a fence storm with fence_egenera To: cluster-cvs-relay@redhat.com X-Project: Cluster Project X-Git-Module: cluster.git X-Git-Refname: refs/heads/RHEL4 X-Git-Reftype: branch X-Git-Oldrev: 4016e754cf83a64a5de3db22f7bf808419ffbe95 X-Git-Newrev: 3ac098920b654410883a31e762fdd150b6f21c14 From: Chris Feist Message-Id: <20080827185208.25FAF12036B@lists.fedorahosted.org> Date: Wed, 27 Aug 2008 19:20:00 -0000 X-Scanned-By: MIMEDefang 2.58 on 172.16.52.254 Mailing-List: contact cluster-cvs-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Post: List-Help: , Sender: cluster-cvs-owner@sourceware.org X-SW-Source: 2008-q3/txt/msg00336.txt.bz2 Gitweb: http://git.fedorahosted.org/git/cluster.git?p=cluster.git;a=commitdiff;h=3ac098920b654410883a31e762fdd150b6f21c14 Commit: 3ac098920b654410883a31e762fdd150b6f21c14 Parent: 4016e754cf83a64a5de3db22f7bf808419ffbe95 Author: Chris Feist AuthorDate: Wed Aug 27 13:50:06 2008 -0500 Committer: Chris Feist 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";