From: danw <danw>
Date: Fri, 25 Jun 1999 15:06:06 +0000 (+0000)
Subject: inprogress was only being cleared for replicated serverhosts if the
X-Git-Url: http://andersk.mit.edu/gitweb/moira.git/commitdiff_plain/719f0386bd341a38882a71c6563806d4950e998b

inprogress was only being cleared for replicated serverhosts if the
executing instructions step failed. clear it if the sending data step
fails too.
---

diff --git a/dcm/dcm.pc b/dcm/dcm.pc
index cf00da65..c34b8263 100644
--- a/dcm/dcm.pc
+++ b/dcm/dcm.pc
@@ -357,13 +357,7 @@ void do_hosts(char *service)
 		}
 
 	      if (type == REPLICATED)
-		{
-		  /* We're giving up, so clear the inprogress flag on
-		     any hosts in this service we haven't gotten to yet */
-		  EXEC SQL UPDATE serverhosts SET inprogress = 0
-		    WHERE service = UPPER(:service);
-		  break;
-		}
+		break;
 	    }
 	  else
 	    {
@@ -376,6 +370,15 @@ void do_hosts(char *service)
       EXEC SQL CLOSE csr_hst2;
     }
 
+  if (type == REPLICATED)
+    {
+      /* Clear inprogress flag on any hosts we started but didn't
+       * finish.
+       */
+      EXEC SQL UPDATE serverhosts SET inprogress = 0
+	WHERE service = UPPER(:service);
+    }
+
   EXEC SQL WHENEVER SQLERROR DO dbmserr();
   if (status && !SOFT_FAIL(status) && type == REPLICATED)
     {