OSSP CVS Repository

ossp - ossp-pkg/lmtp2nntp/lmtp2nntp_config.c 1.10
Not logged in
[Honeypot]  [Browse]  [Directory]  [Home]  [Login
[Reports]  [Search]  [Ticket]  [Timeline
  [Raw

ossp-pkg/lmtp2nntp/lmtp2nntp_config.c 1.10
/*
**  Copyright (c) 2001-2002 The OSSP Project <http://www.ossp.org/>
**  Copyright (c) 2001-2002 Cable & Wireless Deutschland <http://www.cw.com/de/>
**
**  This file is part of OSSP lmtp2nntp, an LMTP speaking local
**  mailer which forwards mails as Usenet news articles via NNTP.
**  It can be found at http://www.ossp.org/pkg/lmtp2nntp/.
**
**  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
**  2.0 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 file; if not, write to the Free Software
**  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
**  USA, or contact the OSSP project <ossp@ossp.org>.
**
**  FIXME lmtp2nntp_config.c: LMTP to NNTP configuration parsing
*/

#include <stdlib.h>
#include <stdio.h>
#include <sys/stat.h>
#if 0
#include <unistd.h>
#include <errno.h>
#include <string.h>
#include <fcntl.h>
#include <sys/utsname.h>
#include <sys/time.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <sys/stat.h>
#include <signal.h>
#include <pwd.h>
#endif

/* third party (included) */
#if 0
#include "lmtp2nntp_argz.h"
#include "lmtp2nntp_shpat.h"
#include "lmtp2nntp_daemon.h"
#endif
#include "lmtp2nntp_popt.h"
#include "val.h"

/* third party (linked in) */
#include "str.h"
#if 0
#include "l2.h"
#include "var.h"
#endif

/* library version check (compile-time) */
#define  L2_VERSION_HEX_REQ 0x001200
#define  L2_VERSION_STR_REQ "0.1.0"
#define STR_VERSION_HEX_REQ 0x009206
#define STR_VERSION_STR_REQ "0.9.6"
#ifdef L2_VERSION_HEX
#if L2_VERSION_HEX < L2_VERSION_HEX_REQ
#error "require a newer version of OSSP L2"
#endif
#endif
#ifdef STR_VERSION_HEX
#if STR_VERSION_HEX < STR_VERSION_HEX_REQ
#error "require a newer version of OSSP Str"
#endif
#endif

/* own headers */
#include "lmtp2nntp_global.h"
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#if defined(HAVE_DMALLOC_H) && defined(DMALLOC)
#include "dmalloc.h"
#endif
#include "lmtp2nntp_config.h"
#include "lmtp2nntp_lmtp.h"
#include "lmtp2nntp_nntp.h"
#include "lmtp2nntp_msg.h"
#include "sa.h"
#define _LMTP2NNTP_VERSION_C_AS_HEADER_
#include "lmtp2nntp_version.c"
#undef  _LMTP2NNTP_VERSION_C_AS_HEADER_

#ifndef FALSE
#define FALSE (1 != 1)
#endif
#ifndef TRUE
#define TRUE (!FALSE)
#endif

#ifndef NUL
#define NUL '\0'
#endif

void die(char *); /* FIXME */
void die(char *msg)
{
        printf("ERROR: %s\n", msg);
            exit(-1);
}

#if 0
static val_rc_t dumper(void *ctx, const char *name, int type, const char *desc, void *data)
{
    switch (type) {
        case VAL_TYPE_VAL:
            printf("DEBUG: <%10s>, name=<%10s>, VAL_TYPE_VAL,    desc=<%20s>, data@%.8lx INTERNAL\n",
                    (char *)ctx, name,      desc, (long)data);
            break;
        case VAL_TYPE_PTR:
            printf("DEBUG: <%10s>, name=<%10s>, VAL_TYPE_PTR,    desc=<%20s>, data@%.8lx=%.8lx\n",
                    (char *)ctx, name,      desc, (long)data, *(long *)data);
            break;
        case VAL_TYPE_CHAR:                                                                              
            printf("DEBUG: <%10s>, name=<%10s>, VAL_TYPE_CHAR,   desc=<%20s>, data@%.8lx='%c'\n",
                    (char *)ctx, name,      desc, (long)data, *(char *)data);
            break;
        case VAL_TYPE_SHORT:                                                                             
            printf("DEBUG: <%10s>, name=<%10s>, VAL_TYPE_SHORT,  desc=<%20s>, data@%.8lx=%8d\n",
                    (char *)ctx, name,      desc, (long)data, *(short *)data);
            break;
        case VAL_TYPE_INT:                                                                               
            printf("DEBUG: <%10s>, name=<%10s>, VAL_TYPE_INT,    desc=<%20s>, data@%.8lx=%8d\n",
                    (char *)ctx, name,      desc, (long)data, *(int *)data);
            break;
        case VAL_TYPE_LONG:                                                                              
            printf("DEBUG: <%10s>, name=<%10s>, VAL_TYPE_LONG,   desc=<%20s>, data@%.8lx=%8ld\n",
                    (char *)ctx, name,      desc, (long)data, *(long *)data);
            break;
        case VAL_TYPE_FLOAT:                                                                             
            printf("DEBUG: <%10s>, name=<%10s>, VAL_TYPE_FLOAT,  desc=<%20s>, data@%.8lx=%8f\n",
                    (char *)ctx, name,      desc, (long)data, *(float *)data);
            break;
        case VAL_TYPE_DOUBLE:                                                                            
            printf("DEBUG: <%10s>, name=<%10s>, VAL_TYPE_DOUBLE, desc=<%20s>, data@%.8lx=%8f\n",
                    (char *)ctx, name,      desc, (long)data, *(double *)data);
            break;
        default: 
            printf("DEBUG: <%10s>, name=<%10s>, type = %.8lx,    desc=<%20s>, data@%.8lx\n",
                    (char *)ctx, name, (long)type, desc, (long)data);
    }

    return VAL_OK;
}




    FIXME pass(optionconfig_t *o, int pass);
    /* pass=0 for preinitialization !? */

void dotconftest(int argc, char **argv) /*FIXME*/
{
 
    ctx = malloc(sizeof(lmtp2nntp_config_t));
    ctx->option_childsmax = 10;


/* Braindump

    fuer configure

ich brauche eine Tabelle, die alle optionen in langer und kurzer Form
enthaelt, Angabe ob flag, single- oder multivalue, callbacks fuer die
syntaxpruefung des human-readable inputs, die conversion ins interne binaryformat sowie rueckwandlung in
human-readable format. Dazu informationen fuer help.
 */

    {
        const char *filename = "example.conf";
        struct stat sb;
        int fd;

        if (stat(filename, &sb) == -1)
            die("stat");
        if ((cpBuf = (char *)malloc((size_t)sb.st_size + 1)) == NULL)
            die("malloc");
        if ((fd = open(filename, O_RDONLY)) == -1)
            die("open");
        if (read(fd, (void *)cpBuf, (size_t)sb.st_size) != (ssize_t)sb.st_size)
            die("read");
        cpBuf[(int)sb.st_size] = '\0';
        if (close(fd) == -1)
            die("close");
    }
    printf("DEBUG: *** 1 *** file as it was just read in ***\n%s***\n", cpBuf);

    {
        char *cpI;  /* pointer to next character to be read */
        char *cpO;  /* pointer to next character to be written. Used for eliminating
                       backslash+newline at a line continuation */
        char *cpL;  /* pointer to start of line */
        int pline;  /* current physical (disregarding line continuation) line number */
        int lline;  /* current logical lines first physical line number */
        int eline;  /* flag signaling empty or just whitespace-filled line */
        char c;     /* current character */
        char p;     /* previous character */
        int eof;    /* flag signaling end of file detected */

        cpI = cpBuf;
        cpO = cpBuf;
        eof = FALSE;
        pline = 1;
        p = NUL;

        cpL = cpO;
        lline = pline;
        eline = TRUE;
        while(!eof) {
            c = *cpI++;
            *cpO++ = c;
            if (c == NUL)
                eof = TRUE;
            else
                if (!isspace(c))
                    eline = FALSE;
            if (eof || (c == '\n')) {
                pline++;
                if (!eof && (p == '\\')) { /* line continuation situation */
                    cpO-=2; /* need to remove both backslash+newline */
                }
                else {
                    if (!eline) { /* process logical line unless it's empty */
                        *(cpO-1) = NUL;
                        if (lline == (pline-1))
                            printf("DEBUG: line[%3d] = ***%s***\n", lline, cpL);
                        else
                            printf("DEBUG: [%3d-%3d] = ***%s***\n", lline, pline-1, cpL);
                        {
                            char *cp = cpL;
                            char *command;
                            char *value;

                            if ((command = str_token(&cp, " \t", "\"'", "#", STR_STRIPQUOTES|STR_BACKSLASHESC)) == NULL)
                                printf("DEBUG: no command - comment only\n");
                            else {
                                printf("DEBUG:   command = ***%s***\n", command);
                                if ((value = str_token(&cp, " \t", "\"'", "#", STR_STRIPQUOTES|STR_BACKSLASHESC)) == NULL)
                                    printf("DEBUG: no value - section\n");
                                else {
                                    while(isspace((int)*value)) value++;
                                    printf("DEBUG:     value = ***%s***\n", value);
                                }
                            }
                        }
                    }
                    cpL = cpO;
                    lline = pline;
                    eline = TRUE;
                }
            }
            p = c;
        }
    }
}
#endif

struct optionconfig_s {
    optionconfig_t *next;           /* cleanup chain for destroy */
                    /**/
    char               *longname;       /* the long name (optional if shortname given) */
    char                shortname;      /* the short name (optional if longname given) */
    char               *descrip;        /* description for autohelp */
    char               *argdescrip;     /* argument description for autohelp */
    optiontype_t        type;           /* OPT_FLAG, OPT_SINGLE, OPT_MULTI */
    optionloop_cb_t    *cb;             /* callback for first iteration - syntax check and include */
    void               *cbctx;          /* context for pass1 */
    void               *pass1default;   /* default for pass1 */
    val_t              *val;            /* val we are registered under */
                    /**/
    int             number;         /* number of this option for popt */
    union {                         /* option data as read from configuration */
        int f;                      /* OPT_FLAG */
        char *s;                    /* OPT_SINGLE */
        char **m;                   /* OPT_MULTI */
    } data;
};

lmtp2nntp_option_rc_t option_find(lmtp2nntp_option_t *o, int number, optionconfig_t **ocp);
lmtp2nntp_option_rc_t option_find(lmtp2nntp_option_t *o, int number, optionconfig_t **ocp)
{
    lmtp2nntp_option_rc_t rc = VAL_OK;

    if (o == NULL || ocp == NULL)
        return OPTION_ERR_ARG;

    *ocp = o->first;
    while (*ocp != NULL && (*ocp)->number != number)
        *ocp = (*ocp)->next;

    return rc;
}


lmtp2nntp_option_rc_t option_register(lmtp2nntp_option_t *o, char *longname, char shortname, optiontype_t type, optionloop_cb_t *cb, char *cbctx, char *descrip, char *argdescrip)
{
    lmtp2nntp_option_rc_t rc = VAL_OK;
    optionconfig_t *oc;
    
    printf("DEBUG: enter option_register(%.8lx, \"%s\", '%c', %d, %.8lx, %.8lx, \"%s\", \"%s\")\n", (long)o, longname, shortname, type, (long)cb, (long)cbctx, descrip, argdescrip);

    if (o == NULL || longname == NULL)
        return OPTION_ERR_ARG;

    /* create a optionconfig_t structure */
    if ((oc = (optionconfig_t *)malloc(sizeof(optionconfig_t))) == NULL)
        return OPTION_ERR_MEM;
    printf("DEBUG: optionconfig_t structure malloc'ed\n");
    oc->next         = NULL;
    oc->longname     = strdup(longname);
    oc->shortname    = shortname;
    oc->descrip      = descrip == NULL ? NULL : strdup(descrip);
    oc->argdescrip   = argdescrip == NULL ? NULL : strdup(argdescrip);
    oc->type         = type;
    oc->cb           = cb;
    oc->cbctx        = cbctx;
    oc->pass1default = NULL; /*FIXME*/
    oc->val          = o->vo;
    oc->number       = o->pi; /*FIXME + 1; 0 is a reserved val in popt, so offset 1 */
    if (   (                      oc->longname   == NULL)
        || (descrip    != NULL && oc->descrip    == NULL)
        || (argdescrip != NULL && oc->argdescrip == NULL)
          )
        CU(OPTION_ERR_MEM);

    printf("DEBUG: optionconfig_t structure created\n");

    /* feed lib_val */
    (void)/*FIXME rc*/val_reg(oc->val, oc->longname,
                              type == OPT_FLAG ? VAL_TYPE_INT : VAL_TYPE_PTR,
                              oc->descrip, NULL);

    printf("DEBUG: val_reg'ed\n");

    /* feed lib_popt */
    printf("DEBUG: o->pi=%d, o->pn=%d\n", o->pi, o->pn);
    if (o->pi >= (o->pn-2)) { /* correction by two here, in malloc and realloc is for AUTOHELP and TABLEEND */
        if (o->pt == NULL) {
            printf("DEBUG: malloc\n");
            o->pt = (struct popt_option *)malloc(                (1 + 2) * sizeof(struct popt_option)); /*FIXME out of mem*/
            o->pn = 1;
        }
        else {
            printf("DEBUG: realloc\n");
            o->pt = (struct popt_option *)realloc(o->pt, (o->pn * 2 + 2) * sizeof(struct popt_option)); /*FIXME out of mem*/
            o->pn = o->pn * 2;
        }
    }
    o->pt[o->pi].longName   = oc->longname;
    o->pt[o->pi].shortName  = oc->shortname;
    o->pt[o->pi].argInfo    = oc->type == OPT_FLAG ? POPT_ARG_NONE : POPT_ARG_STRING;
    o->pt[o->pi].arg        = NULL;
    o->pt[o->pi].val        = oc->number;
    o->pt[o->pi].descrip    = oc->descrip;
    o->pt[o->pi].argDescrip = oc->argdescrip;

    /* append POPT_AUTOHELP */
    o->pt[o->pi+1].longName   = NULL;
    o->pt[o->pi+1].shortName  = '\0';
    o->pt[o->pi+1].argInfo    = POPT_ARG_INCLUDE_TABLE;
    o->pt[o->pi+1].arg        = popt_helpoptions;
    o->pt[o->pi+1].val        = 0;
    o->pt[o->pi+1].descrip    = "Help options:";
    o->pt[o->pi+1].argDescrip = NULL;

    /* append POPT_TABLEEND */
    o->pt[o->pi+2].longName   = NULL;
    o->pt[o->pi+2].shortName  = '\0';
    o->pt[o->pi+2].argInfo    = 0;
    o->pt[o->pi+2].arg        = 0;
    o->pt[o->pi+2].val        = 0;
    o->pt[o->pi+2].descrip    = NULL;
    o->pt[o->pi+2].argDescrip = NULL;
    o->pi++;
    printf("DEBUG: popt'ed\n");

    /* link in this new optionconfig_t structure */
    if (o->first == NULL) {
        o->first = oc;
        o->last  = oc;
    }
    else {
        o->last->next = oc; 
        o->last       = oc;
    }
    printf("DEBUG: linked\n");

    return rc;

    CUS:
    if (oc != NULL) {
        if (oc->argdescrip != NULL) free(oc->argdescrip);
        if (oc->descrip    != NULL) free(oc->descrip);
        if (oc->longname   != NULL) free(oc->longname);
        free(oc);
    }
    return rc;
}

static void stdsyntax(optionconfig_t *oc, char *arg, char *cbctx)
{
    printf("DEBUG: enter stdsyntax %.8lx, \"%s\", \"%s\"\n", (long)oc, arg, cbctx);
    return;
}

static void includeit(optionconfig_t *oc, char *arg, char *cbctx)
{
    return;
}

lmtp2nntp_option_rc_t option_create(lmtp2nntp_option_t **op)
{
    printf("DEBUG: enter option_create(%.8lx)\n", (long)op);

    if (op == NULL)
        return OPTION_ERR_ARG;

    if ((*op = (lmtp2nntp_option_t *)malloc(sizeof(lmtp2nntp_option_t))) == NULL)
        return OPTION_ERR_MEM;
    (*op)->childsmax = 0;
    (*op)->daemonize = 0;
    (*op)->kill = 0;
    (*op)->pidfile = 0;
    (*op)->acl.as = 0;
    (*op)->acl.az = NULL;
    (*op)->bind = NULL;
    (*op)->client = NULL;
    (*op)->destination.as = 0;
    (*op)->destination.az = NULL;
    (*op)->groupmode = NULL;
    (*op)->headervalue.as = 0;
    (*op)->headervalue.az = NULL;
    (*op)->include.as = 0;
    (*op)->include.az = NULL;
    (*op)->size = 0;
    (*op)->timeoutlmtpaccept = 0;
    (*op)->timeoutlmtpread = 0;
    (*op)->timeoutlmtpwrite = 0;
    (*op)->timeoutnntpconnect = 0;
    (*op)->timeoutnntpread = 0;
    (*op)->timeoutnntpwrite = 0;
    (*op)->mailfrom = NULL;
    (*op)->nodename = NULL;
    (*op)->operationmode = NULL;
    (*op)->l2spec = NULL;
    (*op)->uid = NULL;
    (*op)->restrictheader.as = 0;
    (*op)->restrictheader.az = NULL;
    (*op)->newsgroup.as = 0;
    (*op)->newsgroup.az = NULL;
                    /**/
    (*op)->first = NULL;
    (*op)->last = NULL;
    (*op)->vo = NULL;
    (*op)->pn = 0;
    (*op)->pi = 0;
    (*op)->pt = NULL;

    if (val_create(&((*op)->vo)) != VAL_OK) {
        free(*op);
        return OPTION_ERR_VAL;
    }
    return OPTION_OK;
}

lmtp2nntp_option_rc_t option_parse(lmtp2nntp_option_t *o, int argc, char **argv)
{
    printf("DEBUG: enter option_parse(%.8lx, %d, %.8lx)\n", (long)o, argc, (long)argv);

    if (o == NULL)
        return OPTION_ERR_ARG;

    (void)option_register(o, "childsmax",           'C', OPT_SINGLE, &stdsyntax, "[0-9]{,5}",           "foo", "childsmax" );
    (void)option_register(o, "daemonize",           'D', OPT_FLAG,   NULL,       NULL,                  "foo", NULL );
    (void)option_register(o, "kill",                'K', OPT_FLAG,   NULL,       NULL,                  "foo", NULL );
    (void)option_register(o, "pidfile",             'P', OPT_SINGLE, &stdsyntax, ".{,255}",             "foo", "pidfile" );
    (void)option_register(o, "veryverbose",         'V', OPT_FLAG,   NULL,       NULL,                  "foo", NULL );
    (void)option_register(o, "acl",                 'a', OPT_MULTI,  &stdsyntax, "[0-9.](/[0-9]2)?",    "foo", "addr[/mask]" );
    (void)option_register(o, "bind",                'b', OPT_SINGLE, &stdsyntax, ".*",                  "foo", "addr[:port]|-|path[:perms]" );
    (void)option_register(o, "client",              'c', OPT_SINGLE, &stdsyntax, ".*",                  "foo", "addr[:port]" );
    (void)option_register(o, "destination",         'd', OPT_MULTI,  &stdsyntax, ".*",                  "foo", "addr[:port]" );
    (void)option_register(o, "groupmode",           'g', OPT_SINGLE, &stdsyntax, ".*",                  "foo", "groupmode" );
    (void)option_register(o, "headervalue",         'h', OPT_MULTI,  &stdsyntax, ".*",                  "foo", "header: value" );
    (void)option_register(o, "include",             'i', OPT_MULTI,  &includeit, ".*",                  "foo", "configfile" );
    (void)option_register(o, "size",                's', OPT_SINGLE, &stdsyntax, ".*",                  "foo", "bytes" );
    (void)option_register(o, "timeoutlmtpaccept",   NUL, OPT_MULTI,  &stdsyntax, ".*",                  "foo", "sec" );
    (void)option_register(o, "timeoutlmtpread",     NUL, OPT_MULTI,  &stdsyntax, ".*",                  "foo", "sec" );
    (void)option_register(o, "timeoutlmtpwrite",    NUL, OPT_MULTI,  &stdsyntax, ".*",                  "foo", "sec" );
    (void)option_register(o, "timeoutnntpconnect",  NUL, OPT_MULTI,  &stdsyntax, ".*",                  "foo", "sec" );
    (void)option_register(o, "timeoutnntpread",     NUL, OPT_MULTI,  &stdsyntax, ".*",                  "foo", "sec" );
    (void)option_register(o, "timeoutnntpwrite",    NUL, OPT_MULTI,  &stdsyntax, ".*",                  "foo", "sec" );
    (void)option_register(o, "mailfrom",            'm', OPT_SINGLE, &stdsyntax, ".*",                  "foo", "regex" );
    (void)option_register(o, "nodename",            'n', OPT_SINGLE, &stdsyntax, ".*",                  "foo", "nodename" );
    (void)option_register(o, "operationmode",       'o', OPT_SINGLE, &stdsyntax, ".*",                  "foo", "post|feed" );
    (void)option_register(o, "l2spec",              'l', OPT_SINGLE, &stdsyntax, ".*",                  "foo", "spec" );
    (void)option_register(o, "uid",                 'u', OPT_SINGLE, &stdsyntax, ".*",                  "foo", "number|name" );
    (void)option_register(o, "restrictheader",      'r', OPT_MULTI,  &stdsyntax, ".*",                  "foo", "regex" );
    (void)option_register(o, "newsgroup",           NUL, OPT_MULTI,  &stdsyntax, ".*",                  "foo", "newsgroup");

    
    {
        int i;
        char *cp;
        optionconfig_t *ocp;
        popt_context poptCon;   /* context for parsing command-line options */

        poptCon = popt_getcontext(NULL, argc, (const char **)argv, o->pt, 0);
        popt_setotheroptionhelp(poptCon, "[OPTIONS]* [newsgroup ...]");
        printf("DEBUG: argc=%d\n", argc);
        if (argc < 2) {
            popt_printusage(poptCon, stderr, 0);
            exit(1);
        }
        while ((i = popt_getnextopt(poptCon)) >= 0) {
            (void)option_find(o, i, &ocp);
            if (ocp->type == OPT_FLAG)
                ocp->cb(ocp, "ohne", ocp->cbctx);
            else
                ocp->cb(ocp, cp = popt_getoptarg(poptCon), ocp->cbctx);
            printf("DEBUG: popt_getnextopt returned  %d \"%s\", \"%s\"\n", i, o->pt[i].longName, ocp->longname);
            printf("DEBUG: popt_getoptarg  returned  \"%s\"\n", cp);
        }
        printf("DEBUG: current popt error is \"%s\"(%d)\n", popt_strerror(i), i);
        printf("DEBUG: ----\n");
        while ((cp = (char *)popt_getarg(poptCon)) != NULL) {
            printf("DEBUG: popt_getarg returned \"%s\"\n", cp);
        }
        printf("DEBUG: current popt error is \"%s\"(%d)\n", popt_strerror(i), i);
        popt_freecontext(poptCon);
    }
    return OPTION_OK;
}

lmtp2nntp_option_rc_t option_destroy(lmtp2nntp_option_t *o)
{
    if (o == NULL)
        return OPTION_ERR_ARG;

    if (o->vo != NULL)
        val_destroy(o->vo);

    free(o);

    return OPTION_OK;
}

CVSTrac 2.0.1