/* $Id$ */ #include "bbs.h" static char * const sex[8] = { MSG_BIG_BOY, MSG_BIG_GIRL, MSG_LITTLE_BOY, MSG_LITTLE_GIRL, MSG_MAN, MSG_WOMAN, MSG_PLANT, MSG_MIME }; #ifdef CHESSCOUNTRY static const char * const chess_photo_name[3] = { "photo_fivechess", "photo_cchess", "photo_go", }; static const char * const chess_type[3] = { "五子棋", "象棋", "圍棋", }; #endif #define REGCODE_INITIAL "v6" // always 2 characters int kill_user(int num, const char *userid) { userec_t u; char src[256], dst[256]; if(!userid || num<=0 ) return -1; sethomepath(src, userid); snprintf(dst, sizeof(dst), "tmp/%s", userid); friend_delete_all(userid, FRIEND_ALOHA); delete_allpost(userid); if (dashd(src) && Rename(src, dst) == 0) { snprintf(src, sizeof(src), "/bin/rm -fr home/%c/%s >/dev/null 2>&1", userid[0], userid); system(src); } memset(&u, 0, sizeof(userec_t)); log_usies("KILL", getuserid(num)); setuserid(num, ""); passwd_update(num, &u); return 0; } int u_loginview(void) { int i, in; unsigned int pbits = cuser.loginview; clear(); move(4, 0); for (i = 0; i < NUMVIEWFILE && loginview_file[i][0]; i++) prints(" %c. %-20s %-15s \n", 'A' + i, loginview_file[i][1], ((pbits >> i) & 1 ? "ˇ" : "Ｘ")); in = i; clrtobot(); while ((i = getkey("請按 [A-N] 切換設定，按 [Return] 結束："))!='\r') { i = i - 'a'; if (i >= in || i < 0) bell(); else { pbits ^= (1 << i); move(i + 4, 28); outs((pbits >> i) & 1 ? "ˇ" : "Ｘ"); } } if (pbits != cuser.loginview) { cuser.loginview = pbits; passwd_update(usernum, &cuser); } return 0; } int u_cancelbadpost(void) { int day; if(cuser.badpost==0) {vmsg("你並沒有劣文."); return 0;} if(search_ulistn(usernum,2)) {vmsg("請登出其他視窗, 否則不受理."); return 0;} passwd_query(usernum, &cuser); day = 180 - (now - cuser.timeremovebadpost ) / 86400; if(day>0 && day<=180) { vmsgf("每 180 天才能申請一次, 還剩 %d 天.", day); vmsg("您也可以注意站方是否有勞動服務方式刪除劣文."); return 0; } if( getkey("我願意尊守站方規定,組規,以及板規[y/N]?")!='y' || getkey("我願意尊重不歧視族群,不鬧板,尊重各板主權力[y/N]?")!='y' || getkey("我願意謹慎發表有意義言論,不謾罵攻擊,不跨板廣告[y/N]?")!='y' ) {vmsg("請您思考清楚後再來申請刪除."); return 0;} if(search_ulistn(usernum,2)) {vmsg("請登出其他視窗, 否則不受理."); return 0;} if(cuser.badpost) { cuser.badpost--; cuser.timeremovebadpost = now; passwd_update(usernum, &cuser); log_filef("log/cancelbadpost.log", LOG_CREAT, "%s %s 刪除一篇劣文\n", Cdate(&now), cuser.userid); } vmsg("恭喜您已經成功\刪除一篇劣文."); return 0; } void user_display(const userec_t * u, int adminmode) { int diff = 0; char genbuf[200]; clrtobot(); prints( " " ANSI_COLOR(30;41) "┴┬┴┬┴┬" ANSI_RESET " " ANSI_COLOR(1;30;45) " 使 用 者" " 資 料 " " " ANSI_RESET " " ANSI_COLOR(30;41) "┴┬┴┬┴┬" ANSI_RESET "\n"); prints(" 代號暱稱: %s(%s)\n" " 真實姓名: %s" #if FOREIGN_REG_DAY > 0 " %s%s" #elif defined(FOREIGN_REG) " %s" #endif "\n" " 居住住址: %s\n" " 電子信箱: %s\n" " 性 別: %s\n" " 銀行帳戶: %d 銀兩\n", u->userid, u->nickname, u->realname, #if FOREIGN_REG_DAY > 0 u->uflag2 & FOREIGN ? "(外籍: " : "", u->uflag2 & FOREIGN ? (u->uflag2 & LIVERIGHT) ? "永久居留)" : "未取得居留權)" : "", #elif defined(FOREIGN_REG) u->uflag2 & FOREIGN ? "(外籍)" : "", #endif u->address, u->email, sex[u->sex % 8], u->money); sethomedir(genbuf, u->userid); prints(" 私人信箱: %d 封 (購買信箱: %d 封)\n" " 手機號碼: %010d\n" " 生 日: %04i/%02i/%02i\n", get_num_records(genbuf, sizeof(fileheader_t)), u->exmailbox, u->mobile, u->year + 1900, u->month, u->day ); #ifdef ASSESS prints(" 優 劣 文: 優:%d / 劣:%d\n", u->goodpost, u->badpost); #endif // ASSESS prints(" 上站位置: %s\n", u->lasthost); #ifdef PLAY_ANGEL if (adminmode) prints(" 小 天 使: %s\n", u->myangel[0] ? u->myangel : "無"); #endif prints(" 註冊日期: %s", ctime4(&u->firstlogin)); prints(" 前次光臨: %s", ctime4(&u->lastlogin)); prints(" 上站文章: %d 次 / %d 篇\n", u->numlogins, u->numposts); #ifdef CHESSCOUNTRY { int i, j; FILE* fp; for(i = 0; i < 2; ++i){ sethomefile(genbuf, u->userid, chess_photo_name[i]); fp = fopen(genbuf, "r"); if(fp != NULL){ for(j = 0; j < 11; ++j) fgets(genbuf, 200, fp); fgets(genbuf, 200, fp); prints("%12s棋國自我描述: %s", chess_type[i], genbuf + 11); fclose(fp); } } } #endif if (adminmode) { strcpy(genbuf, "bTCPRp#@XWBA#VSM0123456789ABCDEF"); for (diff = 0; diff < 32; diff++) if (!(u->userlevel & (1 << diff))) genbuf[diff] = '-'; prints(" 認證資料: %s\n" " user權限: %s\n", u->justify, genbuf); } else { diff = (now - login_start_time) / 60; prints(" 停留期間: %d 小時 %2d 分\n", diff / 60, diff % 60); } /* Thor: 想看看這個 user 是那些板的板主 */ if (u->userlevel >= PERM_BM) { int i; boardheader_t *bhdr; outs(" 擔任板主: "); for (i = 0, bhdr = bcache; i < numboards; i++, bhdr++) { if (is_uBM(bhdr->BM, u->userid)) { outs(bhdr->brdname); outc(' '); } } outc('\n'); } outs(" " ANSI_COLOR(30;41) "┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴" "┬┴┬┴┬┴┬" ANSI_RESET); outs((u->userlevel & PERM_LOGINOK) ? "\n您的註冊程序已經完成，歡迎加入本站" : "\n如果要提昇權限，請參考本站公佈欄辦理註冊"); #ifdef NEWUSER_LIMIT if ((u->lastlogin - u->firstlogin < 3 * 86400) && !HasUserPerm(PERM_POST)) outs("\n新手上路，三天後開放權限"); #endif } void mail_violatelaw(const char *crime, const char *police, const char *reason, const char *result) { char genbuf[200]; fileheader_t fhdr; FILE *fp; sendalert(crime, ALERT_PWD_PERM); sethomepath(genbuf, crime); stampfile(genbuf, &fhdr); if (!(fp = fopen(genbuf, "w"))) return; fprintf(fp, "作者: [" BBSMNAME "警察局]\n" "標題: [報告] 違法報告\n" "時間: %s\n" ANSI_COLOR(1;32) "%s" ANSI_RESET "判決：\n " ANSI_COLOR(1;32) "%s" ANSI_RESET "因" ANSI_COLOR(1;35) "%s" ANSI_RESET "行為，\n" "違反本站站規，處以" ANSI_COLOR(1;35) "%s" ANSI_RESET "，特此通知\n\n" "請到 " GLOBAL_LAW " 查詢相關法規資訊，並從主選單進入:\n" "(P)lay【娛樂與休閒】=>(P)ay【Ｐtt量販店 】=> (1)ViolateLaw 繳罰單\n" "以繳交罰單。\n", ctime4(&now), police, crime, reason, result); fclose(fp); strcpy(fhdr.title, "[報告] 違法判決報告"); strcpy(fhdr.owner, "[" BBSMNAME "警察局]"); sethomedir(genbuf, crime); append_record(genbuf, &fhdr, sizeof(fhdr)); } void kick_all(char *user) { userinfo_t *ui; int num = searchuser(user, NULL), i=1; while((ui = (userinfo_t *) search_ulistn(num, i)) != NULL) { if(ui == currutmp) i++; if ((ui->pid <= 0 || kill(ui->pid, SIGHUP) == -1)) purge_utmp(ui); log_usies("KICK ALL", user); } } void violate_law(userec_t * u, int unum) { char ans[4], ans2[4]; char reason[128]; move(1, 0); clrtobot(); move(2, 0); outs("(1)Cross-post (2)亂發廣告信 (3)亂發連鎖信\n"); outs("(4)騷擾站上使用者 (8)其他以罰單處置行為\n(9)砍 id 行為\n"); getdata(5, 0, "(0)結束", ans, 3, DOECHO); switch (ans[0]) { case '1': strcpy(reason, "Cross-post"); break; case '2': strcpy(reason, "亂發廣告信"); break; case '3': strcpy(reason, "亂發連鎖信"); break; case '4': while (!getdata(7, 0, "請輸入被檢舉理由以示負責：", reason, 50, DOECHO)); strcat(reason, "[騷擾站上使用者]"); break; case '8': case '9': while (!getdata(6, 0, "請輸入理由以示負責：", reason, 50, DOECHO)); break; default: return; } getdata(7, 0, msg_sure_ny, ans2, 3, LCECHO); if (*ans2 != 'y') return; if (ans[0] == '9') { if (HasUserPerm(PERM_POLICE) && (u->numlogins > 100 || u->numposts > 100)) return; kill_user(unum, u->userid); post_violatelaw(u->userid, cuser.userid, reason, "砍除 ID"); } else { kick_all(u->userid); u->userlevel |= PERM_VIOLATELAW; u->timeviolatelaw = now; u->vl_count++; passwd_update(unum, u); post_violatelaw(u->userid, cuser.userid, reason, "罰單處份"); mail_violatelaw(u->userid, "站務警察", reason, "罰單處份"); } pressanykey(); } void Customize(void) { char done = 0; int dirty = 0; int key; /* cuser.uflag settings */ static const unsigned int masks1[] = { MOVIE_FLAG, NO_MODMARK_FLAG , COLORED_MODMARK, #ifdef DBCSAWARE DBCSAWARE_FLAG, DBCS_NOINTRESC, #endif 0, }; static const char* desc1[] = { "動態看板", "隱藏文章修改符號(推文/修文) (~)", "改用色彩代替修改符號 (+)", #ifdef DBCSAWARE "自動偵測雙位元字集(如全型中文)", "禁止在雙位元中使用色碼(去一字雙色)", #endif 0, }; /* cuser.uflag2 settings */ static const unsigned int masks2[] = { REJ_OUTTAMAIL, FAVNEW_FLAG, FAVNOHILIGHT, 0, }; static const char* desc2[] = { "拒收站外信", "新板自動進我的最愛", "單色顯示我的最愛", 0, }; while ( !done ) { int i = 0, ia = 0, ic = 0; /* general uflags */ int iax = 0; /* extended flags */ clear(); showtitle("個人化設定", "個人化設定"); move(2, 0); outs("您目前的個人化設定: "); move(4, 0); /* print uflag options */ for (i = 0; masks1[i]; i++, ia++) { clrtoeol(); prints( ANSI_COLOR(1;36) "%c" ANSI_RESET ". %-40s%s\n", 'a' + ia, desc1[i], (cuser.uflag & masks1[i]) ? ANSI_COLOR(1;36) "是" ANSI_RESET : "否"); } ic = i; /* print uflag2 options */ for (i = 0; masks2[i]; i++, ia++) { clrtoeol(); prints( ANSI_COLOR(1;36) "%c" ANSI_RESET ". %-40s%s" ANSI_RESET "\n", 'a' + ia, desc2[i], (cuser.uflag2 & masks2[i]) ? ANSI_COLOR(1;36) "是" ANSI_RESET : "否"); } /* extended stuff */ { char mindbuf[5]; static const char *wm[] = {"一般", "進階", "未來", ""}; prints("%c. %-40s%s\n", '1' + iax++, "水球模式", wm[(cuser.uflag2 & WATER_MASK)]); memcpy(mindbuf, &currutmp->mind, 4); mindbuf[4] = 0; prints("%c. %-40s%s\n", '1' + iax++, "目前的心情", mindbuf); #ifdef PLAY_ANGEL /* damn it, dirty stuff here */ if( HasUserPerm(PERM_ANGEL) ) { const char *am[4] = {"男女皆可", "限女生", "限男生", "暫不接受新的小主人"}; prints("%c. %-40s%10s\n", '1' + iax++, "開放小主人詢問", (REJECT_QUESTION ? "否" : "是")); prints("%c. %-40s%10s\n", '1' + iax++, "接受的小主人性別", am[ANGEL_STATUS()]); } #endif } /* input */ key = getkey("請按 [a-%c,1-%c] 切換設定，其它任意鍵結束: ", 'a' + ia-1, '1' + iax -1); if (key >= 'a' && key < 'a' + ia) { /* normal pref */ key -= 'a'; dirty = 1; if(key < ic) { cuser.uflag ^= masks1[key]; } else { key -= ic; cuser.uflag2 ^= masks2[key]; } continue; } if (key < '1' || key >= '1' + iax) { done = 1; continue; } /* extended keys */ key -= '1'; switch(key) { case 0: { int currentset = cuser.uflag2 & WATER_MASK; currentset = (currentset + 1) % 3; cuser.uflag2 &= ~WATER_MASK; cuser.uflag2 |= currentset; vmsg("修正水球模式後請正常離線再重新上線"); dirty = 1; } continue; case 1: { char mindbuf[6] = ""; getdata(b_lines - 1, 0, "現在的心情? ", mindbuf, 5, DOECHO); if (strcmp(mindbuf, "通緝") == 0) vmsg("不可以把自己設通緝啦!"); else if (strcmp(mindbuf, "壽星") == 0) vmsg("你不是今天生日欸!"); else memcpy(currutmp->mind, mindbuf, 4); dirty = 1; } continue; } #ifdef PLAY_ANGEL if( HasUserPerm(PERM_ANGEL) ){ if (key == iax-2) { SwitchBeingAngel(); dirty = 1; continue; } else if (key == iax-1) { SwitchAngelSex(ANGEL_STATUS() + 1); dirty = 1; continue; } } #endif } grayout(1, b_lines-2, GRAYOUT_DARK); move(b_lines-1, 0); clrtoeol(); if(dirty) { passwd_update(usernum, &cuser); outs("設定已儲存。\n"); } else { outs("結束設定。\n"); } redrawwin(); // in case we changed output pref (like DBCS) vmsg("設定完成"); } static char * getregfile(char *buf) { // not in user's home because s/he could zip his/her home snprintf(buf, PATHLEN, "jobspool/.regcode.%s", cuser.userid); return buf; } static char * makeregcode(char *buf) { char fpath[PATHLEN]; int fd, i; const char *alphabet = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"; /* generate a new regcode */ buf[13] = 0; buf[0] = REGCODE_INITIAL[0]; buf[1] = REGCODE_INITIAL[1]; for( i = 2 ; i < 13 ; ++i ) buf[i] = alphabet[random() % 52]; getregfile(fpath); if( (fd = open(fpath, O_WRONLY | O_CREAT, 0600)) == -1 ){ perror("open"); exit(1); } write(fd, buf, 13); close(fd); return buf; } static char * getregcode(char *buf) { int fd; char fpath[PATHLEN]; getregfile(fpath); if( (fd = open(fpath, O_RDONLY)) == -1 ){ buf[0] = 0; return buf; } read(fd, buf, 13); close(fd); buf[13] = 0; return buf; } static void delregcodefile(void) { char fpath[PATHLEN]; getregfile(fpath); unlink(fpath); } #ifdef DEBUG int _debug_testregcode() { char buf[16], rcode[16]; char myid[16]; int i = 1; clear(); strcpy(myid, cuser.userid); do { getdata(0, 0, "輸入 id (空白結束): ", buf, IDLEN+1, DOECHO); if(buf[0]) { move(i++, 0); i %= t_lines; if(i == 0) i = 1; strcpy(cuser.userid, buf); prints("id: [%s], regcode: [%s]\n", cuser.userid, getregcode(rcode)); move(i, 0); clrtoeol(); } } while (buf[0]); strcpy(cuser.userid, myid); pressanykey(); return 0; } #endif static void justify_wait(char *userid, char *phone, char *career, char *rname, char *addr, char *mobile) { char buf[PATHLEN]; sethomefile(buf, userid, "justify.wait"); if (phone[0] != 0) { FILE* fn = fopen(buf, "w"); assert(fn); fprintf(fn, "%s\n%s\ndummy\n%s\n%s\n%s\n", phone, career, rname, addr, mobile); fclose(fn); } } static void email_justify(const userec_t *muser) { char tmp[IDLEN + 1], buf[256], genbuf[256]; /* * It is intended to use BBSENAME instead of BBSNAME here. * Because recently many poor users with poor mail clients * (or evil mail servers) cannot handle/decode Chinese * subjects (BBSNAME) correctly, so we'd like to use * BBSENAME here to prevent subject being messed up. * And please keep BBSENAME short or it may be truncated * by evil mail servers. */ snprintf(buf, sizeof(buf), " " BBSENAME " - [ %s ]", makeregcode(genbuf)); strlcpy(tmp, cuser.userid, sizeof(tmp)); // XXX dirty, set userid=SYSOP strlcpy(cuser.userid, str_sysop, sizeof(cuser.userid)); #ifdef HAVEMOBILE if (strcmp(muser->email, "m") == 0 || strcmp(muser->email, "M") == 0) mobile_message(mobile, buf); else #endif bsmtp("etc/registermail", buf, muser->email); strlcpy(cuser.userid, tmp, sizeof(cuser.userid)); move(20,0); clrtobot(); outs("我們即將寄出認證信 (您應該會在 10 分鐘內收到)\n" "收到後您可以根據認證信標題的認證碼\n" "輸入到 (U)ser -> (R)egister 後就可以完成註冊"); pressanykey(); return; } void uinfo_query(userec_t *u, int adminmode, int unum) { userec_t x; int i = 0, fail; int ans; char buf[STRLEN]; char genbuf[200]; int y = 0; int perm_changed; int mail_changed; int money_changed; int tokill = 0; int changefrom = 0; fail = 0; mail_changed = money_changed = perm_changed = 0; { // verify unum int xuid = getuser(u->userid, &x); if (xuid != unum) { vmsg("系統錯誤: 使用者資料號碼 (unum) 不合。請至 " GLOBAL_BUGREPORT "報告。"); return; } } memcpy(&x, u, sizeof(userec_t)); ans = getans(adminmode ? "(1)改資料(2)密碼(3)權限(4)砍帳號(5)改ID(6)寵物(7)審判(M)信箱 [0]結束 " : "請選擇 (1)修改資料 (2)設定密碼 (M)修改信箱 (C) 個人化設定 ==> [0]結束 "); if (ans > '2' && ans != 'm' && ans != 'c' && !adminmode) ans = '0'; if (ans == '1' || ans == '3' || ans == 'm') { clear(); y = 1; move(y++, 0); outs(msg_uid); outs(x.userid); } switch (ans) { case 'c': Customize(); return; case 'm': do { getdata_str(y, 0, "電子信箱 [變動要重新認證]：", buf, sizeof(x.email), DOECHO, x.email); // TODO 這裡也要 emaildb_check #ifdef USE_EMAILDB if (isvalidemail(buf)) { int email_count = emaildb_check_email(buf, strlen(buf)); if (email_count < 0) vmsg("暫時不允許\ email 認證, 請稍後再試"); else if (email_count >= EMAILDB_LIMIT) vmsg("指定的 E-Mail 已註冊過多帳號, 請使用其他 E-Mail"); else // valid break; } continue; #endif } while (!isvalidemail(buf) && vmsg("認證信箱不能用使用免費信箱")); y++; // admins may want to use special names if (strcmp(buf, x.email) && (strchr(buf, '@') || adminmode)) { // TODO 這裡也要 emaildb_check #ifdef USE_EMAILDB if (emaildb_update_email(cuser.userid, strlen(cuser.userid), buf, strlen(buf)) < 0) { vmsg("暫時不允許\ email 認證, 請稍後再試"); break; } #endif strlcpy(x.email, buf, sizeof(x.email)); mail_changed = 1; delregcodefile(); } break; case '7': violate_law(&x, unum); return; case '1': move(0, 0); outs("請逐項修改。"); getdata_buf(y++, 0, " 暱 稱 ：", x.nickname, sizeof(x.nickname), DOECHO); if (adminmode) { getdata_buf(y++, 0, "真實姓名：", x.realname, sizeof(x.realname), DOECHO); getdata_buf(y++, 0, "居住地址：", x.address, sizeof(x.address), DOECHO); } buf[0] = 0; if (x.mobile) snprintf(buf, sizeof(buf), "%010d", x.mobile); getdata_buf(y++, 0, "手機號碼：", buf, 11, LCECHO); x.mobile = atoi(buf); snprintf(genbuf, sizeof(genbuf), "%d", (u->sex + 1) % 8); getdata_str(y++, 0, "性別 (1)葛格 (2)姐接 (3)底迪 (4)美眉 (5)薯叔 " "(6)阿姨 (7)植物 (8)礦物：", buf, 3, DOECHO, genbuf); if (buf[0] >= '1' && buf[0] <= '8') x.sex = (buf[0] - '1') % 8; else x.sex = u->sex % 8; while (1) { snprintf(genbuf, sizeof(genbuf), "%04i/%02i/%02i", u->year + 1900, u->month, u->day); if (getdata_str(y, 0, "生日 西元/月月/日日：", buf, 11, DOECHO, genbuf) == 0) { x.month = u->month; x.day = u->day; x.year = u->year; } else { int y, m, d; if (ParseDate(buf, &y, &m, &d)) continue; x.month = (unsigned char)m; x.day = (unsigned char)d; x.year = (unsigned char)(y - 1900); } if (!adminmode && x.year < 40) continue; y++; break; } #ifdef PLAY_ANGEL if (adminmode) { const char* prompt; userec_t the_angel; if (x.myangel[0] == 0 || x.myangel[0] == '-' || (getuser(x.myangel, &the_angel) && the_angel.userlevel & PERM_ANGEL)) prompt = "小天使："; else prompt = "小天使（此帳號已無小天使資格）："; while (1) { userec_t xuser; getdata_str(y, 0, prompt, buf, IDLEN + 1, DOECHO, x.myangel); if(buf[0] == 0 || strcmp(buf, "-") == 0 || (getuser(buf, &xuser) && (xuser.userlevel & PERM_ANGEL)) || strcmp(x.myangel, buf) == 0){ strlcpy(x.myangel, xuser.userid, IDLEN + 1); ++y; break; } prompt = "小天使："; } } #endif #ifdef CHESSCOUNTRY { int j, k; FILE* fp; for(j = 0; j < 2; ++j){ sethomefile(genbuf, u->userid, chess_photo_name[j]); fp = fopen(genbuf, "r"); if(fp != NULL){ FILE* newfp; char mybuf[200]; for(k = 0; k < 11; ++k) fgets(genbuf, 200, fp); fgets(genbuf, 200, fp); chomp(genbuf); snprintf(mybuf, 200, "%s棋國自我描述：", chess_type[j]); getdata_buf(y, 0, mybuf, genbuf + 11, 80 - 11, DOECHO); ++y; sethomefile(mybuf, u->userid, chess_photo_name[j]); strcat(mybuf, ".new"); if((newfp = fopen(mybuf, "w")) != NULL){ rewind(fp); for(k = 0; k < 11; ++k){ fgets(mybuf, 200, fp); fputs(mybuf, newfp); } fputs(genbuf, newfp); fputc('\n', newfp); fclose(newfp); sethomefile(genbuf, u->userid, chess_photo_name[j]); sethomefile(mybuf, u->userid, chess_photo_name[j]); strcat(mybuf, ".new"); Rename(mybuf, genbuf); } fclose(fp); } } } #endif if (adminmode) { int tmp; if (HasUserPerm(PERM_BBSADM)) { snprintf(genbuf, sizeof(genbuf), "%d", x.money); if (getdata_str(y++, 0, "銀行帳戶：", buf, 10, DOECHO, genbuf)) if ((tmp = atol(buf)) != 0) { if (tmp != x.money) { money_changed = 1; changefrom = x.money; x.money = tmp; } } } snprintf(genbuf, sizeof(genbuf), "%d", x.exmailbox); if (getdata_str(y++, 0, "購買信箱數：", buf, 6, DOECHO, genbuf)) if ((tmp = atoi(buf)) != 0) x.exmailbox = (int)tmp; getdata_buf(y++, 0, "認證資料：", x.justify, sizeof(x.justify), DOECHO); getdata_buf(y++, 0, "最近光臨機器：", x.lasthost, sizeof(x.lasthost), DOECHO); snprintf(genbuf, sizeof(genbuf), "%d", x.numlogins); if (getdata_str(y++, 0, "上線次數：", buf, 10, DOECHO, genbuf)) if ((tmp = atoi(buf)) >= 0) x.numlogins = tmp; snprintf(genbuf, sizeof(genbuf), "%d", u->numposts); if (getdata_str(y++, 0, "文章數目：", buf, 10, DOECHO, genbuf)) if ((tmp = atoi(buf)) >= 0) x.numposts = tmp; snprintf(genbuf, sizeof(genbuf), "%d", u->goodpost); if (getdata_str(y++, 0, "優良文章數:", buf, 10, DOECHO, genbuf)) if ((tmp = atoi(buf)) >= 0) x.goodpost = tmp; snprintf(genbuf, sizeof(genbuf), "%d", u->badpost); if (getdata_str(y++, 0, "惡劣文章數:", buf, 10, DOECHO, genbuf)) if ((tmp = atoi(buf)) >= 0) x.badpost = tmp; snprintf(genbuf, sizeof(genbuf), "%d", u->vl_count); if (getdata_str(y++, 0, "違法記錄：", buf, 10, DOECHO, genbuf)) if ((tmp = atoi(buf)) >= 0) x.vl_count = tmp; snprintf(genbuf, sizeof(genbuf), "%d/%d/%d", u->five_win, u->five_lose, u->five_tie); if (getdata_str(y++, 0, "五子棋戰績 勝/敗/和：", buf, 16, DOECHO, genbuf)) while (1) { char *p; char *strtok_pos; p = strtok_r(buf, "/\r\n", &strtok_pos); if (!p) break; x.five_win = atoi(p); p = strtok_r(NULL, "/\r\n", &strtok_pos); if (!p) break; x.five_lose = atoi(p); p = strtok_r(NULL, "/\r\n", &strtok_pos); if (!p) break; x.five_tie = atoi(p); break; } snprintf(genbuf, sizeof(genbuf), "%d/%d/%d", u->chc_win, u->chc_lose, u->chc_tie); if (getdata_str(y++, 0, "象棋戰績 勝/敗/和：", buf, 16, DOECHO, genbuf)) while (1) { char *p; char *strtok_pos; p = strtok_r(buf, "/\r\n", &strtok_pos); if (!p) break; x.chc_win = atoi(p); p = strtok_r(NULL, "/\r\n", &strtok_pos); if (!p) break; x.chc_lose = atoi(p); p = strtok_r(NULL, "/\r\n", &strtok_pos); if (!p) break; x.chc_tie = atoi(p); break; } #ifdef FOREIGN_REG if (getdata_str(y++, 0, "住在 1)台灣 2)其他：", buf, 2, DOECHO, x.uflag2 & FOREIGN ? "2" : "1")) if ((tmp = atoi(buf)) > 0){ if (tmp == 2){ x.uflag2 |= FOREIGN; } else x.uflag2 &= ~FOREIGN; } if (x.uflag2 & FOREIGN) if (getdata_str(y++, 0, "永久居留權 1)是 2)否：", buf, 2, DOECHO, x.uflag2 & LIVERIGHT ? "1" : "2")){ if ((tmp = atoi(buf)) > 0){ if (tmp == 1){ x.uflag2 |= LIVERIGHT; x.userlevel |= (PERM_LOGINOK | PERM_POST); } else{ x.uflag2 &= ~LIVERIGHT; x.userlevel &= ~(PERM_LOGINOK | PERM_POST); } } } #endif } break; case '2': y = 19; if (!adminmode) { if (!getdata(y++, 0, "請輸入原密碼：", buf, PASSLEN, NOECHO) || !checkpasswd(u->passwd, buf)) { outs("\n\n您輸入的密碼不正確\n"); fail++; break; } } else { FILE *fp; char witness[3][32], title[100]; int uid; for (i = 0; i < 3; i++) { if (!getdata(19 + i, 0, "請輸入協助證明之使用者：", witness[i], sizeof(witness[i]), DOECHO)) { outs("\n不輸入則無法更改\n"); fail++; break; } else if (!(uid = searchuser(witness[i], NULL))) { outs("\n查無此使用者\n"); fail++; break; } else { userec_t atuser; passwd_query(uid, &atuser); if (now - atuser.firstlogin < 6 * 30 * 24 * 60 * 60) { outs("\n註冊未超過半年，請重新輸入\n"); i--; } strcpy(witness[i], atuser.userid); // Adjust upper or lower case } } if (i < 3) break; sprintf(title, "%s 的密碼重設通知 (by %s)",u->userid, cuser.userid); unlink("etc/updatepwd.log"); if(! (fp = fopen("etc/updatepwd.log", "w"))) break; fprintf(fp, "%s 要求密碼重設:\n" "見證人為 %s, %s, %s", u->userid, witness[0], witness[1], witness[2] ); fclose(fp); post_file(GLOBAL_SECURITY, title, "etc/updatepwd.log", "[系統安全局]"); mail_id(u->userid, title, "etc/updatepwd.log", cuser.userid); for(i=0; i<3; i++) { mail_id(witness[i], title, "etc/updatepwd.log", cuser.userid); } y = 20; } if (!getdata(y++, 0, "請設定新密碼：", buf, PASSLEN, NOECHO)) { outs("\n\n密碼設定取消, 繼續使用舊密碼\n"); fail++; break; } strlcpy(genbuf, buf, PASSLEN); getdata(y++, 0, "請檢查新密碼：", buf, PASSLEN, NOECHO); if (strncmp(buf, genbuf, PASSLEN)) { outs("\n\n新密碼確認失敗, 無法設定新密碼\n"); fail++; break; } buf[8] = '\0'; strlcpy(x.passwd, genpasswd(buf), sizeof(x.passwd)); break; case '3': { int tmp = setperms(x.userlevel, str_permid); if (tmp == x.userlevel) fail++; else { perm_changed = 1; changefrom = x.userlevel; x.userlevel = tmp; } } break; case '4': tokill = 1; break; case '5': if (getdata_str(b_lines - 3, 0, "新的使用者代號：", genbuf, IDLEN + 1, DOECHO, x.userid)) { if (searchuser(genbuf, NULL)) { outs("錯誤! 已經有同樣 ID 的使用者"); fail++; } else strlcpy(x.userid, genbuf, sizeof(x.userid)); } break; case '6': if (x.mychicken.name[0]) x.mychicken.name[0] = 0; else strlcpy(x.mychicken.name, "[死]", sizeof(x.mychicken.name)); break; default: return; } if (fail) { pressanykey(); return; } if (getans(msg_sure_ny) == 'y') { if (perm_changed) { post_change_perm(changefrom, x.userlevel, cuser.userid, x.userid); #ifdef PLAY_ANGEL if (x.userlevel & ~changefrom & PERM_ANGEL) mail_id(x.userid, "翅膀長出來了！", "etc/angel_notify", "[上帝]"); #endif } if (strcmp(u->userid, x.userid)) { char src[STRLEN], dst[STRLEN]; sethomepath(src, u->userid); sethomepath(dst, x.userid); Rename(src, dst); setuserid(unum, x.userid); } if (mail_changed && !adminmode) { char justify_tmp[REGLEN + 1]; char *phone, *career; char *strtok_pos; strlcpy(justify_tmp, u->justify, sizeof(justify_tmp)); x.userlevel &= ~(PERM_LOGINOK | PERM_POST); phone = strtok_r(justify_tmp, ":", &strtok_pos); career = strtok_r(NULL, ":", &strtok_pos); if (phone == NULL) phone = ""; if (career == NULL) career = ""; snprintf(buf, sizeof(buf), "%d", x.mobile); justify_wait(x.userid, phone, career, x.realname, x.address, buf); } memcpy(u, &x, sizeof(x)); if (tokill) { kill_user(unum, x.userid); return; } else log_usies("SetUser", x.userid); if (money_changed) { char title[TTLEN+1]; char msg[200]; char reason[50]; clrtobot(); clear(); while (!getdata(5, 0, "請輸入理由以示負責：", reason, sizeof(reason), DOECHO)); snprintf(msg, sizeof(msg), " 站長" ANSI_COLOR(1;32) "%s" ANSI_RESET "把" ANSI_COLOR(1;32) "%s" ANSI_RESET "的錢" "從" ANSI_COLOR(1;35) "%d" ANSI_RESET "改成" ANSI_COLOR(1;35) "%d" ANSI_RESET "\n" " " ANSI_COLOR(1;37) "站長%s修改錢理由是：%s" ANSI_RESET, cuser.userid, x.userid, changefrom, x.money, cuser.userid, reason); snprintf(title, sizeof(title), "[公安報告] 站長%s修改%s錢報告", cuser.userid, x.userid); post_msg(GLOBAL_SECURITY, title, msg, "[系統安全局]"); setumoney(unum, x.money); } passwd_update(unum, &x); if(perm_changed) sendalert(x.userid, ALERT_PWD_PERM); // force to reload perm // resolve_over18 only works for cuser if (!adminmode) resolve_over18(); } } int u_info(void) { move(2, 0); user_display(&cuser, 0); uinfo_query(&cuser, 0, usernum); strlcpy(currutmp->nickname, cuser.nickname, sizeof(currutmp->nickname)); return 0; } int u_cloak(void) { outs((currutmp->invisible ^= 1) ? MSG_CLOAKED : MSG_UNCLOAK); return XEASY; } void showplans_userec(userec_t *user) { char genbuf[200]; if(user->userlevel & PERM_VIOLATELAW) { outs(" " ANSI_COLOR(1;31) "此人違規 尚未繳交罰單" ANSI_RESET); return; } #ifdef CHESSCOUNTRY if (user_query_mode) { int i = 0; FILE *fp; sethomefile(genbuf, user->userid, chess_photo_name[user_query_mode - 1]); if ((fp = fopen(genbuf, "r")) != NULL) { char photo[6][256]; int kingdom_bid = 0; int win = 0, lost = 0; move(7, 0); while (i < 12 && fgets(genbuf, 256, fp)) { chomp(genbuf); if (i < 6) /* 讀照片檔 */ strcpy(photo[i], genbuf); else if (i == 6) kingdom_bid = atoi(genbuf); else prints("%s %s\n", photo[i - 7], genbuf); i++; } fclose(fp); if (user_query_mode == 1) { win = user->five_win; lost = user->five_lose; } else if(user_query_mode == 2) { win = user->chc_win; lost = user->chc_lose; } prints("%s <總共戰績> %d 勝 %d 敗\n", photo[5], win, lost); /* 棋國國徽 */ setapath(genbuf, bcache[kingdom_bid - 1].brdname); strlcat(genbuf, "/chess_ensign", sizeof(genbuf)); show_file(genbuf, 13, 10, ONLY_COLOR); return; } } #endif /* defined(CHESSCOUNTRY) */ sethomefile(genbuf, user->userid, fn_plans); if (!show_file(genbuf, 7, MAX_QUERYLINES, ONLY_COLOR)) prints("《個人名片》%s 目前沒有名片", user->userid); } void showplans(const char *uid) { userec_t user; if(getuser(uid, &user)) showplans_userec(&user); } /* * return value: how many items displayed */ int showsignature(char *fname, int *j, SigInfo *si) { FILE *fp; char buf[256]; int i, lines = scr_lns; char ch; clear(); move(2, 0); lines -= 3; setuserfile(fname, "sig.0"); *j = strlen(fname) - 1; si->total = 0; si->max = 0; for (ch = '1'; ch <= '9'; ch++) { fname[*j] = ch; if ((fp = fopen(fname, "r"))) { si->total ++; si->max = ch - '1'; if(lines > 0 && si->max >= si->show_start) { prints(ANSI_COLOR(36) "【 簽名檔.%c 】" ANSI_RESET "\n", ch); lines--; if(lines > MAX_SIGLINES/2) si->show_max = si->max; for (i = 0; lines > 0 && i < MAX_SIGLINES && fgets(buf, sizeof(buf), fp) != NULL; i++) outs(buf), lines--; } fclose(fp); } } if(lines > 0) si->show_max = si->max; return si->max; } int u_editsig(void) { int aborted; char ans[4]; int j, browsing = 0; char genbuf[MAXPATHLEN]; SigInfo si; memset(&si, 0, sizeof(si)); browse_sigs: showsignature(genbuf, &j, &si); getdata(0, 0, (browsing || (si.max > si.show_max)) ? "簽名檔 (E)編輯 (D)刪除 (N)翻頁 (Q)取消？[Q] ": "簽名檔 (E)編輯 (D)刪除 (Q)取消？[Q] ", ans, sizeof(ans), LCECHO); if(ans[0] == 'n') { si.show_start = si.show_max + 1; if(si.show_start > si.max) si.show_start = 0; browsing = 1; goto browse_sigs; } aborted = 0; if (ans[0] == 'd') aborted = 1; else if (ans[0] == 'e') aborted = 2; if (aborted) { if (!getdata(1, 0, "請選擇簽名檔(1-9)？[1] ", ans, sizeof(ans), DOECHO)) ans[0] = '1'; if (ans[0] >= '1' && ans[0] <= '9') { genbuf[j] = ans[0]; if (aborted == 1) { unlink(genbuf); outs(msg_del_ok); } else { setutmpmode(EDITSIG); aborted = vedit(genbuf, NA, NULL); if (aborted != -1) outs("簽名檔更新完畢"); } } pressanykey(); } return 0; } int u_editplan(void) { char genbuf[200]; getdata(b_lines - 1, 0, "名片 (D)刪除 (E)編輯 [Q]取消？[Q] ", genbuf, 3, LCECHO); if (genbuf[0] == 'e') { int aborted; setutmpmode(EDITPLAN); setuserfile(genbuf, fn_plans); aborted = vedit(genbuf, NA, NULL); if (aborted != -1) outs("名片更新完畢"); pressanykey(); return 0; } else if (genbuf[0] == 'd') { setuserfile(genbuf, fn_plans); unlink(genbuf); outmsg("名片刪除完畢"); } return 0; } /* 使用者填寫註冊表格 */ static void getfield(int line, const char *info, const char *desc, char *buf, int len) { char prompt[STRLEN]; char genbuf[200]; // clear first move(line+1, 0); clrtoeol(); move(line, 0); clrtoeol(); prints(" 原先設定：%-30.30s (%s)", buf, info); snprintf(prompt, sizeof(prompt), " %s：", desc); if (getdata_str(line + 1, 0, prompt, genbuf, len, DOECHO, buf)) strcpy(buf, genbuf); move(line+1, 0); clrtoeol(); move(line, 0); clrtoeol(); prints(" %s：%s", desc, buf); } static int removespace(char *s) { int i, index; for (i = 0, index = 0; s[i]; i++) { if (s[i] != ' ') s[index++] = s[i]; } s[index] = '\0'; return index; } int isvalidemail(const char *email) { FILE *fp; char buf[128], *c; if (!strstr(email, "@")) return 0; for (c = strstr(email, "@"); *c != 0; ++c) if ('A' <= *c && *c <= 'Z') *c += 32; if ((fp = fopen("etc/banemail", "r"))) { while (fgets(buf, sizeof(buf), fp)) { if (buf[0] == '#') continue; chomp(buf); if (buf[0] == 'A' && strcasecmp(&buf[1], email) == 0) return 0; if (buf[0] == 'P' && strcasestr(email, &buf[1])) return 0; if (buf[0] == 'S' && strcasecmp(strstr(email, "@") + 1, &buf[1]) == 0) return 0; } fclose(fp); } return 1; } static void toregister(char *email, char *phone, char *career, char *rname, char *addr, char *mobile) { FILE *fn = NULL; justify_wait(cuser.userid, phone, career, rname, addr, mobile); clear(); stand_title("認證設定"); if (cuser.userlevel & PERM_NOREGCODE){ strcpy(email, "x"); goto REGFORM2; } move(1, 0); outs("您好, 本站認證認證的方式有:\n" " 1.若您有 E-Mail (本站不接受 yahoo, kimo等免費的 E-Mail)\n" " 請輸入您的 E-Mail , 我們會寄發含有認證碼的信件給您\n" " 收到後請到 (U)ser => (R)egister 輸入認證碼, 即可通過認證\n" "\n" " 2.若您沒有 E-Mail 或是一直無法收到認證信, 請輸入 x \n" " 會有站長親自人工審核註冊資料，" ANSI_COLOR(1;33) "但注意這可能會花上數週或更多時間。" ANSI_RESET "\n" "**********************************************************\n" "* 注意! *\n" "* 通常應該會在輸入完成後十分鐘內收到認證信, 若過久未收到 *\n" "* 請到郵件垃圾桶檢查是否被當作垃圾信(SPAM)了，另外若是 *\n" "* 輸入後發生認證碼錯誤請重填一次 E-Mail *\n" "**********************************************************\n"); #ifdef HAVEMOBILE outs(" 3.若您有手機門號且想採取手機簡訊認證的方式 , 請輸入 m \n" " 我們將會寄發含有認證碼的簡訊給您 \n" " 收到後請到(U)ser => (R)egister 輸入認證碼, 即可通過認證\n"); #endif while (1) { email[0] = 0; getfield(15, "身分認證用", "E-Mail Address", email, 50); if (strcmp(email, "x") == 0 || strcmp(email, "X") == 0) break; #ifdef HAVEMOBILE else if (strcmp(email, "m") == 0 || strcmp(email, "M") == 0) { if (isvalidmobile(mobile)) { char yn[3]; getdata(16, 0, "請再次確認您輸入的手機號碼正確嘛? [y/N]", yn, sizeof(yn), LCECHO); if (yn[0] == 'Y' || yn[0] == 'y') break; } else { move(15, 0); clrtobot(); move(17, 0); outs("指定的手機號碼不合法," "若您無手機門號請選擇其他方式認證"); } } #endif else if (isvalidemail(email)) { char yn[3]; #ifdef USE_EMAILDB int email_count = emaildb_check_email(email, strlen(email)); if (email_count < 0) { move(15, 0); clrtobot(); move(17, 0); outs("暫時不允許\ email 認證註冊, 請稍後再試\n"); pressanykey(); return; } else if (email_count >= EMAILDB_LIMIT) { move(15, 0); clrtobot(); move(17, 0); outs("指定的 E-Mail 已註冊過多帳號, 請使用其他 E-Mail, 或輸入 x 採手動認證\n"); outs("但注意手動認證通常會花上數週以上的時間。\n"); } else { #endif getdata(16, 0, "請再次確認您輸入的 E-Mail 位置正確嘛? [y/N]", yn, sizeof(yn), LCECHO); if (yn[0] == 'Y' || yn[0] == 'y') break; #ifdef USE_EMAILDB } #endif } else { move(15, 0); clrtobot(); move(17, 0); outs("指定的 E-Mail 不合法, 若您無 E-Mail 請輸入 x 由站長手動認證\n"); outs("但注意手動認證通常會花上數週以上的時間。\n"); } } #ifdef USE_EMAILDB if (emaildb_update_email(cuser.userid, strlen(cuser.userid), email, strlen(email)) < 0) { move(15, 0); clrtobot(); move(17, 0); outs("暫時不允許\ email 認證註冊, 請稍後再試\n"); pressanykey(); return; } #endif strlcpy(cuser.email, email, sizeof(cuser.email)); REGFORM2: if (strcasecmp(email, "x") == 0) { /* 手動認證 */ if ((fn = fopen(fn_register, "a"))) { fprintf(fn, "num: %d, %s", usernum, ctime4(&now)); fprintf(fn, "uid: %s\n", cuser.userid); fprintf(fn, "name: %s\n", rname); fprintf(fn, "career: %s\n", career); fprintf(fn, "addr: %s\n", addr); fprintf(fn, "phone: %s\n", phone); fprintf(fn, "mobile: %s\n", mobile); fprintf(fn, "email: %s\n", email); fprintf(fn, "----\n"); fclose(fn); // save justify information snprintf(cuser.justify, sizeof(cuser.justify), "%s:%s:", phone, career); } // XXX what if we cannot open register form? } else { // register by mail of phone snprintf(cuser.justify, sizeof(cuser.justify), "%s:%s:", phone, career); #ifdef HAVEMOBILE if (phone != NULL && email[1] == 0 && tolower(email[0]) == 'm') sprintf(cuser.justify, sizeof(cuser.justify), "%s:%s:", phone, career); #endif email_justify(&cuser); } } static int HaveRejectStr(const char *s, const char **rej) { int i; char *ptr, *rejectstr[] = {"幹", "阿", "不", "你媽", "某", "笨", "呆", "..", "xx", "你管", "管我", "猜", "天才", "超人", "ㄅ", "ㄆ", "ㄇ", "ㄈ", "ㄉ", "ㄊ", "ㄋ", "ㄌ", "ㄍ", "ㄎ", "ㄏ", "ㄐ", "ㄑ", "ㄒ", "ㄓ",/*"ㄔ",*/ "ㄕ", "ㄖ", "ㄗ", "ㄘ", "ㄙ", "ㄧ", "ㄨ", "ㄩ", "ㄚ", "ㄛ", "ㄜ", "ㄝ", "ㄞ", "ㄟ", "ㄠ", "ㄡ", "ㄢ", "ㄣ", "ㄤ", "ㄥ", "ㄦ", NULL}; if( rej != NULL ) for( i = 0 ; rej[i] != NULL ; ++i ) if( strstr(s, rej[i]) ) return 1; for( i = 0 ; rejectstr[i] != NULL ; ++i ) if( strstr(s, rejectstr[i]) ) return 1; if( (ptr = strstr(s, "ㄔ")) != NULL ){ if( ptr != s && strncmp(ptr - 1, "都市", 4) == 0 ) return 0; return 1; } return 0; } char *isvalidname(char *rname) { #ifdef FOREIGN_REG return NULL; #else const char *rejectstr[] = {"肥", "胖", "豬頭", "小白", "小明", "路人", "老王", "老李", "寶貝", "先生", "帥哥", "老頭", "小姊", "小姐", "美女", "小妹", "大頭", "公主", "同學", "寶寶", "公子", "大頭", "小小", "小弟", "小妹", "妹妹", "嘿", "嗯", "爺爺", "大哥", "無", NULL}; if( removespace(rname) && rname[0] < 0 && strlen(rname) >= 4 && !HaveRejectStr(rname, rejectstr) && strncmp(rname, "小", 2) != 0 && //起頭是「小」 strncmp(rname, "我是", 4) != 0 && //起頭是「我是」 !(strlen(rname) == 4 && strncmp(&rname[2], "兒", 2) == 0) && !(strlen(rname) >= 4 && strncmp(&rname[0], &rname[2], 2) == 0)) return NULL; return "您的輸入不正確"; #endif } static char *isvalidcareer(char *career) { #ifndef FOREIGN_REG const char *rejectstr[] = {NULL}; if (!(removespace(career) && career[0] < 0 && strlen(career) >= 6) || strcmp(career, "家裡") == 0 || HaveRejectStr(career, rejectstr) ) return "您的輸入不正確"; if (strcmp(&career[strlen(career) - 2], "大") == 0 || strcmp(&career[strlen(career) - 4], "大學") == 0 || strcmp(career, "學生大學") == 0) return "麻煩請加學校系所"; if (strcmp(career, "學生高中") == 0) return "麻煩輸入學校名稱"; #else if( strlen(career) < 6 ) return "您的輸入不正確"; #endif return NULL; } char *isvalidaddr(char *addr) { const char *rejectstr[] = {"地球", "銀河", "火星", NULL}; if (!removespace(addr) || addr[0] > 0 || strlen(addr) < 15) return "這個地址並不合法"; if (strstr(addr, "信箱") != NULL || strstr(addr, "郵政") != NULL) return "抱歉我們不接受郵政信箱"; if ((strstr(addr, "市") == NULL && strstr(addr, "巿") == NULL && strstr(addr, "縣") == NULL && strstr(addr, "室") == NULL) || HaveRejectStr(addr, rejectstr) || strcmp(&addr[strlen(addr) - 2], "段") == 0 || strcmp(&addr[strlen(addr) - 2], "路") == 0 || strcmp(&addr[strlen(addr) - 2], "巷") == 0 || strcmp(&addr[strlen(addr) - 2], "弄") == 0 || strcmp(&addr[strlen(addr) - 2], "區") == 0 || strcmp(&addr[strlen(addr) - 2], "市") == 0 || strcmp(&addr[strlen(addr) - 2], "街") == 0 ) return "這個地址並不合法"; return NULL; } static char *isvalidphone(char *phone) { int i; for( i = 0 ; phone[i] != 0 ; ++i ) if( !isdigit((int)phone[i]) ) return "請不要加分隔符號"; if (!removespace(phone) || strlen(phone) < 9 || strstr(phone, "00000000") != NULL || strstr(phone, "22222222") != NULL ) { return "這個電話號碼並不合法(請含區碼)" ; } return NULL; } int u_register(void) { char rname[20], addr[50], mobile[16]; #ifdef FOREIGN_REG char fore[2]; #endif char phone[20], career[40], email[50], birthday[11], sex_is[2]; unsigned char year, mon, day; char inregcode[14], regcode[50]; char ans[3], *ptr, *errcode; char genbuf[200]; FILE *fn; if (cuser.userlevel & PERM_LOGINOK) { outs("您的身份確認已經完成，不需填寫申請表"); return XEASY; } if ((fn = fopen(fn_register, "r"))) { int i =0; while (fgets(genbuf, STRLEN, fn)) { if ((ptr = strchr(genbuf, '\n'))) *ptr = '\0'; if (strncmp(genbuf, "uid: ", 5) != 0) continue; i++; if(strcmp(genbuf + 5, cuser.userid) != 0) continue; fclose(fn); /* idiots complain about this, so bug them */ clear(); move(3, 0); prints(" 您的註冊申請單尚在處理中(處理順位: %d)，請耐心等候\n\n", i); outs(" 如果您已收到註冊碼卻看到這個畫面，那代表您在使用 Email 註冊後\n"); outs(" " ANSI_COLOR(1;31) "又另外申請了站長直接人工審核的註冊申請單。" ANSI_RESET "\n\n"); // outs("該死，都不看說明的...\n"); outs(" 進入人工審核程序後 Email 註冊自動失效，有註冊碼也沒用，\n"); outs(" 要等到審核完成 (會多花很多時間，通常起碼數天) ，所以請耐心等候。\n\n"); /* 下面是國王的 code 所需要的 message */ #if 0 outs(" 另外請注意，若站長審註冊單時您正在站上則會無法審核、自動跳過。\n"); outs(" 所以等候審核時請勿掛站。若超過兩三天仍未被審到，通常就是這個原因。\n"); #endif vmsg("您的註冊申請單尚在處理中"); return FULLUPDATE; } fclose(fn); } strlcpy(rname, cuser.realname, sizeof(rname)); strlcpy(addr, cuser.address, sizeof(addr)); strlcpy(email, cuser.email, sizeof(email)); if (cuser.mobile) snprintf(mobile, sizeof(mobile), "0%09d", cuser.mobile); else mobile[0] = 0; if (cuser.month == 0 && cuser.day == 0 && cuser.year == 0) birthday[0] = 0; else snprintf(birthday, sizeof(birthday), "%04i/%02i/%02i", 1900 + cuser.year, cuser.month, cuser.day); sex_is[0] = (cuser.sex % 8) + '1'; sex_is[1] = 0; career[0] = phone[0] = '\0'; sethomefile(genbuf, cuser.userid, "justify.wait"); if ((fn = fopen(genbuf, "r"))) { fgets(genbuf, sizeof(genbuf), fn); chomp(genbuf); strlcpy(phone, genbuf, sizeof(phone)); fgets(genbuf, sizeof(genbuf), fn); chomp(genbuf); strlcpy(career, genbuf, sizeof(career)); fgets(genbuf, sizeof(genbuf), fn); // old version compatible fgets(genbuf, sizeof(genbuf), fn); chomp(genbuf); strlcpy(rname, genbuf, sizeof(rname)); fgets(genbuf, sizeof(genbuf), fn); chomp(genbuf); strlcpy(addr, genbuf, sizeof(addr)); fgets(genbuf, sizeof(genbuf), fn); chomp(genbuf); strlcpy(mobile, genbuf, sizeof(mobile)); fclose(fn); } if (cuser.userlevel & PERM_NOREGCODE) { vmsg("您不被允許\使用認證碼認證。請填寫註冊申請單"); goto REGFORM; } // XXX why check by year? // birthday is moved to earlier, so let's check email instead. if (cuser.email[0] && // cuser.year != 0 && /* 已經第一次填過了~ ^^" */ strcmp(cuser.email, "x") != 0 && /* 上次手動認證失敗 */ strcmp(cuser.email, "X") != 0) { clear(); stand_title("EMail認證"); move(2, 0); prints("請輸入您的認證碼。(由 %s 開頭無空白的十三碼)\n" "或輸入 x 來重新填寫 E-Mail 或改由站長手動認證\n", REGCODE_INITIAL); inregcode[0] = 0; do{ getdata(10, 0, "您的認證碼：", inregcode, sizeof(inregcode), DOECHO); if( strcmp(inregcode, "x") == 0 || strcmp(inregcode, "X") == 0 ) break; if( strlen(inregcode) != 13 || inregcode[0] == ' ') vmsg("認證碼輸入不完整，總共應有十三碼，沒有空白字元。"); else if( inregcode[0] != REGCODE_INITIAL[0] || inregcode[1] != REGCODE_INITIAL[1] ) { /* old regcode */ vmsg("輸入的認證碼錯誤，" // "或因系統昇級已失效，" "請輸入 x 重填一次 E-Mail"); } else break; } while( 1 ); if (strcmp(inregcode, getregcode(regcode)) == 0) { int unum; delregcodefile(); if ((unum = searchuser(cuser.userid, NULL)) == 0) { vmsg("系統錯誤，查無此人！"); u_exit("getuser error"); exit(0); } mail_muser(cuser, "[註冊成功\囉]", "etc/registeredmail"); #if FOREIGN_REG_DAY > 0 if(cuser.uflag2 & FOREIGN) mail_muser(cuser, "[出入境管理局]", "etc/foreign_welcome"); #endif cuser.userlevel |= (PERM_LOGINOK | PERM_POST); outs("\n註冊成功\, 重新上站後將取得完整權限\n" "請按下任一鍵跳離後重新上站~ :)"); sethomefile(genbuf, cuser.userid, "justify.wait"); unlink(genbuf); snprintf(cuser.justify, sizeof(cuser.justify), "%s:%s:email", phone, career); sethomefile(genbuf, cuser.userid, "justify"); log_file(genbuf, LOG_CREAT, cuser.justify); pressanykey(); u_exit("registed"); exit(0); return QUIT; } else if (strcasecmp(inregcode, "x") != 0) { if (regcode[0]) vmsg("認證碼錯誤！"); else { vmsg("認證碼已過期，請重新註冊。"); toregister(email, phone, career, rname, addr, mobile); return FULLUPDATE; } } else { toregister(email, phone, career, rname, addr, mobile); return FULLUPDATE; } } REGFORM: getdata(b_lines - 1, 0, "您確定要填寫註冊單嗎(Y/N)？[N] ", ans, 3, LCECHO); if (ans[0] != 'y') return FULLUPDATE; move(2, 0); clrtobot(); while (1) { clear(); move(1, 0); prints("%s(%s) 您好，請據實填寫以下的資料:", cuser.userid, cuser.nickname); #ifdef FOREIGN_REG fore[0] = 'y'; fore[1] = 0; getfield(2, "Y/n", "是否現在住在台灣", fore, 2); if (fore[0] == 'n') fore[0] |= FOREIGN; else fore[0] = 0; #endif while (1) { getfield(8, #ifdef FOREIGN_REG "請用本名", #else "請用中文", #endif "真實姓名", rname, 20); if( (errcode = isvalidname(rname)) == NULL ) break; else vmsg(errcode); } move(11, 0); outs(" 請盡量詳細的填寫您的服務單位，大專院校請麻煩" "加" ANSI_COLOR(1;33) "系所" ANSI_RESET "，公司單位請加" ANSI_COLOR(1;33) "職稱" ANSI_RESET "，\n" " 暫無工作請麻煩填寫" ANSI_COLOR(1;33) "畢業學校" ANSI_RESET "。\n"); while (1) { getfield(9, "(畢業)學校(含" ANSI_COLOR(1;33) "系所年級" ANSI_RESET ")或單位職稱", "服務單位", career, 40); if( (errcode = isvalidcareer(career)) == NULL ) break; else vmsg(errcode); } move(10, 0); clrtobot(); while (1) { getfield(10, "含" ANSI_COLOR(1;33) "縣市" ANSI_RESET "及門寢號碼" "(台北請加" ANSI_COLOR(1;33) "行政區" ANSI_RESET ")", "目前住址", addr, sizeof(addr)); if( (errcode = isvalidaddr(addr)) == NULL #ifdef FOREIGN_REG || fore[0] #endif ) break; else vmsg(errcode); } while (1) { getfield(11, "不加-(), 包括長途區號", "連絡電話", phone, 11); if( (errcode = isvalidphone(phone)) == NULL ) break; else vmsg(errcode); } getfield(12, "只輸入數字 如:0912345678 (可不填)", "手機號碼", mobile, 20); while (1) { getfield(13, "西元/月月/日日 如:1984/02/29", "生日", birthday, sizeof(birthday)); if (birthday[0] == 0) { snprintf(birthday, sizeof(birthday), "%04i/%02i/%02i", 1900 + cuser.year, cuser.month, cuser.day); mon = cuser.month; day = cuser.day; year = cuser.year; } else { int y, m, d; if (ParseDate(birthday, &y, &m, &d)) { vmsg("您的輸入不正確"); continue; } mon = (unsigned char)m; day = (unsigned char)d; year = (unsigned char)(y - 1900); } if (year < 40) { vmsg("您的輸入不正確"); continue; } break; } getfield(14, "1.葛格 2.姐接 ", "性別", sex_is, 2); getdata(20, 0, "以上資料是否正確(Y/N)？(Q)取消註冊 [N] ", ans, 3, LCECHO); if (ans[0] == 'q') return 0; if (ans[0] == 'y') break; } strlcpy(cuser.realname, rname, sizeof(cuser.realname)); strlcpy(cuser.address, addr, sizeof(cuser.address)); strlcpy(cuser.email, email, sizeof(cuser.email)); cuser.mobile = atoi(mobile); cuser.sex = (sex_is[0] - '1') % 8; cuser.month = mon; cuser.day = day; cuser.year = year; #ifdef FOREIGN_REG if (fore[0]) cuser.uflag2 |= FOREIGN; else cuser.uflag2 &= ~FOREIGN; #endif trim(career); trim(addr); trim(phone); toregister(email, phone, career, rname, addr, mobile); // update cuser passwd_update(usernum, &cuser); return FULLUPDATE; } /* 列出所有註冊使用者 */ struct ListAllUsetCtx { int usercounter; int totalusers; unsigned short u_list_special; int y; }; static int u_list_CB(void *data, int num, userec_t * uentp) { char permstr[8], *ptr; register int level; struct ListAllUsetCtx *ctx = (struct ListAllUsetCtx*) data; (void)num; if (uentp == NULL) { move(2, 0); clrtoeol(); prints(ANSI_COLOR(7) " 使用者代號 %-25s 上站 文章 %s " "最近光臨日期 " ANSI_COLOR(0) "\n", "綽號暱稱", HasUserPerm(PERM_SEEULEVELS) ? "等級" : ""); ctx->y = 3; return 0; } if (bad_user_id(uentp->userid)) return 0; if ((uentp->userlevel & ~(ctx->u_list_special)) == 0) return 0; if (ctx->y == b_lines) { int ch; prints(ANSI_COLOR(34;46) " 已顯示 %d/%d 人(%d%%) " ANSI_COLOR(31;47) " " "(Space)" ANSI_COLOR(30) " 看下一頁 " ANSI_COLOR(31) "(Q)" ANSI_COLOR(30) " 離開 " ANSI_RESET, ctx->usercounter, ctx->totalusers, ctx->usercounter * 100 / ctx->totalusers); ch = igetch(); if (ch == 'q' || ch == 'Q') return -1; ctx->y = 3; } if (ctx->y == 3) { move(3, 0); clrtobot(); } level = uentp->userlevel; strlcpy(permstr, "----", 8); if (level & PERM_SYSOP) permstr[0] = 'S'; else if (level & PERM_ACCOUNTS) permstr[0] = 'A'; else if (level & PERM_SYSOPHIDE) permstr[0] = 'p'; if (level & (PERM_BOARD)) permstr[1] = 'B'; else if (level & (PERM_BM)) permstr[1] = 'b'; if (level & (PERM_XEMPT)) permstr[2] = 'X'; else if (level & (PERM_LOGINOK)) permstr[2] = 'R'; if (level & (PERM_CLOAK | PERM_SEECLOAK)) permstr[3] = 'C'; ptr = (char *)Cdate(&uentp->lastlogin); ptr[18] = '\0'; prints("%-14s %-27.27s%5d %5d %s %s\n", uentp->userid, uentp->nickname, uentp->numlogins, uentp->numposts, HasUserPerm(PERM_SEEULEVELS) ? permstr : "", ptr); ctx->usercounter++; ctx->y++; return 0; } int u_list(void) { char genbuf[3]; struct ListAllUsetCtx data, *ctx = &data; setutmpmode(LAUSERS); ctx->u_list_special = ctx->usercounter = 0; ctx->totalusers = SHM->number; if (HasUserPerm(PERM_SEEULEVELS)) { getdata(b_lines - 1, 0, "觀看 [1]特殊等級 (2)全部？", genbuf, 3, DOECHO); if (genbuf[0] != '2') ctx->u_list_special = PERM_BASIC | PERM_CHAT | PERM_PAGE | PERM_POST | PERM_LOGINOK | PERM_BM; } u_list_CB(ctx, 0, NULL); passwd_apply(ctx, u_list_CB); move(b_lines, 0); clrtoeol(); prints(ANSI_COLOR(34;46) " 已顯示 %d/%d 的使用者(系統容量無上限) " ANSI_COLOR(31;47) " (請按任意鍵繼續) " ANSI_RESET, ctx->usercounter, ctx->totalusers); igetch(); return 0; } #ifdef DBCSAWARE /* detect if user is using an evil client that sends double * keys for DBCS data. * True if client is evil. */ int u_detectDBCSAwareEvilClient() { int ret = 0; clear(); stand_title("設定自動偵測雙位元字集 (全型中文)"); move(2, 0); outs(ANSI_RESET "* 本站支援自動偵測中文字的移動與編輯，但有些連線程式 (如xxMan)\n" " 也會自行試圖偵測、多送按鍵，於是便會造成" ANSI_COLOR(1;37) "一次移動兩個中文字的現象。" ANSI_RESET "\n\n" "* 讓連線程式處理移動容易造成顯示及移動上誤判的問題，所以我們建議您\n" " 關閉該程式上的設定（通常叫「偵測(全型或雙位元組)中文」），\n" " 讓 BBS 系統可以正確的控制你的畫面。\n\n" ANSI_COLOR(1;33) "* 如果您看不懂上面的說明也無所謂，我們會自動偵測適合您的設定。" ANSI_RESET "\n" " 請在設定好連線程式成您偏好的模式後按" ANSI_COLOR(1;33) "一下" ANSI_RESET "您鍵盤上的" ANSI_COLOR(1;33) "←" ANSI_RESET "\n" ANSI_COLOR(1;36) " (左右方向鍵或寫 BS/Backspace 的倒退鍵與 Del 刪除鍵均可)\n" ANSI_RESET); /* clear buffer */ peek_input(0.1, Ctrl('C')); drop_input(); while (1) { int ch = 0; move(14, 0); outs("這是偵測區，您的游標會出現在" ANSI_COLOR(7) "這裡" ANSI_RESET); move(14, 15*2); ch = igetch(); if(ch != KEY_LEFT && ch != KEY_RIGHT && ch != Ctrl('H') && ch != '\177') { move(16, 0); bell(); outs("請按一下上面指定的鍵！ 你按到別的鍵了！"); } else { move(16, 0); /* Actually you may also use num_in_buf here. those clients * usually sends doubled keys together in one packet. * However when I was writing this, a bug (existed for more than 3 * years) of num_in_buf forced me to write new wait_input. * Anyway it is fixed now. */ refresh(); if(wait_input(0.1, 0)) // if(igetch() == ch) // if (num_in_buf() > 0) { /* evil dbcs aware client */ outs("偵測到您的連線程式會自行處理游標移動。\n" // "若日後因此造成瀏覽上的問題本站恕不處理。\n\n" "已設定為「讓您的連線程式處理游標移動」\n"); ret = 1; } else { /* good non-dbcs aware client */ outs("您的連線程式似乎不會多送按鍵，" "這樣 BBS 可以更精準的控制畫面。\n" "已設定為「讓 BBS 伺服器直接處理游標移動」\n"); ret = 0; } outs( "\n若想改變設定請至 個人設定區 → 個人化設定 → \n" " 調整「自動偵測雙位元字集(如全型中文)」之設定"); while(num_in_buf()) igetch(); break; } } drop_input(); pressanykey(); return ret; } #endif /* vim:sw=4 */