make sure new usernames don't conflict with filesys aliases

diff --git a/server/qsupport.pc b/server/qsupport.pc
index 04643baac0cb0704817632a88fb209188be7a809..d6881099875346bfeae1507b97a1c2fdb228271b 100644 (file)
--- a/server/qsupport.pc
+++ b/server/qsupport.pc
@@ -1181,6 +1181,10 @@ int register_user(q, argv, cl)
       WHERE label = :login;
     if (dbms_errno) return(mr_errcode);
     if (rowcount > 0) return(MR_IN_USE);
+    EXEC SQL SELECT COUNT(name) INTO :rowcount FROM alias
+      WHERE name = :login AND type='FILESYS';
+    if (dbms_errno) return(mr_errcode);
+    if (rowcount > 0) return(MR_IN_USE);
     com_err(whoami, 0, "login name OK");
 
     /* choose place for pobox, put in mid */