path: root/innbbsd/daemon.c

#include "daemon.h"
/*
 * typedef struct daemoncmd { char *cmdname; char *usage; int argc; int
 * (*main) ARG((FILE*,FILE*,int,char**,char*)); } daemoncmd_t;
 * 
 */

void deargify   ARG((char ***));
static daemoncmd_t *dcmdp = NULL;
static char    *startupmessage = NULL;
static int      startupcode = 100;
static FILE    *DIN, *DOUT, *DIO;
typedef int     (*F) ();

void 
installdaemon(cmds, code, startupmsg)
    daemoncmd_t    *cmds;
    int             code;
    char           *startupmsg;
{
    dcmdp = cmds;
    startupcode = code;
    startupmessage = startupmsg;
}

daemoncmd_t    *
searchcmd(cmd)
    char           *cmd;
{
    daemoncmd_t    *p;
    for (p = dcmdp; p->name != NULL; p++) {
#ifdef DEBUGCMD
    printf("searching name %s for cmd %s\n", p->name, cmd);
#endif
    if (!strncasecmp(p->name, cmd, 1024))
        return p;
    }
    return NULL;
}

#if 0
int 
daemon(dfd)
    int             dfd;
{
    static char     BUF[1024];
    /* hash_init(); */
    if (dfd > 0) {
    DIO = fdopen(dfd, "rw");
    DIN = fdopen(dfd, "r");
    DOUT = fdopen(dfd, "w");
    if (DIO == NULL || DIN == NULL || DOUT == NULL) {
        perror("fdopen");
        return -1;
    }
    }
    if (startupmessage) {
    fprintf(DOUT, "%d %s\n", startupcode, startupmessage);
    fflush(DOUT);
    }
    while (fgets(BUF, 1024, DIN) != NULL) {
    int             i;
    int             (*Main) ();
    daemoncmd_t    *dp;
    argv_t          Argv;

    char           *p = (char *)strchr(BUF, '\r');
    if (p == NULL)
        p = (char *)strchr(BUF, '\n');
    if (p == NULL)
        continue;
    *p = '\0';
    if (p == BUF)
        continue;

    Argv.argc = 0, Argv.argv = NULL, Argv.inputline = BUF;
    Argv.in = DIN, Argv.out = DOUT;
    printf("command entered: %s\n", BUF);
#ifdef DEBUGSERVER
    fprintf(DOUT, "BUF in client %s\n", BUF);
    fprintf(stdout, "BUF in server %s\n", BUF);
    fflush(DOUT);
#endif
    Argv.argc = argify(BUF, &Argv.argv);
#ifdef DEBUGSERVER
    fprintf(stdout, "argc %d argv ", Argv.argc);
    for (i = 0; i < Argv.argc; ++i)
        fprintf(stdout, "%s ", Argv.argv[i]);
    fprintf(stdout, "\n");
#endif
    dp = searchcmd(Argv.argv[0]);
    Argv.dc = dp;
    if (dp) {
#ifdef DEBUGSERVER
        printf("find cmd %s by %s\n", dp->name, dp->usage);
#endif
        if (Argv.argc < dp->argc) {
        fprintf(DOUT, "%d Usage: %s\n", dp->errorcode, dp->usage);
        fflush(DOUT);
        goto cont;
        }
        if (dp->argno != 0 && Argv.argc > dp->argno) {
        fprintf(DOUT, "%d Usage: %s\n", dp->errorcode, dp->usage);
        fflush(DOUT);
        goto cont;
        }
        Main = dp->main;
        if (Main) {
        fflush(stdout);
        (*Main) (&Argv);
        }
    } else {
        fprintf(DOUT, "99 command %s not available\n", Argv.argv[0]);
        fflush(DOUT);
    }
cont:
    deargify(&Argv.argv);
    }
    /* hash_reclaim(); */
}
#endif

#define MAX_ARG 32
#define MAX_ARG_SIZE 16384

int 
argify(line, argvp)
    char           *line, ***argvp;
{
    static char    *argvbuffer[MAX_ARG + 2];
    char          **argv = argvbuffer;
    int             i;
    static char     argifybuffer[MAX_ARG_SIZE];
    char           *p;
    while (strchr("\t\n\r ", *line))
    line++;
    i = strlen(line);
    /* p=(char*) mymalloc(i+1); */
    p = argifybuffer;
    strncpy(p, line, sizeof argifybuffer);
    for (*argvp = argv, i = 0; *p && i < MAX_ARG;) {
    for (*argv++ = p; *p && !strchr("\t\r\n ", *p); p++);
    if (*p == '\0')
        break;
    for (*p++ = '\0'; strchr("\t\r\n ", *p) && *p; p++);
    }
    *argv = NULL;
    return argv - *argvp;
}

void 
deargify(argv)
    char         ***argv;
{
    return;
    /*
     * if (*argv != NULL) { if (*argv[0] != NULL){ free(*argv[0]); argv[0] =
     * NULL; } free(*argv); argv = NULL; }
     */
}

int 
daemonprintf(format)
    char           *format;
{
    fprintf(DOUT, format);
    fflush(DOUT);
}

int 
daemonputs(output)
    char           *output;
{
    fputs(output, DOUT);
    fflush(DOUT);
}