summaryrefslogtreecommitdiffstats
path: root/mbbsd/bbcall.c
diff options
context:
space:
mode:
Diffstat (limited to 'mbbsd/bbcall.c')
-rw-r--r--mbbsd/bbcall.c268
1 files changed, 268 insertions, 0 deletions
diff --git a/mbbsd/bbcall.c b/mbbsd/bbcall.c
new file mode 100644
index 00000000..d7b2d33b
--- /dev/null
+++ b/mbbsd/bbcall.c
@@ -0,0 +1,268 @@
+/* $Id: bbcall.c,v 1.1 2002/03/07 15:13:48 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, 7, 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, 2, 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, 7, 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, 2, 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, 7, 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, 2, 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, 2, LCECHO);
+
+ switch(ch[0]) {
+ case '1':
+ hcall0941();
+ break;
+ case '2':
+ halpha0943("0943");
+ break;
+ case '3':
+ halpha0943("0946");
+ break;
+ case '4':
+ hcall0948();
+ break;
+ }
+ return 0;
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-05 08:38:06 +0800