config-files.c

/*
 * Copyright (c) 1995-2019 Peter Simons <simons@cryp.to>
 * Copyright (c) 2000-2001 Cable & Wireless GmbH
 * Copyright (c) 1999-2000 CyberSolutions GmbH
 *
 * This program is free software: you can redistribute it and/or modify it under
 * the terms of the GNU General Public License as published by the Free Software
 * Foundation, either version 3 of the License, or (at your option) any later
 * version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
 * details.
 *
 * You should have received a copy of the GNU General Public License along with
 * this program. If not, see <http://www.gnu.org/licenses/>.
 */

#include <config.h>

#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <sys/stat.h>

#include "libtext/text.h"
#include "liblists/lists.h"
#include "libconfigfile/configfile.h"
#include "petidomo.h"

static struct PD_Config *  MasterConfig;
List ListConfigs;

/* These variables need to be static/global, so that the addresses as
   used in MasterCF are known at compile time. */

static char*  fqdn            = NULL;
static char*  master_password = NULL;
static char*  mta             = NULL;
static char*  mta_options     = "-i -f%s";
static char*  help_file       = DATADIR "/help";
static char*  acl_file_pre    = SYSCONFDIR "/petidomo.acl-pre";
static char*  acl_file_post   = SYSCONFDIR "/petidomo.acl-post";
static char*  index_file      = LOCALSTATEDIR "/index";
static char*  list_dir        = LOCALSTATEDIR "/lists";
static char*  ack_queue_dir   = LOCALSTATEDIR "/ack-queue";

int InitPetidomo(const char* masterconfig)
    {
    int    rc;

    /* Format description of our global config file. */

    struct ConfigFile  MasterCF[] =
        {
        { "Hostname", CF_STRING, &fqdn },
        { "AdminPassword", CF_STRING, &master_password },
        { "MTA", CF_STRING, &mta },
        { "MTAOptions", CF_STRING, &mta_options },
        { "HelpFile", CF_STRING, &help_file },
        { "AclFilePre", CF_STRING, &acl_file_pre },
        { "AclFilePost", CF_STRING, &acl_file_post },
        { "IndexFile", CF_STRING, &index_file },
        { "ListDirectory", CF_STRING, &list_dir },
        { "AckQueueDirectory", CF_STRING, &ack_queue_dir },
        { NULL, 0, NULL}
        };

    /* Allocate memory for the global config structure. */

    MasterConfig = calloc(sizeof(struct PD_Config), 1);
    if (MasterConfig == NULL)
        {
        syslog(LOG_ERR, "Failed to allocate memory for the global PD_Config data structure.");
        return -1;
        }

    /* Init the list of read list configs. */

    ListConfigs = InitList(NULL);

    /* Parse the config file. */

    rc = ReadConfig(masterconfig, MasterCF);
    if (rc != 0)
        {
        syslog(LOG_ERR, "Failed to parse the master config file.");
        return -1;
        }

    /* Do consistency checks. */

    if (fqdn == NULL)
        {
        syslog(LOG_ERR, "The master config file \"%s\" doesn't set the host name.", masterconfig);
        return -1;
        }
    if (mta == NULL)
        {
        syslog(LOG_ERR, "The master config file \"%s\" doesn't set the MTA.", masterconfig);
        return -1;
        }
    if (master_password == NULL)
        {
        syslog(LOG_ERR, "The master config file \"%s\" doesn't set the admin password.", masterconfig);
        return -1;
        }
    if (strstr(mta_options, "%s") == NULL)
        {
        syslog(LOG_ERR, "The argument to MTA_Options in the master config file is invalid.");
        return -1;
        }

    /* Copy the results to the structure. */

    MasterConfig->fqdn = fqdn;
    MasterConfig->master_password = master_password;
    MasterConfig->mta = mta;
    MasterConfig->mta_options = mta_options;
    MasterConfig->help_file = help_file;
    MasterConfig->acl_file_pre = acl_file_pre;
    MasterConfig->acl_file_post = acl_file_post;
    MasterConfig->index_file = index_file;
    MasterConfig->list_dir = list_dir;
    MasterConfig->ack_queue_dir = ack_queue_dir;

    return 0;
    }

const struct PD_Config* getMasterConfig(void)
    {
    return MasterConfig;
    }


static char*     list_fqdn;
static char*     admin_password;
static char*     posting_password;
static char*     listtype;
static char*     reply_to;
static char*     postingfilter;
static char*     archivepath;
static char*     subtype;
static bool      allowmembers;
static char*     intro_file;
static char*     sig_file;
static char*     desc_file;
static char*     header_file;
static char*     list_acl_file_pre;
static char*     list_acl_file_post;
static char*     address_file;
static char*     ack_file;

const struct List_Config* getListConfig(const char * listname)
    {
    struct List_Config *      ListConfig;
    Node                      node;
    int                       rc;
    char *                    buffer;
    struct stat               sb;
    char*                     this_list_dir;

    /* Format description of our global config file. */

    struct ConfigFile ListCF[] =
        {
        { "ListType", CF_STRING, &listtype },
        { "SubscriptionType", CF_STRING, &subtype },
        { "AllowMembersCommand", CF_YES_NO, &allowmembers },
        { "ReplyTo", CF_STRING, &reply_to },
        { "Hostname", CF_STRING, &list_fqdn },
        { "AdminPassword", CF_STRING, &admin_password },
        { "PostingPassword", CF_STRING, &posting_password },
        { "PostingFilter", CF_STRING, &postingfilter },
        { "Archive", CF_STRING, &archivepath },
        { "IntroductionFile", CF_STRING, &intro_file },
        { "SignatureFile", CF_STRING, &sig_file },
        { "DescriptionFile", CF_STRING, &desc_file },
        { "HeaderFile", CF_STRING, &header_file },
        { "ACLFilePre", CF_STRING, &list_acl_file_pre },
        { "ACLFilePost", CF_STRING, &list_acl_file_post },
        { "AddressFile", CF_STRING, &address_file },
        { "AcknowledgementFile", CF_STRING, &ack_file },
        { NULL, 0, NULL}
        };

    /* Set the defaults. */

    list_fqdn        = NULL;
    admin_password   = NULL;
    posting_password = NULL;
    listtype         = "open";
    reply_to         = NULL;
    postingfilter    = NULL;
    archivepath      = NULL;
    subtype          = "public";
    allowmembers     = FALSE;
    intro_file       = "introduction";
    sig_file         = "signature";
    desc_file        = "description";
    header_file      = "header";
    list_acl_file_pre  = "acl-pre";
    list_acl_file_post = "acl-post";
    address_file     = "list";
    ack_file         = "acks";

    /* Did we read this config file already? */

    node = FindNodeByKey(ListConfigs, listname);
    if (node != NULL)
        return getNodeData(node);

    /* No? Then read the config file. */

    buffer = text_easy_sprintf("%s/%s/config", MasterConfig->list_dir, listname);
    this_list_dir = text_easy_sprintf("%s/%s", MasterConfig->list_dir, listname);
    if (stat(buffer, &sb) != 0)
        {
        free(buffer);
        buffer = text_easy_sprintf("%s/%s/conf", MasterConfig->list_dir, listname);
        if (stat(buffer, &sb) != 0)
            {
            free(buffer);
            buffer = text_easy_sprintf("%s/%s.config", MasterConfig->list_dir, listname);
            this_list_dir = MasterConfig->list_dir;
            if (stat(buffer, &sb) != 0)
                {
                free(buffer);
                buffer = text_easy_sprintf("%s/%s.conf", MasterConfig->list_dir, listname);
                if (stat(buffer, &sb) != 0)
                    {
                    syslog(LOG_ERR, "Can't find a config file for list \"%s\".", listname);
                    exit(EXIT_FAILURE);
                    }
                }
            }
        }
    rc = ReadConfig(buffer, ListCF);
    if (rc != 0)
        {
        syslog(LOG_ERR, "Failed to parse the list \"%s\"'s config file.", listname);
        exit(EXIT_FAILURE);
        }

    /* Do consistency checks. */

    if (listtype == NULL)
        {
        syslog(LOG_ERR, "List \"%s\" doesn't have a valid type in config file.", listname);
        exit(EXIT_FAILURE);
        }

    /* Set up the list config structure. */

    ListConfig = calloc(sizeof(struct List_Config), 1);
    if (ListConfig == NULL)
        {
        syslog(LOG_ERR, "Failed to allocate memory for List_Config data structure.");
        exit(EXIT_FAILURE);
        }
    if (!strcasecmp(listtype, "open"))
        ListConfig->listtype = LIST_OPEN;
    else if (!strcasecmp(listtype, "closed"))
        ListConfig->listtype = LIST_CLOSED;
    else if (!strcasecmp(listtype, "moderated"))
        ListConfig->listtype = LIST_MODERATED;
    else if (!strcasecmp(listtype, "acknowledged") || !strcasecmp(listtype, "acked"))
        ListConfig->listtype = LIST_ACKED;
    else if (!strcasecmp(listtype, "acknowledged-once") || !strcasecmp(listtype, "acked-once"))
        ListConfig->listtype = LIST_ACKED_ONCE;
    else
        {
        syslog(LOG_ERR, "List \"%s\" doesn't have a valid type in config file.", listname);
        exit(EXIT_FAILURE);
        }

    if (!strcasecmp(subtype, "public"))
        ListConfig->subtype = SUBSCRIPTION_PUBLIC;
    else if (!strcasecmp(subtype, "admin"))
        ListConfig->subtype = SUBSCRIPTION_ADMIN;
    else if (!strcasecmp(subtype, "acknowledged") || !strcasecmp(subtype, "acked"))
        ListConfig->subtype = SUBSCRIPTION_ACKED;
    else
        {
        syslog(LOG_ERR, "List \"%s\" doesn't have a valid subscription type in config file.", listname);
        exit(EXIT_FAILURE);
        }

    ListConfig->allowmembers = allowmembers;
    ListConfig->fqdn = (list_fqdn) ? list_fqdn : MasterConfig->fqdn;
    ListConfig->reply_to = reply_to;
    if (reply_to != NULL && strcasecmp(reply_to, "none"))
        CanonizeAddress(&(ListConfig->reply_to), ListConfig->fqdn);
    ListConfig->admin_password = admin_password;
    ListConfig->posting_password = posting_password;
    ListConfig->postingfilter = postingfilter;

    ListConfig->list_dir      = this_list_dir;

#define EXPAND(dst, src)                  \
    if (src == NULL || src[0] == '/')     \
        ListConfig->dst = src;            \
    else                                  \
        ListConfig->dst = text_easy_sprintf("%s/%s", ListConfig->list_dir, src);

    EXPAND(archivepath, archivepath);
    EXPAND(intro_file, intro_file);
    EXPAND(desc_file, desc_file);
    EXPAND(sig_file, sig_file);
    EXPAND(header_file, header_file);
    EXPAND(acl_file_pre, list_acl_file_pre);
    EXPAND(acl_file_post, list_acl_file_post);
    EXPAND(address_file, address_file);
    EXPAND(ack_file, ack_file);

    AppendNode(ListConfigs, xstrdup(listname), ListConfig);

    return ListConfig;
    }