citadel/imap_acl.c

   1 /*
   2  * $Id:  $
   3  *
   4  * Functions which implement RFC2086/RFC4314 (IMAP ACL extension)
   5  *
   6  */
   7
   8
   9 #include "sysdep.h"
  10 #include <stdlib.h>
  11 #include <unistd.h>
  12 #include <stdio.h>
  13 #include <fcntl.h>
  14 #include <signal.h>
  15 #include <pwd.h>
  16 #include <errno.h>
  17 #include <sys/types.h>
  18
  19 #if TIME_WITH_SYS_TIME
  20 # include <sys/time.h>
  21 # include <time.h>
  22 #else
  23 # if HAVE_SYS_TIME_H
  24 #  include <sys/time.h>
  25 # else
  26 #  include <time.h>
  27 # endif
  28 #endif
  29
  30 #include <sys/wait.h>
  31 #include <ctype.h>
  32 #include <string.h>
  33 #include <limits.h>
  34 #include "citadel.h"
  35 #include "server.h"
  36 #include "sysdep_decls.h"
  37 #include "citserver.h"
  38 #include "support.h"
  39 #include "config.h"
  40 #include "serv_extensions.h"
  41 #include "room_ops.h"
  42 #include "user_ops.h"
  43 #include "policy.h"
  44 #include "database.h"
  45 #include "msgbase.h"
  46 #include "tools.h"
  47 #include "internet_addressing.h"
  48 #include "serv_imap.h"
  49 #include "imap_tools.h"
  50 #include "imap_fetch.h"
  51 #include "imap_misc.h"
  52 #include "genstamp.h"
  53
  54
  55
  56 /*
  57  * Implements the SETACL command.
  58  */
  59 void imap_setacl(int num_parms, char *parms[]) {
  60
  61         cprintf("%s BAD not yet implemented FIXME\r\n", parms[0]);
  62         return;
  63 }
  64
  65
  66 /*
  67  * Implements the DELETEACL command.
  68  */
  69 void imap_deleteacl(int num_parms, char *parms[]) {
  70
  71         cprintf("%s BAD not yet implemented FIXME\r\n", parms[0]);
  72         return;
  73 }
  74
  75
  76 /*
  77  * Given the bits returned by CtdlRoomAccess(), populate a string buffer
  78  * with IMAP ACL format flags.   This code is common to GETACL and MYRIGHTS.
  79  */
  80 void imap_acl_flags(char *rights, int ra)
  81 {
  82         strcpy(rights, "");
  83
  84         /* l - lookup (mailbox is visible to LIST/LSUB commands, SUBSCRIBE mailbox)
  85          * r - read (SELECT the mailbox, perform STATUS)
  86          * s - keep seen/unseen information across sessions (set or clear \SEEN flag
  87          *     via STORE, also set \SEEN during APPEND/COPY/ FETCH BODY[...])
  88          * e - perform EXPUNGE and expunge as a part of CLOSE
  89          */
  90         if (    (ra & UA_KNOWN)                                 /* known rooms */
  91            ||   ((ra & UA_GOTOALLOWED) && (ra & UA_ZAPPED))     /* zapped rooms */
  92            ) {
  93                 strcat(rights, "l");
  94                 strcat(rights, "r");
  95                 strcat(rights, "s");
  96                 strcat(rights, "e");
  97
  98                 /* Only output the remaining flags if the room is known */
  99
 100                 /* w - write (set or clear arbitrary flags; not supported in Citadel) */
 101
 102                 /* i - insert (perform APPEND, COPY into mailbox) */
 103                 /* p - post (send mail to submission address for mailbox - not enforced) */
 104                 if (ra & UA_POSTALLOWED) {
 105                         strcat(rights, "i");
 106                         strcat(rights, "p");
 107                 }
 108
 109                 /* k - create mailboxes in this hierarchy */
 110
 111                 /* t - delete messages (set/clear \Deleted flag) */
 112                 if (ra & UA_DELETEALLOWED) {
 113                         strcat(rights, "t");
 114                         strcat(rights, "d");
 115                 }
 116
 117                 /* a - administer (perform SETACL/DELETEACL/GETACL/LISTRIGHTS) */
 118                 /* x - delete mailbox (DELETE mailbox, old mailbox name in RENAME) */
 119                 if (ra & UA_ADMINALLOWED) {
 120                         /*
 121                          * This is the correct place to put the "a" flag.  We are leaving
 122                          * it commented out for now, because it implies that we could
 123                          * perform any of SETACL/DELETEACL/GETACL/LISTRIGHTS.  Since these
 124                          * commands are not yet implemented, omitting the flag should
 125                          * theoretically prevent compliant clients from attempting to
 126                          * perform them.
 127                          */
 128                         /* strcat(rights, "a"); * commented out */
 129                         strcat(rights, "x");
 130                 }
 131         }
 132 }
 133
 134
 135 /*
 136  * Implements the GETACL command.
 137  */
 138 void imap_getacl(int num_parms, char *parms[]) {
 139         char roomname[ROOMNAMELEN];
 140         char savedroom[ROOMNAMELEN];
 141         int msgs, new;
 142         int ret;
 143         struct ctdluser temp;
 144         struct cdbdata *cdbus;
 145         int ra;
 146         char rights[32];
 147
 148         if (num_parms != 3) {
 149                 cprintf("%s BAD usage error\r\n", parms[0]);
 150                 return;
 151         }
 152
 153         /*
 154          * Search for the specified room or folder
 155          */
 156         ret = imap_grabroom(roomname, parms[2], 0);
 157         if (ret != 0) {
 158                 cprintf("%s NO Invalid mailbox name or access denied\r\n",
 159                         parms[0]);
 160                 return;
 161         }
 162
 163         /*
 164          * usergoto() formally takes us to the desired room.  (If another
 165          * folder is selected, save its name so we can return there!!!!!)
 166          */
 167         if (IMAP->selected) {
 168                 strcpy(savedroom, CC->room.QRname);
 169         }
 170         usergoto(roomname, 0, 0, &msgs, &new);
 171
 172         cprintf("* ACL");
 173         cprintf(" ");
 174         imap_strout(parms[2]);
 175
 176         /*
 177          * Traverse the userlist
 178          */
 179         cdb_rewind(CDB_USERS);
 180         while (cdbus = cdb_next_item(CDB_USERS), cdbus != NULL) {
 181                 memset(&temp, 0, sizeof temp);
 182                 memcpy(&temp, cdbus->ptr, sizeof temp);
 183                 cdb_free(cdbus);
 184
 185                 CtdlRoomAccess(&CC->room, &temp, &ra, NULL);
 186                 if (strlen(temp.fullname) > 0) {
 187                         imap_acl_flags(rights, ra);
 188                         if (strlen(rights) > 0) {
 189                                 cprintf(" ");
 190                                 imap_strout(temp.fullname);
 191                                 cprintf(" %s", rights);
 192                         }
 193                 }
 194         }
 195
 196         cprintf("\r\n");
 197
 198         /*
 199          * If another folder is selected, go back to that room so we can resume
 200          * our happy day without violent explosions.
 201          */
 202         if (IMAP->selected) {
 203                 usergoto(savedroom, 0, 0, &msgs, &new);
 204         }
 205
 206         cprintf("%s OK GETACL completed\r\n", parms[0]);
 207 }
 208
 209
 210 /*
 211  * Implements the LISTRIGHTS command.
 212  */
 213 void imap_listrights(int num_parms, char *parms[]) {
 214         char roomname[ROOMNAMELEN];
 215         char savedroom[ROOMNAMELEN];
 216         int msgs, new;
 217         int ret;
 218         struct recptypes *valid;
 219         struct ctdluser temp;
 220
 221         if (num_parms != 4) {
 222                 cprintf("%s BAD usage error\r\n", parms[0]);
 223                 return;
 224         }
 225
 226         /*
 227          * Search for the specified room/folder
 228          */
 229         ret = imap_grabroom(roomname, parms[2], 0);
 230         if (ret != 0) {
 231                 cprintf("%s NO Invalid mailbox name or access denied\r\n",
 232                         parms[0]);
 233                 return;
 234         }
 235
 236         /*
 237          * Search for the specified user
 238          */
 239         ret = (-1);
 240         valid = validate_recipients(parms[3]);
 241         if (valid != NULL) {
 242                 if (valid->num_local == 1) {
 243                         ret = getuser(&temp, valid->recp_local);
 244                 }
 245                 free(valid);
 246         }
 247         if (ret != 0) {
 248                 cprintf("%s NO Invalid user name or access denied\r\n",
 249                         parms[0]);
 250                 return;
 251         }
 252
 253         /*
 254          * usergoto() formally takes us to the desired room.  (If another
 255          * folder is selected, save its name so we can return there!!!!!)
 256          */
 257         if (IMAP->selected) {
 258                 strcpy(savedroom, CC->room.QRname);
 259         }
 260         usergoto(roomname, 0, 0, &msgs, &new);
 261
 262
 263         /*
 264          * Now output the list of rights
 265          */
 266         cprintf("* LISTRIGHTS ");
 267         imap_strout(parms[2]);
 268         cprintf(" ");
 269         imap_strout(parms[3]);
 270         cprintf(" ");
 271         imap_strout("");                /* FIXME ... do something here */
 272         cprintf("\r\n");
 273
 274
 275         /*
 276          * If another folder is selected, go back to that room so we can resume
 277          * our happy day without violent explosions.
 278          */
 279         if (IMAP->selected) {
 280                 usergoto(savedroom, 0, 0, &msgs, &new);
 281         }
 282
 283         cprintf("%s OK LISTRIGHTS completed\r\n", parms[0]);
 284         return;
 285 }
 286
 287
 288 /*
 289  * Implements the MYRIGHTS command.
 290  */
 291 void imap_myrights(int num_parms, char *parms[]) {
 292         char roomname[ROOMNAMELEN];
 293         char savedroom[ROOMNAMELEN];
 294         int msgs, new;
 295         int ret;
 296         int ra;
 297         char rights[32];
 298
 299         if (num_parms != 3) {
 300                 cprintf("%s BAD usage error\r\n", parms[0]);
 301                 return;
 302         }
 303
 304         ret = imap_grabroom(roomname, parms[2], 0);
 305         if (ret != 0) {
 306                 cprintf("%s NO Invalid mailbox name or access denied\r\n",
 307                         parms[0]);
 308                 return;
 309         }
 310
 311         /*
 312          * usergoto() formally takes us to the desired room.  (If another
 313          * folder is selected, save its name so we can return there!!!!!)
 314          */
 315         if (IMAP->selected) {
 316                 strcpy(savedroom, CC->room.QRname);
 317         }
 318         usergoto(roomname, 0, 0, &msgs, &new);
 319
 320         CtdlRoomAccess(&CC->room, &CC->user, &ra, NULL);
 321         imap_acl_flags(rights, ra);
 322
 323         cprintf("* MYRIGHTS ");
 324         imap_strout(parms[2]);
 325         cprintf(" %s\r\n", rights);
 326
 327         /*
 328          * If a different folder was previously selected, return there now.
 329          */
 330         if ( (IMAP->selected) && (strcasecmp(roomname, savedroom)) ) {
 331                 usergoto(savedroom, 0, 0, &msgs, &new);
 332         }
 333
 334         cprintf("%s OK MYRIGHTS completed\r\n", parms[0]);
 335         return;
 336 }
 337
 338