path: root/mbbsd/xyz.c

/* $Id: xyz.c,v 1.1 2002/03/07 15:13:48 in2 Exp $ */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <unistd.h>
#include <signal.h>
#include <time.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/wait.h>
#include "config.h"
#include "pttstruct.h"
#include "common.h"
#include "modes.h"
#include "proto.h"

extern char *fn_note_ans;
extern int b_lines;             /* Screen bottom line number: t_lines-1 */
extern char *BBSName;
extern char fromhost[];
extern userinfo_t *currutmp;
extern int curr_idle_timeout;
extern userec_t cuser;

/* 各種統計及相關資訊列表 */
/* Ptt90年度大學聯招查榜系統  */
int x_90() {
    extern char dict[21], database[41];
    strcpy(dict, "(90)准考證號/姓名/學校/科系/類組");
    strcpy(database, "etc/90");
    use_dict();
    return 0;
}

/* Ptt89年度大學聯招查榜系統  */
int x_89() {
    extern char dict[21], database[41];
    strcpy(dict, "(89)准考證號/姓名/學校/科系/類組");
    strcpy(database, "etc/89");
    use_dict();
    return 0;
}
/* Ptt88年度大學聯招查榜系統  */
int x_88() {
    extern char dict[21], database[41];

    strcpy(dict, "(88)准考證號/姓名/學校/科系/類組");
    strcpy(database, "etc/88");
    use_dict();
    return 0;
}    
/* Ptt87年度大學聯招查榜系統  */
int x_87() {
    extern char dict[21], database[41];

    strcpy(dict, "(87)准考證號/姓名/學校/科系");
    strcpy(database, "etc/87");
    use_dict();
    return 0;
}    

/* Ptt86年度大學聯招查榜系統  */
int x_86() {
    extern char dict[21], database[41];

    strcpy(dict, "(86)准考證號/姓名/學校/科系");
    strcpy(database, "etc/86");
    use_dict();
    return 0;
}

int x_boardman() {
    more("etc/topboardman", YEA);
    return 0;
}

int x_user100() {
    more("etc/topusr100", YEA);
    return 0;
}

int x_history() {
    more("etc/history", YEA);
    return 0;
}

#ifdef HAVE_X_BOARDS
static int x_boards() {
    more("etc/topboard.tmp", YEA);
    return 0;
}
#endif

int x_birth() {
    more("etc/birth.today", YEA);
    return 0;
}

int x_weather() {
    more("etc/weather.tmp", YEA);
    return 0;
}

int x_stock() {
    more("etc/stock.tmp", YEA);
    return 0;
}

int x_note() {
    more(fn_note_ans, YEA);
    return 0;
}

int x_issue() {
    more("etc/day", YEA);
    return 0;
}

int x_week() {
    more("etc/week", YEA);
    return 0;
}

int x_today() {
    more("etc/today", YEA);
    return 0;
}

int x_yesterday() {
    more("etc/yesterday", YEA);
    return 0;
}

int x_login() {
    more("etc/Welcome_login", YEA);
    return 0;
}

#ifdef HAVE_INFO
static int x_program() {
    more("etc/version", YEA);
    return 0;
}
#endif

#ifdef HAVE_LICENSE
static int x_gpl() {
    more("etc/GPL", YEA);
    return 0;
}
#endif

/* 離開 BBS 站 */
int note() {
    static char *fn_note_tmp = "note.tmp";
    static char *fn_note_dat = "note.dat";
    int total = 0, i, collect, len;
    struct stat st;
    char buf[256], buf2[80];
    int fd, fx;
    FILE *fp, *foo;

    typedef struct notedata_t {
    time_t date;
    char userid[IDLEN + 1];
    char username[19];
    char buf[3][80];
    } notedata_t;
    notedata_t myitem;

    if(cuser.money < 5) {
    outmsg("\033[1;41m 哎呀! 要投五銀才能留言...沒錢耶..\033[m");
    clrtoeol();
    refresh();
    return 0;
    }

    setutmpmode(EDNOTE);
    do {
    myitem.buf[0][0] = myitem.buf[1][0] = myitem.buf[2][0] = '\0';
    move(12, 0);
    clrtobot();
    outs("\n投五銀... 嗶... 請留言 (至多三行)，按[Enter]結束");
    for(i = 0; (i < 3) && getdata(16 + i, 0, "：", myitem.buf[i], 78,
                      DOECHO) && *myitem.buf[i]; i++);
    getdata(b_lines - 1, 0, "(S)儲存 (E)重新來過 (Q)取消？[S] ",
        buf, 3, LCECHO);

    if(buf[0] == 'q' || (i == 0 && *buf != 'e'))
        return 0;
    } while(buf[0] == 'e');
    demoney(-5);
    strcpy(myitem.userid, cuser.userid);
    strncpy(myitem.username, cuser.username, 18);
    myitem.username[18] = '\0';
    time(&(myitem.date));

    /* begin load file */
    if((foo = fopen(".note", "a")) == NULL)
    return 0;

    if((fp = fopen(fn_note_ans, "w")) == NULL)
    return 0;

    if((fx = open(fn_note_tmp, O_WRONLY | O_CREAT, 0644)) <= 0)
    return 0;

    if((fd = open(fn_note_dat, O_RDONLY)) == -1)
    total = 1;
    else if(fstat(fd, &st) != -1) {
    total = st.st_size / sizeof(notedata_t) + 1;
    if (total > MAX_NOTE)
        total = MAX_NOTE;
    }

    fputs("\033[1;31;44m⊙┬──────────────┤"
      "\033[37m酸甜苦辣板\033[31m├──────────────┬⊙"
      "\033[m\n", fp);
    collect = 1;

    while(total) {
    sprintf(buf, "\033[1;31m╭┤\033[32m %s \033[37m(%s)",
        myitem.userid, myitem.username);
    len = strlen(buf);

    for(i = len ; i < 73; i++)
        strcat(buf, " ");
    sprintf(buf2, " \033[1;36m%.14s\033[31m   ├╮\033[m\n",
        Cdate(&(myitem.date)));
    strcat(buf, buf2);
    fputs(buf, fp);
    if(collect)
        fputs(buf, foo);
    for(i = 0 ; i < 3 && *myitem.buf[i]; i++) {
            fprintf(fp, "\033[1;31m│\033[m%-74.74s\033[1;31m│\033[m\n",
            myitem.buf[i]);
            if(collect)
        fprintf(foo, "\033[1;31m│\033[m%-74.74s\033[1;31m│\033[m\n",
            myitem.buf[i]);
        }
    fputs("\033[1;31m╰┬───────────────────────"
          "────────────┬╯\033[m\n",fp);

    if(collect) {
        fputs("\033[1;31m╰┬─────────────────────"
          "──────────────┬╯\033[m\n", foo);
        fclose(foo);
        collect = 0;
    }
    
    write(fx, &myitem, sizeof(myitem));
    
    if(--total)
        read(fd, (char *) &myitem, sizeof(myitem));
    }
    fputs("\033[1;31;44m⊙┴───────────────────────"
      "────────────┴⊙\033[m\n",fp);
    fclose(fp);
    close(fd);
    close(fx);
    Rename(fn_note_tmp, fn_note_dat);
    more(fn_note_ans, YEA);
    return 0;
}

static void mail_sysop() {
    FILE *fp;
    char genbuf[200];
    
    if((fp = fopen("etc/sysop", "r"))) {
    int i, j;
    char *ptr;
    
    typedef struct sysoplist_t {
        char userid[IDLEN + 1];
        char duty[40];
    } sysoplist_t;
    sysoplist_t sysoplist[9];
    
    j = 0;
    while(fgets(genbuf, 128, fp)) {
        if((ptr = strchr(genbuf, '\n'))) {
        *ptr = '\0';
        if((ptr = strchr(genbuf, ':'))) {
            *ptr = '\0';
            do {
            i = *++ptr;
            } while(i == ' ' || i == '\t');
            if(i) {
            strcpy(sysoplist[j].userid, genbuf);
            strcpy(sysoplist[j++].duty, ptr);
            }
        }
        }
    }
    
    move(12, 0);
    clrtobot();
    prints("%16s   %-18s權責劃分\n\n", "編號", "站長 ID");

    for(i = 0; i < j; i++)
        prints("%15d.   \033[1;%dm%-16s%s\033[0m\n",
           i + 1, 31 + i % 7, sysoplist[i].userid, sysoplist[i].duty);
    prints("%-14s0.   \033[1;%dm離開\033[0m", "", 31 + j % 7);
    getdata(b_lines - 1, 0, "                   請輸入代碼[0]：",
        genbuf, 4, DOECHO);
    i = genbuf[0] - '0' - 1;
    if(i >= 0 && i < j) {
        clear();
        do_send(sysoplist[i].userid, NULL);
    }
    }
}

int m_sysop() {
    setutmpmode(MSYSOP);
    mail_sysop();
    return 0;
}

int Goodbye() {
    extern void movie();
    char genbuf[100];

    getdata(b_lines - 1, 0, "您確定要離開【 " BBSNAME " 】嗎(Y/N)？[N] ",
        genbuf, 3, LCECHO);

    if(*genbuf != 'y')
    return 0;

    movie(999);
    if(cuser.userlevel) {
    getdata(b_lines - 1, 0,
        "(G)隨風而逝 (M)托夢站長 (N)酸甜苦辣流言版？[G] ",
        genbuf, 3, LCECHO);
    if(genbuf[0] == 'm')
        mail_sysop();
    else if(genbuf[0] == 'n')
        note();
    }
    
    clear();
    prints("\033[1;36m親愛的 \033[33m%s(%s)\033[36m，別忘了再度光臨\033[45;33m"
       " %s \033[40;36m！\n以下是您在站內的註冊資料:\033[0m\n",
       cuser.userid, cuser.username, BBSName);
    user_display(&cuser, 0);
    pressanykey();
    
    more("etc/Logout",NA);
    pressanykey();
    u_exit("EXIT ");
    return QUIT; 
}

/* 支援外掛程式 : tin、gopher、www、bbsnet、game、csh */
#define LOOKFIRST       (0)
#define LOOKLAST        (1)
#define QUOTEMODE       (2)
#define MAXCOMSZ        (1024)
#define MAXARGS         (40)
#define MAXENVS         (20)
#define BINDIR          BBSHOME"/bin/"

#define MAXPATHLEN 256

#ifdef HAVE_TIN
static int x_tin() {
    clear();
    return exec_cmd(NEWS, YEA, "bin/tin.sh", "TIN");
}
#endif

#ifdef HAVE_GOPHER
static int x_gopher() {
    clear();
    return exec_cmd(GOPHER, YEA, "bin/gopher.sh", "GOPHER");
}
#endif

#ifdef HAVE_WWW
static int x_www() {
    return exec_cmd(WWW, NA, "bin/www.sh", "WWW");
}
#endif

#ifdef HAVE_IRC
static int x_irc() {
    return exec_cmd(XMODE, NA, "bin/irc.sh", "IRC");
}
#endif

#ifdef HAVE_ARCHIE
static int x_archie() {
    char buf[STRLEN], ans[4];
    char genbuf1[100], genbuf2[200];
    char *s;

    setutmpmode(ARCHIE);
    clear();
    outs("\n歡迎光臨【\033[1;33;44m" BBSNAME "\033[m】使用 "
     "\033[32mARCHIE\033[m 功\能\n");
    outs("\n本功\能將為您列出在哪個 FTP 站存有您欲尋找的檔案.\n");
    outs("\n請輸入欲搜尋的字串, 或直接按 <ENTER> 取消。\n");
    outs("\n                            coder by Harimau\n");
    outs("                              modified by Leeym\n");
    getdata(13,0,"搜尋字串：",buf,20,DOECHO,0);
    if(buf[0]=='\0') {
    prints("\n取消搜尋.....\n");
    pressanykey();
    return;
    }

    for(s = buf; *s != '\0'; s++) {
        if(isspace(*s)) {
            prints("\n一次只能搜尋一個字串啦, 不能太貪心喔!!");
            pressanykey();
            return;
    }
    }
    bbssetenv("ARCHIESTRING", buf);
    exec_cmd(ARCHIE, YEA, "bin/archie.sh", ARCHIE);
    log_usies("ARCHIE", "");
    strcpy(genbuf1, buf);
    sprintf(buf, BBSHOME "/tmp/archie.%s", cuser.userid);
    if(dashf(buf)) {
    getdata(0, 0, "要將結果寄回信箱嗎(Y/N)？[N]", ans, 3, DOECHO,0);
    if(*ans == 'y') {
        fileheader_t mhdr;
        char title[128], buf1[80];
        FILE* fp;
        
        sethomepath(buf1, cuser.userid);
        stampfile(buf1, &mhdr);
        strcpy(mhdr.owner, cuser.userid);
        sprintf(genbuf2, "Archie 搜尋檔案: %s 結果", genbuf1);
        strcpy(mhdr.title, genbuf2);
        mhdr.savemode = 0;
        mhdr.filemode = 0;
        sethomedir(title, cuser.userid);
        append_record(title, &mhdr, sizeof(mhdr));
        Link(buf, buf1);
    }
    more( buf, YEA);
    unlink (buf);
    }
}
#endif                          /* HAVE_ARCHIE */