From eb843b2154876dd428dd3d3e5990c4a07912b7a2 Mon Sep 17 00:00:00 2001
From: danw <danw>
Date: Mon, 7 Jul 1997 21:16:35 +0000
Subject: [PATCH] return MR_IN_USE if a user tries to delete a host with cnames

---
 server/qsetup.pc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/server/qsetup.pc b/server/qsetup.pc
index 32c828e3..12ab61e6 100644
--- a/server/qsetup.pc
+++ b/server/qsetup.pc
@@ -224,6 +224,10 @@ int setup_dmac(q, argv)
       WHERE mach_id = :id;
     if (cnt > 0)
 	return(MR_IN_USE);
+    EXEC SQL SELECT COUNT(mach_id) INTO :cnt FROM hostalias
+      WHERE mach_id = :id;
+    if (cnt > 0)
+	return(MR_IN_USE);
 
     EXEC SQL DELETE FROM mcmap WHERE mach_id = :id;
     if (dbms_errno) return(mr_errcode);
-- 
2.45.2