citadel/policy.c

   1 /*
   2  * $Id$
   3  *
   4  * Functions which manage policy for rooms (such as message expiry)
   5  */
   6
   7 #ifdef DLL_EXPORT
   8 #define IN_LIBCIT
   9 #endif
  10
  11 #include "sysdep.h"
  12 #include <stdlib.h>
  13 #include <unistd.h>
  14 #include <stdio.h>
  15 #include <sys/stat.h>
  16 #include <string.h>
  17
  18 #if TIME_WITH_SYS_TIME
  19 # include <sys/time.h>
  20 # include <time.h>
  21 #else
  22 # if HAVE_SYS_TIME_H
  23 #  include <sys/time.h>
  24 # else
  25 #  include <time.h>
  26 # endif
  27 #endif
  28
  29 #include <limits.h>
  30 #include "citadel.h"
  31 #include "server.h"
  32 #include "database.h"
  33 #include "serv_extensions.h"
  34 #include "config.h"
  35 #include "room_ops.h"
  36 #include "sysdep_decls.h"
  37 #include "support.h"
  38 #include "user_ops.h"
  39 #include "msgbase.h"
  40 #include "citserver.h"
  41 #include "tools.h"
  42
  43
  44 /*
  45  * Retrieve the applicable expire policy for a specific room
  46  */
  47 void GetExpirePolicy(struct ExpirePolicy *epbuf, struct ctdlroom *qrbuf) {
  48         struct floor *fl;
  49
  50         /* If the room has its own policy, return it */
  51         if (qrbuf->QRep.expire_mode != 0) {
  52                 memcpy(epbuf, &qrbuf->QRep, sizeof(struct ExpirePolicy));
  53                 return;
  54         }
  55
  56         /* (non-mailbox rooms)
  57          * If the floor has its own policy, return it
  58          */
  59         if ( (qrbuf->QRflags & QR_MAILBOX) == 0) {
  60                 fl = cgetfloor(qrbuf->QRfloor);
  61                 if (fl->f_ep.expire_mode != 0) {
  62                         memcpy(epbuf, &fl->f_ep, sizeof(struct ExpirePolicy));
  63                         return;
  64                 }
  65         }
  66
  67         /* (Mailbox rooms)
  68          * If there is a default policy for mailbox rooms, return it
  69          */
  70         if (qrbuf->QRflags & QR_MAILBOX) {
  71                 if (config.c_mbxep.expire_mode != 0) {
  72                         memcpy(epbuf, &config.c_mbxep,
  73                                 sizeof(struct ExpirePolicy));
  74                         return;
  75                 }
  76         }
  77
  78         /* Otherwise, fall back on the system default */
  79         memcpy(epbuf, &config.c_ep, sizeof(struct ExpirePolicy));
  80 }
  81
  82
  83 /*
  84  * Get Policy EXpire
  85  */
  86 void cmd_gpex(char *argbuf) {
  87         struct ExpirePolicy exp;
  88         struct floor *fl;
  89         char which[SIZ];
  90
  91         extract(which, argbuf, 0);
  92         if (!strcasecmp(which, "room")) {
  93                 memcpy(&exp, &CC->room.QRep, sizeof(struct ExpirePolicy));
  94         }
  95         else if (!strcasecmp(which, "floor")) {
  96                 fl = cgetfloor(CC->room.QRfloor);
  97                 memcpy(&exp, &fl->f_ep, sizeof(struct ExpirePolicy));
  98         }
  99         else if (!strcasecmp(which, "mailboxes")) {
 100                 memcpy(&exp, &config.c_mbxep, sizeof(struct ExpirePolicy));
 101         }
 102         else if (!strcasecmp(which, "site")) {
 103                 memcpy(&exp, &config.c_ep, sizeof(struct ExpirePolicy));
 104         }
 105         else {
 106                 cprintf("%d Invalid keyword \"%s\"\n", ERROR, which);
 107                 return;
 108         }
 109
 110         cprintf("%d %d|%d\n", CIT_OK, exp.expire_mode, exp.expire_value);
 111 }
 112
 113
 114 /*
 115  * Set Policy EXpire
 116  */
 117 void cmd_spex(char *argbuf) {
 118         struct ExpirePolicy exp;
 119         struct floor flbuf;
 120         char which[SIZ];
 121
 122         memset(&exp, 0, sizeof(struct ExpirePolicy));
 123         extract(which, argbuf, 0);
 124         exp.expire_mode = extract_int(argbuf, 1);
 125         exp.expire_value = extract_int(argbuf, 2);
 126
 127         if ((exp.expire_mode < 0) || (exp.expire_mode > 3)) {
 128                 cprintf("%d Invalid policy.\n", ERROR);
 129                 return;
 130         }
 131
 132         if (!strcasecmp(which, "room")) {
 133                 if (!is_room_aide()) {
 134                         cprintf("%d Higher access required.\n",
 135                                 ERROR+HIGHER_ACCESS_REQUIRED);
 136                         return;
 137                 }
 138                 lgetroom(&CC->room, CC->room.QRname);
 139                 memcpy(&CC->room.QRep, &exp, sizeof(struct ExpirePolicy));
 140                 lputroom(&CC->room);
 141                 cprintf("%d Room expire policy set.\n", CIT_OK);
 142                 return;
 143         }
 144
 145         if (CC->user.axlevel < 6) {
 146                 cprintf("%d Higher access required.\n",
 147                         ERROR+HIGHER_ACCESS_REQUIRED);
 148                 return;
 149         }
 150
 151         if (!strcasecmp(which, "floor")) {
 152                 lgetfloor(&flbuf, CC->room.QRfloor);
 153                 memcpy(&flbuf.f_ep, &exp, sizeof(struct ExpirePolicy));
 154                 lputfloor(&flbuf, CC->room.QRfloor);
 155                 cprintf("%d Floor expire policy set.\n", CIT_OK);
 156                 return;
 157         }
 158
 159         else if (!strcasecmp(which, "mailboxes")) {
 160                 memcpy(&config.c_mbxep, &exp, sizeof(struct ExpirePolicy));
 161                 put_config();
 162                 cprintf("%d Default expire policy for mailboxes set.\n",
 163                         CIT_OK);
 164                 return;
 165         }
 166
 167         else if (!strcasecmp(which, "site")) {
 168                 if (exp.expire_mode == EXPIRE_NEXTLEVEL) {
 169                         cprintf("%d Invalid policy (no higher level)\n",
 170                                 ERROR);
 171                         return;
 172                 }
 173                 memcpy(&config.c_ep, &exp, sizeof(struct ExpirePolicy));
 174                 put_config();
 175                 cprintf("%d Site expire policy set.\n", CIT_OK);
 176                 return;
 177         }
 178
 179         else {
 180                 cprintf("%d Invalid keyword \"%s\"\n", ERROR, which);
 181                 return;
 182         }
 183
 184 }
 185
 186