allow users to set themselves to an IMAP box if the filesystem already

exists, is owned by them, and is the right type.

diff --git a/server/qaccess.pc b/server/qaccess.pc
index a116d26d532dafea6b7c413c0bdb9401151b876d..56d28d54da238121ef29cddfdb1482b14bd5e1ad 100644 (file)
--- a/server/qaccess.pc
+++ b/server/qaccess.pc
@@ -92,7 +92,19 @@ int access_login(struct query *q, char *argv[], client *cl)
 
 int access_spob(struct query *q, char *argv[], client *cl)
 {
-  if (cl->users_id != *(int *)argv[0] || !strcmp(argv[1], "IMAP"))
+  EXEC SQL BEGIN DECLARE SECTION;
+  int id;
+  EXEC SQL END DECLARE SECTION;
+
+  if (!strcmp(argv[1], "IMAP"))
+      {
+       EXEC SQL SELECT owner INTO :id FROM filesys f 
+         WHERE f.label = :argv[2] AND f.type = 'IMAP' AND
+         f.lockertype = 'USER';
+       if (cl->users_id != id)
+         return MR_PERM;
+      }
+  if (cl->users_id != *(int *)argv[0])
     return MR_PERM;
   else
     return MR_SUCCESS;