/* $Id: bbcall.c,v 1.7 2002/07/21 09:26:02 in2 Exp $ */
#include "bbs.h"

#define SERVER_0941     "www.chips.com.tw"
#define SERVER_0943     "www.pager.com.tw"
#define SERVER_0948     "www.fitel.net.tw"
#define SERVER_0947     "www.hoyard.com.tw"
#define SERVER_0945     "203.73.181.254"

#define CGI_0948        "/cgi-bin/Webpage.dll"
#define CGI_0941        "/cgi-bin/paging1.pl"
#define CGI_0947        "/scripts/fp_page1.dll"
#define CGI_0945        "/Scripts/fiss/PageForm.exe"
#define CGI_0943        "/tpn/tpnasp/dowebcall.asp"

#define CGI_RAILWAY     "http://www.railway.gov.tw/cgi-bin/timetk.cgi"

#define REFER_0943      "http://www.pager.com.tw/tpn/webcall/webcall.asp"
#define REFER_0948      "http://www.fitel.net.tw/html/svc03.htm"
#define REFER_0941      "http://www.chips.com.tw:9100/WEB2P/page_1.htm"
#define REFER_0947      "http://web1.hoyard.com.tw/freeway/freewayi.html"
#define REFER_0945      "http://203.73.181.254/call.HTM"

static void
pager_msg_encode(char *field, char *buf)
{
    char           *cc = field;
    unsigned char  *p;

    for (p = (unsigned char *)buf; *p; p++) {
	if ((*p >= '0' && *p <= '9') ||
	    (*p >= 'A' && *p <= 'Z') ||
	    (*p >= 'a' && *p <= 'z') ||
	    *p == ' ')
	    *cc++ = *p == ' ' ? '+' : (char)*p;
	else {
	    sprintf(cc, "%%%02X", (int)*p);
	    cc += 3;
	}
    }
    *cc = 0;
}

static void
Gettime(int flag, int *Year, int *Month, int *Day, int *Hour,
	int *Minute)
{
    char            ans[5];

    do {
	getdata(10, 0, "年[20-]:", ans, 3, LCECHO);
	*Year = atoi(ans);
    } while (*Year < 00 || *Year > 02);
    do {
	getdata(10, 15, "月[1-12]:", ans, 3, LCECHO);
    } while (!IsSNum(ans) || (*Month = atoi(ans)) > 12 || *Month < 1);
    do {
	getdata(10, 30, "日[1-31]:", ans, 3, LCECHO);
    } while (!IsSNum(ans) || (*Day = atoi(ans)) > 31 || *Day < 1);
    do {
	getdata(10, 45, "時[0-23]:", ans, 3, LCECHO);
    } while (!IsSNum(ans) || (*Hour = atoi(ans)) > 23 || *Hour < 0);
    do {
	getdata(10, 60, "分[0-59]:", ans, 3, LCECHO);
    } while (!IsSNum(ans) || (*Minute = atoi(ans)) > 59 || *Minute < 0);
    if (flag == 1)
	*Year -= 11;
}

#define hpressanykey(a) {move(22, 0); prints(a); pressanykey();}

static int
Connect(char *s, char *server)
{
    FILE           *fp = fopen(BBSHOME "/log/bbcall.log", "a");
    int             sockfd;
    char            result[2048];
    struct sockaddr_in serv_addr;
    struct hostent *hp;

    sockfd = socket(AF_INET, SOCK_STREAM, 0);
    if (sockfd < 0)
	return 0;

    memset((char *)&serv_addr, 0, sizeof(serv_addr));
    serv_addr.sin_family = AF_INET;

    if ((hp = gethostbyname(server)) == NULL)
	return 0;

    memcpy(&serv_addr.sin_addr, hp->h_addr, hp->h_length);

    if (!strcmp(server, SERVER_0941))
	serv_addr.sin_port = htons(9100);
    else
	serv_addr.sin_port = htons(80);

    if (connect(sockfd, (struct sockaddr *) & serv_addr, sizeof serv_addr)) {
	hpressanykey("無法與伺服器取得連結，傳呼失敗");
	return 0;
    } else {
	mprints(20, 0, "\033[1;33m伺服器已經連接上，請稍後"
		".....................\033[m");
	refresh();
    }

    write(sockfd, s, strlen(s));
    shutdown(sockfd, 1);

    while (read(sockfd, result, sizeof(result)) > 0) {
	fprintf(fp, "%s\n", result);
	fflush(fp);
	if (strstr(result, "正確") ||
	    strstr(result, "等待") ||
	    strstr(result, "再度") ||
	    strstr(result, "完 成 回 應") ||
	    strstr(result, "預約中") ||
	    strstr(result, "傳送中")) {
	    close(sockfd);
	    hpressanykey("順利送出傳呼");
	    return 0;
	}
	memset(result, 0, sizeof(result));
    }
    fclose(fp);
    close(sockfd);
    hpressanykey("無法順利送出傳呼");
    return 0;
}

#define PARA \
"Connection: Keep-Alive\r\n"\
"User-Agent: Lynx/2.6  libwww-FM/2.14\r\n"\
"Content-type: application/x-www-form-urlencoded\r\n"\
"Accept: text/html, text/plain, application/x-wais-source, "\
"application/html, */*;q=0.001\r\n"\
"Accept-Encoding: gzip\r\n"\
"Accept-Language: en\r\n"\
"Accept-Charset: iso-8859-1,*,utf-8\r\n"

static void halpha0943(char* CoId) {
    char tmpbuf[64],ans[2];
    char ID[8];
    char Msg[64], atrn[512], sendform[1024];
    int Year = 99, Month = 1, Day = 15, Hour = 13, Minute = 8;

    sprintf(tmpbuf, "\033[1;37m請輸入您要傳呼的號碼\033[m : %s-", CoId);
    if(!getdata(7,0, tmpbuf, ID, sizeof(ID), LCECHO) ||
       !getdata(8,0, "\033[1;37m請輸入傳呼訊息\033[m：", tmpbuf, 63, LCECHO)) {
        hpressanykey("放棄傳呼");
        return;
    }
    pager_msg_encode(Msg,tmpbuf);
    getdata(9, 0, "\033[1;37m如果你要馬上送請按 '1' "
            "如果要定時送請按 '2': \033[m", ans, sizeof(ans), LCECHO);

    if(ans[0] != '1')
        Gettime(0, &Year, &Month, &Day, &Hour, &Minute);

    sprintf(atrn, "CoId=%s&ID=%s&Year=19%02d&Month=%02d&Day=%02d"
            "&Hour=%02d&Minute=%02d&Msg=%s",
            CoId, ID,Year,Month,Day,Hour,Minute,Msg);
    sprintf(sendform, "POST %s HTTP/1.0\nReferer: "
            "%s\n%sContent-length:%d\n\n%s",
            CGI_0943, REFER_0943, PARA, strlen(atrn), atrn);
    Connect(sendform, SERVER_0943);
    return ;
}

static void hcall0941() {
    char ans[2];
    char PAGER_NO[8], TRAN_MSG[18], TIME[8];
    char trn[512], sendform[512];
    int  year = 98, month = 12, day = 4, hour = 13, min = 8;

    if(!getdata(7, 0, "\033[1;37 請您輸入您要傳呼的號碼 : 0941- \033[m",
                PAGER_NO, sizeof(PAGER_NO), LCECHO)  ||
       !getdata(8, 0, "\033[1;37m請輸入傳呼訊息\033[m：", trn, 17, LCECHO)) {
        hpressanykey("放棄傳呼");
        return;
    }
    pager_msg_encode(TRAN_MSG,trn);
    getdata(9,0, "\033[1;37m如果你要馬上送請按 '1' "
            "如果要定時送請按 '2': \033[m", ans, sizeof(ans), LCECHO);
    if(ans[0] != '1') {
        strlcpy(TIME, "DELAY", sizeof(TIME));
        Gettime(0, &year, &month, &day, &hour, &min);
    } else
        strlcpy(TIME, "NOW", sizeof(TIME));
    sprintf(trn,"PAGER_NO=%s&TRAN_MSG=%s&MSG_TYPE=NUMERIC&%s=1"
            "&year=19%02d&month=%02d&day=%02d&hour=%02d&min=%02d",
            PAGER_NO, TRAN_MSG, TIME,year,month,day,hour,min);

    sprintf(sendform, "POST %s HTTP/1.0\nReferer: %s\n%s"
            "Content-length:%d\n\n%s",
            CGI_0941, REFER_0941, PARA, strlen(trn), trn);

    Connect(sendform, SERVER_0941);
    return ;
}

static void hcall0948() {
    int  year = 87, month = 12, day = 19, hour = 12, min = 0, ya = 0;
    char svc_no[8], message[64], trn[256], sendform[512], ans[3];

    move(7,0);
    clrtoeol();

    if(!getdata(7, 0, "\033[1;37m請輸入您要傳呼的號碼\033[m：0948-",
                svc_no, sizeof(svc_no), LCECHO) ||
       !getdata(8, 0, "\033[1;37m請輸入傳呼訊息\033[m：", trn, 61, LCECHO)) {
        hpressanykey("放棄傳呼");
        return;
    }
    pager_msg_encode(message, trn);
    getdata(9, 0, "\033[1;37m如果你要馬上送請按 '1' "
            "如果要定時送請按 '2'\033[m: ", ans, sizeof(ans), LCECHO);
    if(ans[0] != '1') {
        Gettime(1, &year, &month, &day, &hour, &min);
        ya = 1;
    }

    sprintf(trn, "MfcISAPICommand=SinglePage&svc_no=%s&reminder=%d"
            "&year=%02d&month=%02d&day=%02d&hour=%02d&min=%02d&message=%s",
            svc_no, ya, year, month, day, hour, min, message);

    sprintf(sendform, "GET %s?%s Http/1.0\n\n", CGI_0948, trn);

    Connect(sendform, SERVER_0948);
    return;
}

int main_bbcall() {
    char ch[2];

    clear();
    move(0, 30);
    prints("\033[1;37;45m 逼逼摳機 \033[m");
    move(3, 0);
    prints("\033[1;31m     ┌────────────────────"
           "─────────┐\033[m\n");
    prints("\033[1;33m        (1)0941        (2)0943        (3)0946  "
           "       (4)0948     \033[m\n");
    prints("\033[1;31m     └────────────────────"
           "─────────┘\033[m\n");
    getdata(7, 8, "\033[1;37m你的選擇? [1-4]\033[m", ch, sizeof(ch), LCECHO);

    switch(ch[0]) {
    case '1':
        hcall0941();
        break;
    case '2':
        halpha0943("0943");
        break;
    case '3':
        halpha0943("0946");
        break;
    case '4':
        hcall0948();
        break;
    }
    return 0;
}