From 146d598f34beee67aa4453a3be835536698e7fbd Mon Sep 17 00:00:00 2001
From: Richard Frith-MacDonald <rfm@gnu.org>
Date: Wed, 10 Dec 2014 08:10:15 +0000
Subject: [PATCH] clear alarm for failure to register when we get a ping
 response

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/ec/trunk@38247 72102866-910b-0410-8b05-ffd578937521
---
 EcCommand.m | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/EcCommand.m b/EcCommand.m
index 101af5c..b52eec2 100644
--- a/EcCommand.m
+++ b/EcCommand.m
@@ -657,7 +657,9 @@ static NSString*	cmdWord(NSArray* a, unsigned int pos)
 
           /* After the first ping response from a client we assume
            * that client has completed startup and is running OK.
-           * We can therefore clear any loss of client alarm.
+           * We can therefore clear any loss of client alarm, any
+           * alarm for being unable to register, and launch failure
+           * or fatal configuration alarms.
            */
           managedObject = EcMakeManagedObject(host, n, nil);
           a = [EcAlarm alarmForManagedObject: managedObject
@@ -669,6 +671,15 @@ static NSString*	cmdWord(NSArray* a, unsigned int pos)
             proposedRepairAction: nil
             additionalText: nil];
           [self alarm: a];
+          a = [EcAlarm alarmForManagedObject: managedObject
+            at: nil
+            withEventType: EcAlarmEventTypeProcessingError
+            probableCause: EcAlarmSoftwareProgramAbnormallyTerminated
+            specificProblem: @"Unable to register"
+            perceivedSeverity: EcAlarmSeverityCleared
+            proposedRepairAction: nil
+            additionalText: nil];
+          [self alarm: a];
           [self clearConfigurationFor: managedObject
                       specificProblem: @"Process launch"
                        additionalText: @"Process is now running"];