-/*
- * $Id$
- *
- * Functions which manage policy for rooms (such as message expiry)
- */
-
-#include "sysdep.h"
-#include <stdlib.h>
-#include <unistd.h>
-#include <stdio.h>
-#include <sys/stat.h>
-#include <string.h>
-
-#if TIME_WITH_SYS_TIME
-# include <sys/time.h>
-# include <time.h>
-#else
-# if HAVE_SYS_TIME_H
-# include <sys/time.h>
-# else
-# include <time.h>
-# endif
-#endif
-
-#include <limits.h>
-#include <libcitadel.h>
-#include "citadel.h"
-#include "server.h"
-#include "database.h"
-#include "config.h"
-#include "room_ops.h"
-#include "sysdep_decls.h"
-#include "support.h"
-#include "user_ops.h"
-#include "msgbase.h"
-#include "citserver.h"
-
-#include "ctdl_module.h"
-
-/*
- * Retrieve the applicable expire policy for a specific room
- */
-void GetExpirePolicy(struct ExpirePolicy *epbuf, struct ctdlroom *qrbuf) {
- struct floor *fl;
-
- /* If the room has its own policy, return it */
- if (qrbuf->QRep.expire_mode != 0) {
- memcpy(epbuf, &qrbuf->QRep, sizeof(struct ExpirePolicy));
- return;
- }
-
- /* (non-mailbox rooms)
- * If the floor has its own policy, return it
- */
- if ( (qrbuf->QRflags & QR_MAILBOX) == 0) {
- fl = CtdlGetCachedFloor(qrbuf->QRfloor);
- if (fl->f_ep.expire_mode != 0) {
- memcpy(epbuf, &fl->f_ep, sizeof(struct ExpirePolicy));
- return;
- }
- }
-
- /* (Mailbox rooms)
- * If there is a default policy for mailbox rooms, return it
- */
- if (qrbuf->QRflags & QR_MAILBOX) {
- if (config.c_mbxep.expire_mode != 0) {
- memcpy(epbuf, &config.c_mbxep,
- sizeof(struct ExpirePolicy));
- return;
- }
- }
-
- /* Otherwise, fall back on the system default */
- memcpy(epbuf, &config.c_ep, sizeof(struct ExpirePolicy));
-}
-
-
-/*
- * Get Policy EXpire
- */
-void cmd_gpex(char *argbuf) {
- struct ExpirePolicy exp;
- struct floor *fl;
- char which[128];
-
- extract_token(which, argbuf, 0, '|', sizeof which);
- if (!strcasecmp(which, strof(room))) {
- memcpy(&exp, &CC->room.QRep, sizeof(struct ExpirePolicy));
- }
- else if (!strcasecmp(which, strof(floorpolicy))) {
- fl = CtdlGetCachedFloor(CC->room.QRfloor);
- memcpy(&exp, &fl->f_ep, sizeof(struct ExpirePolicy));
- }
- else if (!strcasecmp(which, strof(mailboxespolicy))) {
- memcpy(&exp, &config.c_mbxep, sizeof(struct ExpirePolicy));
- }
- else if (!strcasecmp(which, strof(sitepolicy))) {
- memcpy(&exp, &config.c_ep, sizeof(struct ExpirePolicy));
- }
- else {
- cprintf("%d Invalid keyword \"%s\"\n", ERROR + ILLEGAL_VALUE, which);
- return;
- }
-
- cprintf("%d %d|%d\n", CIT_OK, exp.expire_mode, exp.expire_value);
-}
-
-
-/*
- * Set Policy EXpire
- */
-void cmd_spex(char *argbuf) {
- struct ExpirePolicy exp;
- struct floor flbuf;
- char which[128];
-
- memset(&exp, 0, sizeof(struct ExpirePolicy));
- extract_token(which, argbuf, 0, '|', sizeof which);
- exp.expire_mode = extract_int(argbuf, 1);
- exp.expire_value = extract_int(argbuf, 2);
-
- if ((exp.expire_mode < 0) || (exp.expire_mode > 3)) {
- cprintf("%d Invalid policy.\n", ERROR + ILLEGAL_VALUE);
- return;
- }
-
- if (!strcasecmp(which, "room")) {
- if (!is_room_aide()) {
- cprintf("%d Higher access required.\n",
- ERROR + HIGHER_ACCESS_REQUIRED);
- return;
- }
- CtdlGetRoomLock(&CC->room, CC->room.QRname);
- memcpy(&CC->room.QRep, &exp, sizeof(struct ExpirePolicy));
- CtdlPutRoomLock(&CC->room);
- cprintf("%d Room expire policy has been updated.\n", CIT_OK);
- return;
- }
-
- if (CC->user.axlevel < AxAideU) {
- cprintf("%d Higher access required.\n",
- ERROR + HIGHER_ACCESS_REQUIRED);
- return;
- }
-
- if (!strcasecmp(which, strof(floorpolicy))) {
- lgetfloor(&flbuf, CC->room.QRfloor);
- memcpy(&flbuf.f_ep, &exp, sizeof(struct ExpirePolicy));
- lputfloor(&flbuf, CC->room.QRfloor);
- cprintf("%d Floor expire policy has been updated.\n", CIT_OK);
- return;
- }
-
- else if (!strcasecmp(which, strof(mailboxespolicy))) {
- memcpy(&config.c_mbxep, &exp, sizeof(struct ExpirePolicy));
- put_config();
- cprintf("%d Default expire policy for mailboxes set.\n",
- CIT_OK);
- return;
- }
-
- else if (!strcasecmp(which, strof(sitepolicy))) {
- if (exp.expire_mode == EXPIRE_NEXTLEVEL) {
- cprintf("%d Invalid policy (no higher level)\n",
- ERROR + ILLEGAL_VALUE);
- return;
- }
- memcpy(&config.c_ep, &exp, sizeof(struct ExpirePolicy));
- put_config();
- cprintf("%d Site expire policy has been updated.\n", CIT_OK);
- return;
- }
-
- else {
- cprintf("%d Invalid keyword \"%s\"\n", ERROR + ILLEGAL_VALUE, which);
- return;
- }
-
-}
-
-/*****************************************************************************/
-/* MODULE INITIALIZATION STUFF */
-/*****************************************************************************/
-
-CTDL_MODULE_INIT(policy)
-{
- if (!threading) {
- CtdlRegisterProtoHook(cmd_gpex, "GPEX", "Autoconverted. TODO: document me.");
- CtdlRegisterProtoHook(cmd_spex, "SPEX", "Autoconverted. TODO: document me.");
- }
- /* return our Subversion id for the Log */
- return "$Id$";
-}