switch (fork()) {
case -1:
fprintf(stderr,
- "dcm: could not fork to for service %s -- exiting",
+ "dcm: could not fork for service %s -- exiting",
name);
exit(1);
case 0:
errmsg = error_message(status);
EXEC SQL UPDATE servers SET dfcheck = :now, harderror = :status,
errmsg = :errmsg, inprogress = 0 WHERE name=UPPER(:name);
-#if 0
critical_alert("DCM","DCM building config files for %s: %s",
name, errmsg);
-#endif
}
}
EXEC SQL COMMIT RELEASE;
if (!SOFT_FAIL(status)) {
EXEC SQL UPDATE serverhosts SET hosterror = :status
WHERE CURRENT OF csr_hst1;
-#if 0
critical_alert("DCM", "DCM updating %s:%s: %s",
service, host, errmsg);
-#endif
}
if (replicated) break;
if (!SOFT_FAIL(status)) {
EXEC SQL UPDATE serverhosts SET hosterror = :status
WHERE CURRENT OF csr_hst2;
-#if 0
critical_alert("DCM", "DCM updating %s:%s: %s",
service, host, errmsg);
-#endif
}
if (replicated) {