return MR_IN_USE if a user tries to delete a host with cnames

[moira.git] / server / qsetup.pc

diff --git a/server/qsetup.pc b/server/qsetup.pc
index 32c828e3a772f44ced7310c71894fc0cfeb1811a..12ab61e62791f6f8639c49595872aa1566dd056d 100644 (file)
--- 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);