path: root/trans/itoc_trans.c

/* $Id$ */
/* tool to convert itoc bbs to ptt bbs */

#include "bbs.h"

typedef struct {
    time4_t chrono;
#ifdef FOR_WRETCH
    char pad[4]; // Use only for Wretch
#endif
    int xmode;
    int xid;
    char xname[32];               /* 檔案名稱 */
    char owner[80];               /* 作者 (E-mail address) */
    char nick[50];                /* 暱稱 */
    char date[9];                 /* [96/12/01] */
    char title[72];               /* 主題 (TTLEN + 1) */
    char score;
#ifdef FOR_WRETCH
    char pad2[4];
#endif
} itoc_HDR;

#define ITOC_POST_MARKED     0x00000002      /* marked */
#define ITOC_POST_BOTTOM1    0x00002000      /* 置底文章的正本 */

#define ITOC_GEM_RESTRICT    0x0800          /* 限制級精華區，須 manager 才能看 */
#define ITOC_GEM_RESERVED    0x1000          /* 限制級精華區，須 sysop 才能更改 */
#define ITOC_GEM_FOLDER      0x00010000      /* folder / article */
#define ITOC_GEM_BOARD       0x00020000      /* 看板精華區 */

static const char radix32[32] = {
    '0', '1', '2', '3', '4', '5', '6', '7',
    '8', '9', 'A', 'B', 'C', 'D', 'E', 'F',
    'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N',
    'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
};

char *path;
int trans_man = 0;

int convert(char *fname, char *newpath)
{
    int fd;
    char *p;
    char buf[PATHLEN];
    itoc_HDR ihdr;
    fileheader_t fhdr;

    if (fname[0] == '.')
    snprintf(buf, sizeof(buf), "%s/%s", path, fname);
    else
    snprintf(buf, sizeof(buf), "%s/%c/%s", path, fname[7], fname);

    if ((fd = open(buf, O_RDONLY, 0)) == -1)
    return -1;

    while (read(fd, &ihdr, sizeof(ihdr)) == sizeof(ihdr)) {
    if (strcmp(ihdr.xname, "..") == 0 || strchr(ihdr.xname, '/'))
        continue;

    if (!(ihdr.xmode & 0xffff0000)) {
        /* article */
        stampfile(newpath, &fhdr);

        if (trans_man)
        strlcpy(fhdr.title, "◇ ", sizeof(fhdr.title));

        if (ihdr.xname[0] == '@')
        snprintf(buf, sizeof(buf), "%s/@/%s", path, ihdr.xname);
        else
        snprintf(buf, sizeof(buf), "%s/%c/%s", path, ihdr.xname[7], ihdr.xname);

        fhdr.modified = dasht(buf);
        if (ihdr.xmode & ITOC_POST_MARKED)
        fhdr.filemode |= FILE_MARKED;

        copy_file(buf, newpath);
    }
    else if (ihdr.xmode & ITOC_GEM_FOLDER) {
        /* folder */
        if (!trans_man)
        continue;

        stampdir(newpath, &fhdr);

        if (trans_man)
        strlcpy(fhdr.title, "◆ ", sizeof(fhdr.title));

        convert(ihdr.xname, newpath);
    }
    else {
        /* ignore */
        continue;
    }

    p = strrchr(newpath, '/');
    *p = '\0';

    if (ihdr.xmode & ITOC_GEM_RESTRICT)
        fhdr.filemode |= FILE_BM;

    strlcat(fhdr.title, ihdr.title, sizeof(fhdr.title));
    strlcpy(fhdr.owner, ihdr.owner, sizeof(fhdr.owner));
    if (ihdr.date[0] && strlen(ihdr.date) == 8)
        strlcpy(fhdr.date, ihdr.date + 3, sizeof(fhdr.date));
    else
        strlcpy(fhdr.date, "     ", sizeof(fhdr.date));

    setadir(buf, newpath);
    append_record(buf, &fhdr, sizeof(fhdr));
    }

    close(fd);
    return 0;
}

int main(int argc, char *argv[])
{
    char buf[PATHLEN];
    char *board;
    int opt;

    while ((opt = getopt(argc, argv, "m")) != -1) {
    switch (opt) {
        case 'm':
        trans_man = 1;
        break;
        default:
        fprintf(stderr, "%s [-m] <path> <board>\n", argv[0]);
        fprintf(stderr, "  -m convert man (default is board)\n");
    }
    }

    if ((argc - optind + 1) < 2) {
    fprintf(stderr, "%s [-m] <path> <board>\n", argv[0]);
    fprintf(stderr, "  -m convert man (default is board)\n");
    return 0;
    }

    path = argv[optind];
    board = argv[optind+1];

    if (!dashd(path)) {
    fprintf(stderr, "%s is not directory\n", path);
    return 0;
    }

    attach_SHM();
    opt = getbnum(board);

    if (opt == 0) {
    fprintf(stderr, "ERR: board `%s' not found\n", board);
    return 0;
    }

    if (trans_man)
    setapath(buf, board);
    else
    setbpath(buf, board);

    if (!dashd(buf)) {
    fprintf(stderr, "%s is not directory\n", buf);
    return 0;
    }

    attach_SHM();

    convert(".DIR", buf);

    if (trans_man) {
    strlcat(buf, "/.rebuild", sizeof(buf));
    if ((opt = open(buf, O_CREAT, 0640)) > 0)
        close(opt);
    }
    else
    touchbtotal(opt);

    return 0;
}