/*
 *  Copyright (C) 2006 Sensory Networks, Inc.
 *	      (C) 2007 Tomasz Kojm <tkojm@clamav.net>
 *	      Written by Tomasz Kojm
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License version 2 as
 *  published by the Free Software Foundation.
 *
 *  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, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
 *  MA 02110-1301, USA.
 */

#if HAVE_CONFIG_H
#include "clamav-config.h"
#endif

#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <sys/types.h>
#include <sys/stat.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif

#include "clamav.h"
#include "shared/misc.h"
#include "shared/output.h"
#include "shared/cdiff.h"

#include "libclamav/str.h"
#include "libclamav/others.h"
#include "libclamav/cvd.h"
#include "libclamav/default.h"

#include "zlib.h"

#include "libclamav/dsig.h"

#include <openssl/evp.h>

#define PSS_NSTR "14783905874077467090262228516557917570254599638376203532031989214105552847269687489771975792123442185817287694951949800908791527542017115600501303394778618535864845235700041590056318230102449612217458549016089313306591388590790796515819654102320725712300822356348724011232654837503241736177907784198700834440681124727060540035754699658105895050096576226753008596881698828185652424901921668758326578462003247906470982092298106789657211905488986281078346361469524484829559560886227198091995498440676639639830463593211386055065360288422394053998134458623712540683294034953818412458362198117811990006021989844180721010947"
#define PSS_ESTR "100002053"
#define PSS_NBITS 2048
#define PSS_DIGEST_LENGTH 32

/* the line size can be changed from within .cdiff */
#define CDIFF_LINE_SIZE CLI_DEFAULT_LSIG_BUFSIZE + 32

struct cdiff_node {
    unsigned int lineno;
    char *str, *str2;
    struct cdiff_node *next;
};

struct cdiff_ctx {
    char *open_db;
    struct cdiff_node *add_start, *add_last;
    struct cdiff_node *del_start;
    struct cdiff_node *xchg_start, *xchg_last;
};

struct cdiff_cmd {
    const char *name;
    unsigned short argc;
    int (*handler)(const char *, struct cdiff_ctx *, char *, unsigned int);
};

static int cdiff_cmd_open(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen);
static int cdiff_cmd_add(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen);
static int cdiff_cmd_del(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen);
static int cdiff_cmd_xchg(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen);
static int cdiff_cmd_close(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen);
static int cdiff_cmd_move(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen);
static int cdiff_cmd_unlink(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen);

static struct cdiff_cmd commands[] = {
    /* OPEN db_name */
    {"OPEN", 1, &cdiff_cmd_open},

    /* ADD newsig */
    {"ADD", 1, &cdiff_cmd_add},

    /* DEL line_no some_first_bytes */
    {"DEL", 2, &cdiff_cmd_del},

    /* XCHG line_no some_first_bytes_of_old_line new_line */
    {"XCHG", 3, &cdiff_cmd_xchg},

    /* CLOSE */
    {"CLOSE", 0, &cdiff_cmd_close},

    /* MOVE src_db dst_db start_line first_16b end_line first_16b */
    {"MOVE", 6, &cdiff_cmd_move},

    /* UNLINK db_name */
    {"UNLINK", 1, &cdiff_cmd_unlink},

    {NULL, 0, NULL}};

static void cdiff_ctx_free(struct cdiff_ctx *ctx)
{
    struct cdiff_node *pt;

    if (ctx->open_db) {
        free(ctx->open_db);
        ctx->open_db = NULL;
    }

    while (ctx->add_start) {
        free(ctx->add_start->str);
        pt             = ctx->add_start;
        ctx->add_start = ctx->add_start->next;
        free(pt);
    }
    ctx->add_last = NULL;

    while (ctx->del_start) {
        free(ctx->del_start->str);
        pt             = ctx->del_start;
        ctx->del_start = ctx->del_start->next;
        free(pt);
    }

    while (ctx->xchg_start) {
        free(ctx->xchg_start->str);
        free(ctx->xchg_start->str2);
        pt              = ctx->xchg_start;
        ctx->xchg_start = ctx->xchg_start->next;
        free(pt);
    }
}

static char *cdiff_token(const char *line, unsigned int token, unsigned int last)
{
    unsigned int counter = 0, i, j;
    char *buffer;

    for (i = 0; line[i] && counter != token; i++)
        if (line[i] == ' ')
            counter++;

    if (!line[i])
        return NULL;

    if (last)
        return strdup(&line[i]);

    for (j = i; line[j]; j++)
        if (line[j] == ' ')
            break;

    if (i == j)
        return NULL;

    buffer = malloc(j - i + 1);
    if (!buffer)
        return NULL;

    strncpy(buffer, line + i, j - i);
    buffer[j - i] = '\0';

    return buffer;
}

static int cdiff_cmd_open(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen)
{
    char *db;
    unsigned int i;

    UNUSEDPARAM(lbuf);
    UNUSEDPARAM(lbuflen);

    if (!(db = cdiff_token(cmdstr, 1, 1))) {
        logg("!cdiff_cmd_open: Can't get first argument\n");
        return -1;
    }

    if (ctx->open_db) {
        logg("!cdiff_cmd_open: %s not closed before opening %s\n", ctx->open_db, db);
        free(db);
        return -1;
    }

    for (i = 0; i < strlen(db); i++) {
        if ((db[i] != '.' && !isalnum(db[i])) || strchr("/\\", db[i])) {
            logg("!cdiff_cmd_open: Forbidden characters found in database name\n");
            free(db);
            return -1;
        }
    }

    ctx->open_db = db;
    return 0;
}

static int cdiff_cmd_add(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen)
{
    char *sig;
    struct cdiff_node *new;

    UNUSEDPARAM(lbuf);
    UNUSEDPARAM(lbuflen);

    if (!(sig = cdiff_token(cmdstr, 1, 1))) {
        logg("!cdiff_cmd_add: Can't get first argument\n");
        return -1;
    }

    new = (struct cdiff_node *)calloc(1, sizeof(struct cdiff_node));
    if (!new) {
        logg("!cdiff_cmd_add: Can't allocate memory for cdiff_node\n");
        free(sig);
        return -1;
    }
    new->str = sig;

    if (!ctx->add_last) {
        ctx->add_start = ctx->add_last = new;
    } else {
        ctx->add_last->next = new;
        ctx->add_last       = new;
    }

    return 0;
}

static int cdiff_cmd_del(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen)
{
    char *arg;
    struct cdiff_node *pt, *last, *new;
    unsigned int lineno;

    UNUSEDPARAM(lbuf);
    UNUSEDPARAM(lbuflen);

    if (!(arg = cdiff_token(cmdstr, 1, 0))) {
        logg("!cdiff_cmd_del: Can't get first argument\n");
        return -1;
    }
    lineno = (unsigned int)atoi(arg);
    free(arg);

    if (!(arg = cdiff_token(cmdstr, 2, 1))) {
        logg("!cdiff_cmd_del: Can't get second argument\n");
        return -1;
    }

    new = (struct cdiff_node *)calloc(1, sizeof(struct cdiff_node));
    if (!new) {
        logg("!cdiff_cmd_del: Can't allocate memory for cdiff_node\n");
        free(arg);
        return -1;
    }
    new->str    = arg;
    new->lineno = lineno;

    if (!ctx->del_start) {

        ctx->del_start = new;

    } else {

        if (lineno < ctx->del_start->lineno) {
            new->next      = ctx->del_start;
            ctx->del_start = new;

        } else {
            pt = ctx->del_start;

            while (pt) {
                last = pt;
                if ((pt->lineno < lineno) && (!pt->next || lineno < pt->next->lineno))
                    break;

                pt = pt->next;
            }

            new->next  = last->next;
            last->next = new;
        }
    }

    return 0;
}

static int cdiff_cmd_xchg(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen)
{
    char *arg, *arg2;
    struct cdiff_node *new;
    unsigned int lineno;

    UNUSEDPARAM(lbuf);
    UNUSEDPARAM(lbuflen);

    if (!(arg = cdiff_token(cmdstr, 1, 0))) {
        logg("!cdiff_cmd_xchg: Can't get first argument\n");
        return -1;
    }
    lineno = (unsigned int)atoi(arg);
    free(arg);

    if (!(arg = cdiff_token(cmdstr, 2, 0))) {
        logg("!cdiff_cmd_xchg: Can't get second argument\n");
        return -1;
    }

    if (!(arg2 = cdiff_token(cmdstr, 3, 1))) {
        free(arg);
        logg("!cdiff_cmd_xchg: Can't get second argument\n");
        return -1;
    }

    new = (struct cdiff_node *)calloc(1, sizeof(struct cdiff_node));
    if (!new) {
        logg("!cdiff_cmd_xchg: Can't allocate memory for cdiff_node\n");
        free(arg);
        free(arg2);
        return -1;
    }
    new->str    = arg;
    new->str2   = arg2;
    new->lineno = lineno;

    if (!ctx->xchg_start)
        ctx->xchg_start = new;
    else
        ctx->xchg_last->next = new;

    ctx->xchg_last = new;
    return 0;
}

static int cdiff_cmd_close(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen)
{
    struct cdiff_node *add, *del, *xchg;
    unsigned int lines = 0;
    char *tmp;
    FILE *fh, *tmpfh;

    UNUSEDPARAM(cmdstr);

    if (!ctx->open_db) {
        logg("!cdiff_cmd_close: No database to close\n");
        return -1;
    }

    add  = ctx->add_start;
    del  = ctx->del_start;
    xchg = ctx->xchg_start;

    if (del || xchg) {

        if (!(fh = fopen(ctx->open_db, "rb"))) {
            logg("!cdiff_cmd_close: Can't open file %s for reading\n", ctx->open_db);
            return -1;
        }

        if (!(tmp = cli_gentemp("."))) {
            logg("!cdiff_cmd_close: Can't generate temporary name\n");
            fclose(fh);
            return -1;
        }

        if (!(tmpfh = fopen(tmp, "wb"))) {
            logg("!cdiff_cmd_close: Can't open file %s for writing\n", tmp);
            fclose(fh);
            free(tmp);
            return -1;
        }

        while (fgets(lbuf, lbuflen, fh)) {
            lines++;

            if (del && del->lineno == lines) {
                if (strncmp(lbuf, del->str, strlen(del->str))) {
                    fclose(fh);
                    fclose(tmpfh);
                    unlink(tmp);
                    free(tmp);
                    logg("!cdiff_cmd_close: Can't apply DEL at line %d of %s\n", lines, ctx->open_db);
                    return -1;
                }
                del = del->next;
                continue;
            }

            if (xchg && xchg->lineno == lines) {
                if (strncmp(lbuf, xchg->str, strlen(xchg->str))) {
                    fclose(fh);
                    fclose(tmpfh);
                    unlink(tmp);
                    free(tmp);
                    logg("!cdiff_cmd_close: Can't apply XCHG at line %d of %s\n", lines, ctx->open_db);
                    return -1;
                }

                if (fputs(xchg->str2, tmpfh) == EOF || fputc('\n', tmpfh) == EOF) {
                    fclose(fh);
                    fclose(tmpfh);
                    unlink(tmp);
                    logg("!cdiff_cmd_close: Can't write to %s\n", tmp);
                    free(tmp);
                    return -1;
                }
                xchg = xchg->next;
                continue;
            }

            if (fputs(lbuf, tmpfh) == EOF) {
                fclose(fh);
                fclose(tmpfh);
                unlink(tmp);
                logg("!cdiff_cmd_close: Can't write to %s\n", tmp);
                free(tmp);
                return -1;
            }
        }

        fclose(fh);
        fclose(tmpfh);

        if (del || xchg) {
            logg("!cdiff_cmd_close: Not all DEL/XCHG have been executed\n");
            unlink(tmp);
            free(tmp);
            return -1;
        }

        if (unlink(ctx->open_db) == -1) {
            logg("!cdiff_cmd_close: Can't unlink %s\n", ctx->open_db);
            unlink(tmp);
            free(tmp);
            return -1;
        }

        if (rename(tmp, ctx->open_db) == -1) {
            logg("!cdiff_cmd_close: Can't rename %s to %s\n", tmp, ctx->open_db);
            unlink(tmp);
            free(tmp);
            return -1;
        }

        free(tmp);
    }

    if (add) {

        if (!(fh = fopen(ctx->open_db, "ab"))) {
            logg("!cdiff_cmd_close: Can't open file %s for appending\n", ctx->open_db);
            return -1;
        }

        while (add) {
            if (fputs(add->str, fh) == EOF || fputc('\n', fh) == EOF) {
                fclose(fh);
                logg("!cdiff_cmd_close: Can't write to %s\n", ctx->open_db);
                return -1;
            }
            add = add->next;
        }

        fclose(fh);
    }

    cdiff_ctx_free(ctx);

    return 0;
}

static int cdiff_cmd_move(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen)
{
    unsigned int lines = 0, start_line, end_line;
    char *arg, *srcdb, *dstdb, *tmpdb, *start_str, *end_str;
    FILE *src, *dst, *tmp;

    if (ctx->open_db) {
        logg("!cdiff_cmd_move: Database %s is still open\n", ctx->open_db);
        return -1;
    }

    if (!(arg = cdiff_token(cmdstr, 3, 0))) {
        logg("!cdiff_cmd_move: Can't get third argument\n");
        return -1;
    }
    start_line = atoi(arg);
    free(arg);

    if (!(arg = cdiff_token(cmdstr, 5, 0))) {
        logg("!cdiff_cmd_move: Can't get fifth argument\n");
        return -1;
    }
    end_line = atoi(arg);
    free(arg);

    if (end_line < start_line) {
        logg("!cdiff_cmd_move: end_line < start_line\n");
        return -1;
    }

    if (!(start_str = cdiff_token(cmdstr, 4, 0))) {
        logg("!cdiff_cmd_move: Can't get fourth argument\n");
        return -1;
    }

    if (!(end_str = cdiff_token(cmdstr, 6, 0))) {
        logg("!cdiff_cmd_move: Can't get sixth argument\n");
        free(start_str);
        return -1;
    }

    if (!(srcdb = cdiff_token(cmdstr, 1, 0))) {
        logg("!cdiff_cmd_move: Can't get first argument\n");
        free(start_str);
        free(end_str);
        return -1;
    }

    if (!(src = fopen(srcdb, "rb"))) {
        logg("!cdiff_cmd_move: Can't open %s for reading\n", srcdb);
        free(start_str);
        free(end_str);
        free(srcdb);
        return -1;
    }

    if (!(dstdb = cdiff_token(cmdstr, 2, 0))) {
        logg("!cdiff_cmd_move: Can't get second argument\n");
        free(start_str);
        free(end_str);
        free(srcdb);
        fclose(src);
        return -1;
    }

    if (!(dst = fopen(dstdb, "ab"))) {
        logg("!cdiff_cmd_move: Can't open %s for appending\n", dstdb);
        free(start_str);
        free(end_str);
        free(srcdb);
        fclose(src);
        free(dstdb);
        return -1;
    }

    if (!(tmpdb = cli_gentemp("."))) {
        logg("!cdiff_cmd_move: Can't generate temporary name\n");
        free(start_str);
        free(end_str);
        free(srcdb);
        fclose(src);
        free(dstdb);
        fclose(dst);
        return -1;
    }

    if (!(tmp = fopen(tmpdb, "wb"))) {
        logg("!cdiff_cmd_move: Can't open file %s for writing\n", tmpdb);
        free(start_str);
        free(end_str);
        free(srcdb);
        fclose(src);
        free(dstdb);
        fclose(dst);
        free(tmpdb);
        return -1;
    }

    while (fgets(lbuf, lbuflen, src)) {
        lines++;

        if (lines == start_line) {
            if (strncmp(lbuf, start_str, strlen(start_str))) {
                free(start_str);
                free(end_str);
                free(srcdb);
                fclose(src);
                free(dstdb);
                fclose(dst);
                fclose(tmp);
                unlink(tmpdb);
                free(tmpdb);
                logg("!cdiff_cmd_close: Can't apply MOVE due to conflict at line %d\n", lines);
                return -1;
            }

            do {
                if (fputs(lbuf, dst) == EOF) {
                    free(start_str);
                    free(end_str);
                    free(srcdb);
                    fclose(src);
                    fclose(dst);
                    fclose(tmp);
                    unlink(tmpdb);
                    free(tmpdb);
                    logg("!cdiff_cmd_move: Can't write to %s\n", dstdb);
                    free(dstdb);
                    return -1;
                }
            } while ((lines < end_line) && fgets(lbuf, lbuflen, src) && lines++);

            fclose(dst);
            dst = NULL;
            free(dstdb);
            free(start_str);

            if (strncmp(lbuf, end_str, strlen(end_str))) {
                free(end_str);
                free(srcdb);
                fclose(src);
                fclose(tmp);
                unlink(tmpdb);
                free(tmpdb);
                logg("!cdiff_cmd_close: Can't apply MOVE due to conflict at line %d\n", lines);
                return -1;
            }

            free(end_str);
            continue;
        }

        if (fputs(lbuf, tmp) == EOF) {
            if (dst) {
                fclose(dst);
                free(dstdb);
                free(start_str);
                free(end_str);
            }
            free(srcdb);
            fclose(src);
            fclose(tmp);
            unlink(tmpdb);
            logg("!cdiff_cmd_move: Can't write to %s\n", tmpdb);
            free(tmpdb);
            return -1;
        }
    }

    fclose(src);
    fclose(tmp);

    if (dst) {
        fclose(dst);
        free(start_str);
        free(end_str);
        unlink(tmpdb);
        free(tmpdb);
        logg("!cdiff_cmd_move: No data was moved from %s to %s\n", srcdb, dstdb);
        free(srcdb);
        free(dstdb);
        return -1;
    }

    if (unlink(srcdb) == -1) {
        logg("!cdiff_cmd_move: Can't unlink %s\n", srcdb);
        free(srcdb);
        unlink(tmpdb);
        free(tmpdb);
        return -1;
    }

    if (rename(tmpdb, srcdb) == -1) {
        logg("!cdiff_cmd_move: Can't rename %s to %s\n", tmpdb, srcdb);
        free(srcdb);
        unlink(tmpdb);
        free(tmpdb);
        return -1;
    }

    free(srcdb);
    free(tmpdb);

    return 0;
}

static int cdiff_cmd_unlink(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen)
{
    char *db;
    unsigned int i;

    UNUSEDPARAM(lbuf);
    UNUSEDPARAM(lbuflen);

    if (ctx->open_db) {
        logg("!cdiff_cmd_unlink: Database %s is still open\n", ctx->open_db);
        return -1;
    }

    if (!(db = cdiff_token(cmdstr, 1, 1))) {
        logg("!cdiff_cmd_unlink: Can't get first argument\n");
        return -1;
    }

    for (i = 0; i < strlen(db); i++) {
        if ((db[i] != '.' && !isalnum(db[i])) || strchr("/\\", db[i])) {
            logg("!cdiff_cmd_unlink: Forbidden characters found in database name\n");
            free(db);
            return -1;
        }
    }

    if (unlink(db) == -1) {
        logg("!cdiff_cmd_unlink: Can't unlink %s\n", db);
        free(db);
        return -1;
    }

    free(db);
    return 0;
}

static int cdiff_execute(const char *cmdstr, struct cdiff_ctx *ctx, char *lbuf, unsigned int lbuflen)
{
    char *cmd_name, *tmp;
    int (*cmd_handler)(const char *, struct cdiff_ctx *, char *, unsigned int) = NULL;
    unsigned int i;

    cmd_name = cdiff_token(cmdstr, 0, 0);
    if (!cmd_name) {
        logg("!cdiff_apply: Problem parsing line\n");
        return -1;
    }

    for (i = 0; commands[i].name; i++) {
        if (!strcmp(commands[i].name, cmd_name)) {
            cmd_handler = commands[i].handler;
            break;
        }
    }

    if (!cmd_handler) {
        logg("!cdiff_apply: Unknown command %s\n", cmd_name);
        free(cmd_name);
        return -1;
    }

    if (!(tmp = cdiff_token(cmdstr, commands[i].argc, 1))) {
        logg("!cdiff_apply: Not enough arguments for %s\n", cmd_name);
        free(cmd_name);
        return -1;
    }
    free(tmp);

    if (cmd_handler(cmdstr, ctx, lbuf, lbuflen)) {
        logg("!cdiff_apply: Can't execute command %s\n", cmd_name);
        free(cmd_name);
        return -1;
    }

    free(cmd_name);
    return 0;
}

int cdiff_apply(int fd, unsigned short mode)
{
    struct cdiff_ctx ctx;
    FILE *fh;
    gzFile gzh;
    char *line, *lbuf, buff[FILEBUFF], *dsig = NULL;
    unsigned int lines = 0, cmds = 0;
    unsigned int difflen, diffremain, line_size = CDIFF_LINE_SIZE;
    int end, i, n;
    struct stat sb;
    int desc;
    EVP_MD_CTX *sha256ctx;
    unsigned char digest[32];
    int sum, bread;
#define DSIGBUFF 350

    memset(&ctx, 0, sizeof(ctx));

    if ((desc = dup(fd)) == -1) {
        logg("!cdiff_apply: Can't duplicate descriptor %d\n", fd);
        return -1;
    }

    if (!(line = malloc(line_size))) {
        logg("!cdiff_apply: Can't allocate memory for 'line'\n");
        close(desc);
        return -1;
    }

    if (!(lbuf = malloc(line_size))) {
        logg("!cdiff_apply: Can't allocate memory for 'lbuf'\n");
        close(desc);
        free(line);
        return -1;
    }

    if (mode == 1) { /* .cdiff */

        if (lseek(desc, -DSIGBUFF, SEEK_END) == -1) {
            logg("!cdiff_apply: lseek(desc, %d, SEEK_END) failed\n", -DSIGBUFF);
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        memset(line, 0, line_size);
        if (read(desc, line, DSIGBUFF) != DSIGBUFF) {
            logg("!cdiff_apply: Can't read %d bytes\n", DSIGBUFF);
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        for (i = DSIGBUFF - 1; i >= 0; i--) {
            if (line[i] == ':') {
                dsig = &line[i + 1];
                break;
            }
        }

        if (!dsig) {
            logg("!cdiff_apply: No digital signature in cdiff file\n");
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        if (fstat(desc, &sb) == -1) {
            logg("!cdiff_apply: Can't fstat file\n");
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        end = sb.st_size - (DSIGBUFF - i);
        if (end < 0) {
            logg("!cdiff_apply: compressed data end offset < 0\n");
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        if (lseek(desc, 0, SEEK_SET) == -1) {
            logg("!cdiff_apply: lseek(desc, 0, SEEK_SET) failed\n");
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        sha256ctx = EVP_MD_CTX_create();
        if (!(sha256ctx)) {
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        EVP_DigestInit_ex(sha256ctx, EVP_sha256(), NULL);
        sum = 0;
        while ((bread = read(desc, buff, FILEBUFF)) > 0) {
            if (sum + bread >= end) {
                EVP_DigestUpdate(sha256ctx, (unsigned char *)buff, end - sum);
                break;
            } else {
                EVP_DigestUpdate(sha256ctx, (unsigned char *)buff, bread);
            }
            sum += bread;
        }
        EVP_DigestFinal_ex(sha256ctx, digest, NULL);
        EVP_MD_CTX_destroy(sha256ctx);

        if (cli_versig2(digest, dsig, PSS_NSTR, PSS_ESTR) != CL_SUCCESS) {
            logg("!cdiff_apply: Incorrect digital signature\n");
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        if (lseek(desc, 0, SEEK_SET) == -1) {
            logg("!cdiff_apply: lseek(desc, 0, SEEK_SET) failed\n");
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        i = 0;
        n = 0;
        while (n < FILEBUFF - 1 && read(desc, &buff[n], 1) > 0) {
            if (buff[n++] == ':')
                if (++i == 3)
                    break;
        }
        buff[n] = 0;

        if (sscanf(buff, "ClamAV-Diff:%*u:%u:", &difflen) != 1) {
            logg("!cdiff_apply: Incorrect file format\n");
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        if (!(gzh = gzdopen(desc, "rb"))) {
            logg("!cdiff_apply: Can't gzdopen descriptor %d\n", desc);
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        diffremain = difflen;
        while (diffremain) {
            unsigned int bufsize = diffremain < line_size ? diffremain + 1 : line_size;

            if (!gzgets(gzh, line, bufsize)) {
                logg("!cdiff_apply: Premature EOF at line %d\n", lines + 1);
                cdiff_ctx_free(&ctx);
                gzclose(gzh);
                free(line);
                free(lbuf);
                return -1;
            }
            diffremain -= strlen(line);
            lines++;
            cli_chomp(line);

            if (!strlen(line))
                continue;
            if (line[0] == '#') {
                if (!strncmp(line, "#LSIZE", 6) && sscanf(line, "#LSIZE %u", &line_size) == 1) {
                    char *r1, *r2;
                    if (line_size < CDIFF_LINE_SIZE || line_size > 10485760) {
                        logg("^cdiff_apply: Ignoring new buffer size request - invalid size %d\n", line_size);
                        line_size = CDIFF_LINE_SIZE;
                        continue;
                    }
                    r1 = realloc(line, line_size);
                    r2 = realloc(lbuf, line_size);
                    if (!r1 || !r2) {
                        logg("!cdiff_apply: Can't resize line buffer to %d bytes\n", line_size);
                        cdiff_ctx_free(&ctx);
                        gzclose(gzh);
                        if (!r1 && !r2) {
                            free(line);
                            free(lbuf);
                        } else if (!r1) {
                            free(line);
                            free(r2);
                        } else {
                            free(r1);
                            free(lbuf);
                        }
                        return -1;
                    }
                    line = r1;
                    lbuf = r2;
                }
                continue;
            }

            if (cdiff_execute(line, &ctx, lbuf, line_size) == -1) {
                logg("!cdiff_apply: Error executing command at line %d\n", lines);
                cdiff_ctx_free(&ctx);
                gzclose(gzh);
                free(line);
                free(lbuf);
                return -1;
            } else {
                cmds++;
            }
        }
        gzclose(gzh);

    } else { /* .script */

        if (!(fh = fdopen(desc, "rb"))) {
            logg("!cdiff_apply: fdopen() failed for descriptor %d\n", desc);
            close(desc);
            free(line);
            free(lbuf);
            return -1;
        }

        while (fgets(line, line_size, fh)) {
            lines++;
            cli_chomp(line);

            if (!strlen(line))
                continue;
            if (line[0] == '#') {
                if (!strncmp(line, "#LSIZE", 6) && sscanf(line, "#LSIZE %u", &line_size) == 1) {
                    char *r1, *r2;
                    if (line_size < CDIFF_LINE_SIZE || line_size > 10485760) {
                        logg("^cdiff_apply: Ignoring new buffer size request - invalid size %d\n", line_size);
                        line_size = CDIFF_LINE_SIZE;
                        continue;
                    }
                    r1 = realloc(line, line_size);
                    r2 = realloc(lbuf, line_size);
                    if (!r1 || !r2) {
                        logg("!cdiff_apply: Can't resize line buffer to %d bytes\n", line_size);
                        cdiff_ctx_free(&ctx);
                        fclose(fh);
                        if (!r1 && !r2) {
                            free(line);
                            free(lbuf);
                        } else if (!r1) {
                            free(line);
                            free(r2);
                        } else {
                            free(r1);
                            free(lbuf);
                        }
                        return -1;
                    }
                    line = r1;
                    lbuf = r2;
                }
                continue;
            }

            if (cdiff_execute(line, &ctx, lbuf, line_size) == -1) {
                logg("!cdiff_apply: Error executing command at line %d\n", lines);
                cdiff_ctx_free(&ctx);
                fclose(fh);
                free(line);
                free(lbuf);
                return -1;
            } else {
                cmds++;
            }
        }

        fclose(fh);
    }

    free(line);
    free(lbuf);

    if (ctx.open_db) {
        logg("*cdiff_apply: File %s was not properly closed\n", ctx.open_db);
        cdiff_ctx_free(&ctx);
        return -1;
    }

    logg("*cdiff_apply: Parsed %d lines and executed %d commands\n", lines, cmds);
    return 0;
}
