From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 28213 invoked by alias); 2 Sep 2008 22:28:11 -0000 Received: (qmail 28206 invoked by alias); 2 Sep 2008 22:28:11 -0000 X-Spam-Status: No, hits=0.5 required=5.0 tests=AWL,BAYES_20,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: STABLE2 - 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/STABLE2 X-Git-Reftype: branch X-Git-Oldrev: a012dc47f024f327029865073a41afd573a4b5d0 X-Git-Newrev: 7040e494c6208f5f01ef8457f81e99464373b0b3 From: Chris Feist Message-Id: <20080902222652.BED2DC07B7@lists.fedorahosted.org> Date: Wed, 03 Sep 2008 10:18: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/msg00366.txt.bz2 Gitweb: http://git.fedorahosted.org/git/cluster.git?p=cluster.git;a=commitdiff;h=7040e494c6208f5f01ef8457f81e99464373b0b3 Commit: 7040e494c6208f5f01ef8457f81e99464373b0b3 Parent: a012dc47f024f327029865073a41afd573a4b5d0 Author: Chris Feist AuthorDate: Wed Aug 27 13:50:06 2008 -0500 Committer: Chris Feist 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";