/* $Id: bbcall.c,v 1.2 2002/04/28 19:35:28 in2 Exp $ */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <netdb.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include "config.h"
#include "pttstruct.h"
#include "common.h"
#include "proto.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') {
strcpy(TIME,"DELAY");
gettime(0, &year, &month, &day, &hour, &min);
} else
strcpy(TIME,"NOW");
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;
}
