void keeplog(FILE *fin, char *board, char *title, char *owner) {
fileheader_t fhdr;
char genbuf[256], buf[512];
FILE *fout;
int bid;
sprintf(genbuf, BBSHOME "/boards/%c/%s", board[0], board);
stampfile(genbuf, &fhdr);
if(!(fout = fopen(genbuf, "w"))) {
perror(genbuf);
return;
}
while(fgets(buf, 512, fin))
fputs(buf, fout);
fclose(fin);
fclose(fout);
strncpy(fhdr.title, title, sizeof(fhdr.title) - 1);
fhdr.title[sizeof(fhdr.title) - 1] = '\0';
strcpy(fhdr.owner, owner);
sprintf(genbuf, BBSHOME "/boards/%c/%s/.DIR", board[0], board);
append_record(genbuf, &fhdr, sizeof(fhdr));
/* XXX: bid of cache.c's getbnum starts from 1 */
if((bid = getbnum(board)) > 0)
touchbtotal(bid);
}
void mailUser(char *userid)
{
int count;
FILE *fp, *fp2;
time4_t t;
fileheader_t header;
struct stat st;
char filename[512];
fp2 = fopen(mailfile, "r");
if (fp2 == NULL) {
fprintf(stderr, "Cannot open file %s\n", mailfile);
return;
}
sprintf(filename, BBSHOME "/home/%c/%s", userid[0], userid);
if (stat(filename, &st) == -1) {
if (Mkdir(filename) == -1) {
fprintf(stderr, "mail box create error %s \n", filename);
fclose(fp2);
return;
}
}
else if (!(st.st_mode & S_IFDIR)) {
fprintf(stderr, "mail box error\n");
fclose(fp2);
return;
}
stampfile(filename, &header);
fp = fopen(filename, "w");
if (fp == NULL) {
fprintf(stderr, "Cannot open file %s\n", filename);
fclose(fp2);
return;
}
t = time(NULL);
fprintf(fp, "作者: 小天使系統\n"
"標題: 給小天使的一封信\n"
"時間: %s\n",
ctime4(&t));
while ((count = fread(filename, 1, sizeof(filename), fp2))) {
fwrite(filename, 1, count, fp);
}
fclose(fp);
fclose(fp2);
strcpy(header.title, "給小天使的一封信");
strcpy(header.owner, "小天使系統");
sprintf(filename, BBSHOME "/home/%c/%s/.DIR", userid[0], userid);
append_record(filename, &header, sizeof(header));
mailalertuser(userid);
printf("%s\n", userid);
}
void del_file(char *userid)
{
char buf[200], buf1[200];
struct dirent *de;
DIR *dirp;
char *ptr;
sprintf(buf, BBSHOME "/home/%c/%s", userid[0], userid);
if (chdir(buf) == -1)
return;
if (!(dirp = opendir(buf)))
return;
while ((de = readdir(dirp)))
{
ptr = de->d_name;
if (ptr[0] > ' ' && ptr[0] != '.')
{
if (strstr(ptr, "writelog"))
#ifdef HOLDWRITELOG
{
fileheader_t mymail;
stampfile(buf, &mymail);
mymail.filemode = FILE_READ;
strcpy(mymail.owner, "[備.忘.錄]");
strcpy(mymail.title, "熱線記錄");
sprintf(buf1, BBSHOME "/home/%c/%s/writelog",
userid[0], userid);
rename(buf1, buf);
sprintf(buf1, BBSHOME "/home/%c/%s/.DIR", userid[0], userid);
append_record(buf1, &mymail, sizeof(mymail));
}
#else
unlink(ptr);
#endif
else if (strstr(ptr, "chat_"))
unlink(ptr);
else if (strstr(ptr, "ve_"))
unlink(ptr);
else if (strstr(ptr, "SR."))
unlink(ptr);
else if (strstr(ptr, ".old"))
unlink(ptr);
else if (strstr(ptr, "talk_"))
unlink(ptr);
}
}
void informBM(char *userid, boardheader_t *bptr, int nEXP)
{
int uid, i;
char filename[256], buf[64];
fileheader_t mymail;
FILE *fp;
if( !(uid = searchuser(userid, userid)) )
return;
sprintf(filename, BBSHOME "/home/%c/%s", userid[0], userid);
stampfile(filename, &mymail);
if( (fp = fopen(filename, "w")) == NULL )
return;
printf("brdname: %s, BM: %s\n", bptr->brdname, userid);
fprintf(fp,
"作者: 系統通知.\n"
"標題: 警告: 貴板板友即將過期/已經過期\n"
"時間: %s\n"
" %s 的板主您好: \n"
" 下列貴板板友即將過期或已經過期:\n"
"------------------------------------------------------------\n",
CTIMEx(buf, now), bptr->brdname);
for( i = 0 ; i < nEXP ; ++i )
if( explist[i].expire == -1 )
fprintf(fp, "%-15s 已經過期\n", explist[i].userid);
else
fprintf(fp, "%-15s 即將在 %s 過期\n",
explist[i].userid, CTIMEx(buf, explist[i].expire));
fprintf(fp,
"------------------------------------------------------------\n"
"說明:\n"
" 為了節省系統資源, 系統將自動清除掉超過四個月未上站\n"
"的使用者. 此時若有某位您不認識的使用者恰好註冊了該帳號,\n"
"將會視為貴板板友而放行進入.\n"
" 建議您暫時將這些使用者自貴板的板友名單中移除.\n"
"\n"
" 這封信件是由程式自動發出, 請不要直接回覆這封信. 若\n"
"您有相關問題請麻煩至看板 SYSOP, 或是直接與看板總管聯繫. :)\n"
"\n"
BBSNAME "站長群敬上"
);
fclose(fp);
strcpy(mymail.title, "警告: 貴板板友即將過期/已經過期");
strcpy(mymail.owner, "系統通知.");
sprintf(filename, BBSHOME "/home/%c/%s/.DIR", userid[0], userid);
mailalertuid(uid);
append_record(filename, &mymail, sizeof(mymail));
}
int transman(char *path)
{
char name[128];
char buf[512], filename[512], *direct="";
int n=0;
fileheader_t fh;
FILE *fp;
chdir(path);
fp = fopen(".Names", "r");
if(fp)
for(n=0; fgets(buf,512,fp)>0; n++)
{
strtok(buf,"\r\n");
if(buf[0]=='#') continue;
if(buf[0]=='N')
strcpy(name, buf+5);
else
if(buf[0]=='P')
{
direct = buf+7;
strcpy(filename, ".");
stampfile(filename, &fh);
unlink(filename);
if(dashd(direct))
{
sprintf(fh.title, "¡» %s", name);
transman(direct);
}
else
sprintf(fh.title, "¡º %s", name);
rename(direct, filename);
append_record(".DIR", &fh, sizeof(fh));
}
}
chdir("..");
return n;
}
int
Goodbye()
{
extern void movie();
char genbuf[200];
/*
woju
*/
char ans[4];
setuserfile(genbuf, fn_writelog);
if (more(genbuf, NA) != -1) {
/* MH */
/* Àˬd¤ô²y°O¿ý®e¶q, ÁקK¦³¤H¡u¤Ù¿n¡v¤j¶q¤ô²y */
struct stat st;
int writelog_limit;
if (HAS_PERM(PERM_BM))
writelog_limit = MH_WRITELOGLIMIT_BM;
else if (HAS_PERM(PERM_LOGINOK))
writelog_limit = MH_WRITELOGLIMIT_LOGINOK;
else
writelog_limit = MH_WRITELOGLIMIT_BASIC;
do
{
char buf[80];
setuserfile(buf, fn_writelog);
stat(buf, &st);
if(!HAVE_PERM(PERM_SYSOP) && !HAVE_PERM(PERM_MAILLIMIT) && st.st_size / 1024 > writelog_limit)
{
my_outmsg_row("[1;41;37m±zªº¤ô²y°O¿ý¤w¶W¹L©w®e¶q¡AµLªk¿ï¾Ü¡u«O¯d¡v[0m", b_lines - 2);
getdata(b_lines - 1, 0, "²M°£(C) ²¾¦Ü³Æ§Ñ¿ý(M) (C/M)?[M]",
ans, 3, LCECHO, 0);
}
else
{
getdata(b_lines - 1, 0, "²M°£(C) ²¾¦Ü³Æ§Ñ¿ý(M) «O¯d(R) (C/M/R)?[R]",
ans, 3, LCECHO, 0);
}
if (*ans == 'm') {
fileheader mymail;
char title[128], buf[80];
sethomepath(buf, cuser.userid);
stampfile(buf, &mymail);
mymail.savemode = 'H'; /* hold-mail flag */
mymail.filemode = FILE_READ;
strcpy(mymail.owner, "[³Æ.§Ñ.¿ý]");
strcpy(mymail.title, "¼ö½u[37;41m°O¿ý[m");
if(mh_memoforward(cuser.userid, genbuf, &mymail, sizeof(mymail)))
{
sethomedir(title, cuser.userid);
append_record(title, &mymail, sizeof(mymail));
/* MH: ³Æ§Ñ¿ý¥[¤W§@ªÌ¼ÐÃDµ¥¸ê°T...¤£µM¦b'x'Âà±H©Î¬Obuildirªº®ÉÔ
·|Äê±¼ */
#if 1
{
FILE *src, *dst;
char buf2[200];
time_t now;
if((src = fopen(genbuf, "r")) == NULL)
{
sprintf(buf2, "errno: %d, genbuf:%s", errno, genbuf);
log_usies("MH ", buf2);
}
if((dst = fopen(buf, "w")) == NULL)
{
sprintf(buf2, "errno: %d, buf:%s", errno, buf);
log_usies("MH ", buf2);
fclose(src);
}
now = time(NULL);
sprintf(buf2, "§@ªÌ: %s\n¼ÐÃD: %s\n®É¶¡: %s\n", mymail.owner, mymail.title, ctime(&now));
fputs(buf2, dst);
while(fgets(buf2, 199, src) != NULL)
fputs(buf2, dst);
fclose(src);
fclose(dst);
unlink(genbuf);
}
#else
Rename(genbuf, buf);
#endif
}
}
else if (*ans == 'c') {
char buf[80];
setuserfile(buf, fn_writelog);
unlink(buf);
}
} while(!HAVE_PERM(PERM_SYSOP) && !HAVE_PERM(PERM_MAILLIMIT) && st.st_size / 1024 > writelog_limit && *ans != 'm' && *ans != 'c');
clear();
move(0, 0);
prints("[1;44;33m °ª¶¯¤¤¾Ç-¬õ¼Ó¿v¹Ú [m");
movie(0);
}
/* */
getdata(b_lines - 1, 0, "±z½T©wnÂ÷¶}¡i " BOARDNAME " ¡j¶Ü(Y/N)¡H[N] ",
genbuf, 3, LCECHO, 0);
if (*genbuf != 'y')
return 0;
movie(999);
if (cuser.userlevel)
{
getdata(b_lines - 1, 0, "(G)ÀH·¦Ó³u (M)¦«¹Ú¯¸ªø (N)¦X§@ªÀªº¨¥½×¼s³õ¡H[G] ",
genbuf, 3, LCECHO, 0);
if (genbuf[0] == 'm')
mail_sysop();
else if (genbuf[0] == 'n')
note();
}
save_userrc();
#if 0
save_mailmsg();
#endif
clear();
prints("[1;36m¿Ë·Rªº [33m%s(%s)[36m¡A§O§Ñ¤F¦A«×¥úÁ{[45;33m"
" %s [40;36m¡I\n¥H¤U¬O±z¦b¯¸¤ºªºµù¥U¸ê®Æ:[0m\n",
cuser.userid, cuser.username, BoardName);
user_display(&cuser, 0);
if (currmode)
u_exit("EXIT ");
pressanykey();
sleep(1);
reset_tty();
exit(0);
}
int x_love() {
char buf1[200], save_title[TTLEN + 1];
char receiver[61], path[STRLEN] = "home/";
int x, y = 0, tline = 0, poem = 0;
FILE *fp, *fpo;
time_t timenow;
struct tm *gtime;
fileheader_t mhdr;
setutmpmode(LOVE);
time(&timenow);
gtime = localtime(&timenow);
sprintf(buf1,"%c/%s/love%d%d",
cuser.userid[0], cuser.userid,gtime->tm_sec,gtime->tm_min);
strcat(path,buf1);
move(1,0);
clrtobot();
outs("\n歡迎使用情書產生器 v0.00 版 \n");
outs("有何難以啟齒的話,交由系統幫你說吧.\n爸爸說 : 濫情不犯法.\n");
if(!getdata(7, 0, "收信人：", receiver, 60, DOECHO)) return 0;
if(receiver[0] && !(searchuser(receiver) &&
getdata(8, 0, "主 題：", save_title,
TTLEN, DOECHO))) {
move(10, 0);
outs("收信人或主題不正確, 情書無法傳遞. ");
pressanykey();
return 0;
}
fpo = fopen(path, "w");
fprintf(fpo, "\n");
if((fp = fopen(DATA, "r"))) {
while(fgets(buf1,100, fp)) {
switch(buf1[0]) {
case '#':
break;
case '@':
if(!strncmp(buf1, "@begin", 6) || !strncmp(buf1, "@end", 4))
tline=3;
else if(!strncmp(buf1,"@poem",5)) {
poem = 1;
tline = 1;
fprintf(fpo, "\n\n");
} else
tline=2;
break;
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
sscanf(buf1,"%d",&x);
y = (rand() % (x - 1)) * tline;
break;
default:
if(!poem) {
if(y > 0)
y = y - 1;
else {
if(tline > 0) {
fprintf(fpo, "%s", buf1);
tline--;
}
}
} else {
if(buf1[0] == '$')
y--;
else if(y == 0)
fprintf(fpo,"%s",buf1);
}
}
}
fclose(fp);
fclose(fpo);
if(vedit(path, YEA, NULL) == -1) {
unlink(path);
clear();
outs("\n\n 放棄寄情書\n");
pressanykey();
return -2;
}
sethomepath(buf1, receiver);
stampfile(buf1, &mhdr);
Rename(path, buf1);
strncpy(mhdr.title, save_title, TTLEN);
strcpy(mhdr.owner, cuser.userid);
mhdr.savemode = '\0';
sethomedir(path, receiver );
if(append_record(path, &mhdr, sizeof(mhdr)) == -1)
return -1;
hold_mail(buf1, receiver);
return 1;
}
return 0;
}
void
a_pasteitem(menu_t * pm, int mode)
{
char newpath[PATHLEN];
char buf[PATHLEN];
char ans[2], skipAll = 0, multiple = 0;
int i, copied = 0;
fileheader_t item;
CopyQueue *cq;
move(b_lines - 1, 0);
if(copyqueue_querysize() <= 0)
{
vmsg("請先執行複製(copy)命令後再貼上(paste)");
return;
}
if(mode && copyqueue_querysize() > 1)
{
multiple = 1;
move(b_lines-2, 0); clrtobot();
outs("c: 對各項目個別確認是否要貼上, z: 全部不貼，同時重設並取消全部標記\n");
snprintf(buf, sizeof(buf),
"確定要貼上全部共 %d 個項目嗎 (c/z/y/N)？ ",
copyqueue_querysize());
getdata(b_lines - 1, 0, buf, ans, sizeof(ans), LCECHO);
if(ans[0] == 'y')
skipAll = 1;
else if(ans[0] == 'z')
{
copyqueue_reset();
vmsg("已重設複製記錄。");
return;
}
else if (ans[0] != 'c')
return;
clear();
}
while (copyqueue_querysize() > 0)
{
cq = copyqueue_gethead();
if(!cq->copyfile[0])
continue;
if(mode && multiple)
{
scroll();
move(b_lines-2, 0); clrtobot();
prints("%d. %s\n", ++copied,cq->copytitle);
}
if (dashd(cq->copyfile)) {
for (i = 0; cq->copyfile[i] && cq->copyfile[i] == pm->path[i]; i++);
if (!cq->copyfile[i]) {
vmsg("將目錄拷進自己的子目錄中，會造成無窮迴圈！");
continue;
}
}
if (mode && !skipAll) {
snprintf(buf, sizeof(buf),
"確定要拷貝[%s]嗎(Y/N)？[N] ", cq->copytitle);
getdata(b_lines - 1, 0, buf, ans, sizeof(ans), LCECHO);
} else
ans[0] = 'y';
if (ans[0] == 'y') {
strlcpy(newpath, pm->path, sizeof(newpath));
if (*cq->copyowner) {
char *fname = strrchr(cq->copyfile, '/');
if (fname)
strcat(newpath, fname);
else
return;
if (access(pm->path, X_OK | R_OK | W_OK))
Mkdir(pm->path);
memset(&item, 0, sizeof(fileheader_t));
strlcpy(item.filename, fname + 1, sizeof(item.filename));
memcpy(cq->copytitle, "◎", 2);
Copy(cq->copyfile, newpath);
} else if (dashf(cq->copyfile)) {
stampfile(newpath, &item);
memcpy(cq->copytitle, "◇", 2);
Copy(cq->copyfile, newpath);
} else if (dashd(cq->copyfile) &&
stampadir(newpath, &item, 0) != -1) {
memcpy(cq->copytitle, "◆", 2);
copy_file(cq->copyfile, newpath);
} else {
copyqueue_reset();
vmsg("無法拷貝！");
return;
}
strlcpy(item.owner, *cq->copyowner ? cq->copyowner : cuser.userid,
sizeof(item.owner));
strlcpy(item.title, cq->copytitle, sizeof(item.title));
a_additem(pm, &item);
cq->copyfile[0] = '\0';
}
}
}
static void
a_newitem(menu_t * pm, int mode)
{
char *mesg[3] = {
"[新增文章] 請輸入標題：", /* ADDITEM */
"[新增目錄] 請輸入標題：", /* ADDGROUP */
};
char fpath[PATHLEN];
fileheader_t item;
strlcpy(fpath, pm->path, sizeof(fpath));
if (strlen(pm->path) + FNLEN*2 >= PATHLEN)
return;
switch (mode) {
case ADDITEM:
stampfile(fpath, &item);
strlcpy(item.title, "◇ ", sizeof(item.title)); /* A1BA */
break;
case ADDGROUP:
if (stampadir(fpath, &item, 0) == -1)
{
vmsg("抱歉，無法在本層建立新目錄。");
return;
}
strlcpy(item.title, "◆ ", sizeof(item.title)); /* A1BB */
break;
}
if (!getdata(b_lines - 1, 1, mesg[mode], &item.title[3], 55, DOECHO)) {
if (mode == ADDGROUP)
rmdir(fpath);
else
unlink(fpath);
return;
}
switch (mode) {
case ADDITEM:
{
int edflags = 0;
# ifdef BN_BBSMOVIE
if (pm && pm->bid &&
strcmp(getbcache(pm->bid)->brdname,
BN_BBSMOVIE) == 0)
{
edflags |= EDITFLAG_UPLOAD;
edflags |= EDITFLAG_ALLOWLARGE;
}
# endif // BN_BBSMOVIE
if (vedit2(fpath, 0, NULL, edflags) == -1) {
unlink(fpath);
pressanykey();
return;
}
}
break;
case ADDGROUP:
// do nothing
break;
}
strlcpy(item.owner, cuser.userid, sizeof(item.owner));
a_additem(pm, &item);
}
int
a_menu_rec(const char *maintitle, const char *path,
int lastlevel, int lastbid,
char *trans_buffer,
a_menu_session_t *sess,
const int *preselect,
// we don't change root's value (but may change root pointer)
// we may change parent's value (but never change parent pointer)
const menu_t *root, menu_t* const parent)
{
menu_t me = {0};
char fname[PATHLEN];
int ch, returnvalue = FULLUPDATE;
assert(sess);
// prevent deep resursive directories
if (strlen(path) + FNLEN >= PATHLEN)
{
// it is not save to enter such directory.
return returnvalue;
}
if(trans_buffer)
trans_buffer[0] = '\0';
if (parent)
{
parent->next = &me;
} else {
assert(root == NULL);
root = &me;
}
me.header_size = p_lines;
me.header = (fileheader_t *) calloc(me.header_size, FHSZ);
me.path = path;
strlcpy(me.mtitle, maintitle, sizeof(me.mtitle));
setadir(fname, me.path);
me.num = get_num_records(fname, FHSZ);
me.bid = lastbid;
/* 精華區-tree 中部份結構屬於 cuser ==> BM */
if (!(me.level = lastlevel)) {
char *ptr;
// warning: this is only valid for me.level.
// is_uBM should not do anything except returning test result:
// for ex, setting user BM permission automatically.
// such extra behavior will result in any sub-op to have PERM_BM
// ability, which leads to entering BM board without authority.
// Thanks to mtdas@ptt for reporting this exploit.
if (HasBasicUserPerm(PERM_LOGINOK) &&
!HasUserPerm(PERM_NOCITIZEN) &&
(ptr = strrchr(me.mtitle, '[')))
me.level = is_uBM(ptr + 1, cuser.userid);
}
me.page = A_INVALID_PAGE;
if (preselect && !*preselect)
preselect = NULL;
me.now = preselect ? (*preselect -1) : 0;
for (;;) {
if (me.now >= me.num)
me.now = me.num - 1;
if (me.now < 0)
me.now = 0;
if (me.now < me.page || me.now >= me.page + me.header_size) {
me.page = me.now - ((me.page == 10000 && me.now > p_lines / 2) ?
(p_lines / 2) : (me.now % p_lines));
if (!a_showmenu(&me))
{
// some directories are invalid, restart!
sess->bReturnToRoot = 1;
break;
}
}
if (preselect && *preselect && preselect[1])
{
// if this is not the last preselect entry, enter it
ch = KEY_ENTER;
} else {
ch = cursor_key(2 + me.now - me.page, 0);
}
if (ch == 'q' || ch == 'Q' || ch == KEY_LEFT)
break;
// TODO maybe we should let 1-9=simple search and z=tree-search
// TODO or let 'z' prefix means 'back to root'
if ((ch >= '1' && ch <= '9') || (ch == 'z' || ch == 'Z')) {
int n = a_multi_search_num(ch, sess);
me.page = A_INVALID_PAGE;
if (n > 0)
{
// simple (single) selection
me.now = n-1;
me.page = 10000; // I don't know what's the magic value 10000...
}
else if (n == 0 && sess->z_indexes[0] == 0)
{
// empty/invalid input
}
else
{
// n == 0 with multiple selects
preselect = sess->z_indexes;
if (*preselect < 0)
{
// return to root first?
if (parent)
{
sess->bReturnToRoot = 1;
return DONOTHING;
}
// already in root
preselect ++;
}
// handle first preselect (maybe zero due to previous 'already in root')
if (*preselect > 0)
me.now = *preselect - 1;
else
preselect = NULL;
}
continue;
}
switch (ch) {
case KEY_UP:
case 'k':
if (--me.now < 0)
me.now = me.num - 1;
break;
case KEY_DOWN:
case 'j':
if (++me.now >= me.num)
me.now = 0;
break;
case KEY_PGUP:
case Ctrl('B'):
if (me.now >= p_lines)
me.now -= p_lines;
else if (me.now > 0)
me.now = 0;
else
me.now = me.num - 1;
break;
case ' ':
case KEY_PGDN:
case Ctrl('F'):
if (me.now < me.num - p_lines)
me.now += p_lines;
else if (me.now < me.num - 1)
me.now = me.num - 1;
else
me.now = 0;
break;
case KEY_HOME:
case '0':
me.now = 0;
break;
case KEY_END:
case '$':
me.now = me.num - 1;
break;
case '?':
case '/':
if(me.num) {
me.now = a_searchtitle(&me, ch == '?');
me.page = A_INVALID_PAGE;
}
break;
case 'h':
a_showhelp(me.level);
me.page = A_INVALID_PAGE;
break;
case Ctrl('W'):
a_where_am_i(root, me.now, me.header[me.now - me.page].title);
vmsg(NULL);
me.page = A_INVALID_PAGE;
break;
case 'e':
case 'E':
snprintf(fname, sizeof(fname),
"%s/%s", path, me.header[me.now - me.page].filename);
if (dashf(fname) && me.level >= MANAGER) {
int edflags = 0;
*quote_file = 0;
# ifdef BN_BBSMOVIE
if (me.bid && strcmp(getbcache(me.bid)->brdname,
BN_BBSMOVIE) == 0)
{
edflags |= EDITFLAG_UPLOAD;
edflags |= EDITFLAG_ALLOWLARGE;
}
# endif // BN_BBSMOVIE
if (vedit2(fname, NA, NULL, edflags) != -1) {
char fpath[PATHLEN];
fileheader_t fhdr;
strlcpy(fpath, path, sizeof(fpath));
stampfile(fpath, &fhdr);
unlink(fpath);
strlcpy(fhdr.filename,
me.header[me.now - me.page].filename,
sizeof(fhdr.filename));
strlcpy(me.header[me.now - me.page].owner,
cuser.userid,
sizeof(me.header[me.now - me.page].owner));
setadir(fpath, path);
substitute_record(fpath, me.header + me.now - me.page,
sizeof(fhdr), me.now + 1);
}
me.page = A_INVALID_PAGE;
}
break;
case 't':
case 'c':
if (me.now < me.num) {
if (!isvisible_man(&me))
break;
snprintf(fname, sizeof(fname), "%s/%s", path,
me.header[me.now - me.page].filename);
/* XXX: dirty fix
應該要改成如果發現該目錄裡面有隱形目錄的話才拒絕.
不過這樣的話須要整個搜一遍, 而且目前判斷該資料是目錄
還是檔案竟然是用 fstat(2) 而不是直接存在 .DIR 內 |||b
須等該資料寫入 .DIR 內再 implement才有效率.
*/
if( !me.level && !HasUserPerm(PERM_SYSOP) &&
(me.bid==0 || !is_BM_cache(me.bid)) && dashd(fname) )
vmsg("只有板主才可以拷貝目錄唷!");
else
a_copyitem(fname, me.header[me.now - me.page].title, 0, 1);
me.page = A_INVALID_PAGE;
/* move down */
if (++me.now >= me.num)
me.now = 0;
break;
}
case KEY_ENTER:
case KEY_RIGHT:
case 'r':
if (me.now >= me.num || me.now < 0)
{
preselect = NULL;
continue;
}
else
{
fileheader_t *fhdr = &me.header[me.now - me.page];
const int *newselect = preselect ? preselect+1 : NULL;
preselect = NULL;
if (!isvisible_man(&me))
break;
#ifdef DEBUG
vmsgf("%s/%s", &path[11], fhdr->filename);;
#endif
snprintf(fname, sizeof(fname), "%s/%s", path, fhdr->filename);
if (dashf(fname)) {
int more_result;
while ((more_result = more(fname, YEA))) {
/* Ptt 範本精靈 plugin */
if (trans_buffer &&
(currstat == EDITEXP || currstat == OSONG)) {
char ans[4];
move(22, 0);
clrtoeol();
getdata(22, 1,
currstat == EDITEXP ?
"要把範例加入到文章內嗎?[y/N]" :
"確定要選這篇嗎?[y/N]",
ans, sizeof(ans), LCECHO);
if (ans[0] == 'y') {
strlcpy(trans_buffer, fname, PATHLEN);
sess->bReturnToRoot = 1;
if (currstat == OSONG) {
log_filef(FN_USSONG, LOG_CREAT, "%s\n", fhdr->title);
}
free(me.header);
return FULLUPDATE;
}
}
if (more_result == READ_PREV) {
if (--me.now < 0) {
me.now = 0;
break;
}
} else if (more_result == READ_NEXT) {
if (++me.now >= me.num) {
me.now = me.num - 1;
break;
}
/* we only load me.header_size pages */
if (me.now - me.page >= me.header_size)
break;
} else
break;
if (!isvisible_man(&me))
break;
snprintf(fname, sizeof(fname), "%s/%s", path,
me.header[me.now - me.page].filename);
if (!dashf(fname))
break;
}
} else if (dashd(fname)) {
returnvalue = a_menu_rec(me.header[me.now - me.page].title, fname,
me.level, me.bid, trans_buffer,
sess, newselect, root, &me);
if (returnvalue == DONOTHING)
{
// DONOTHING will only be caused by previous a_multi_search_num + preselect.
assert(sess->bReturnToRoot);
if (!parent)
{
// we've reached root menu!
assert(sess->z_indexes[0] == -1);
sess->bReturnToRoot = 0;
returnvalue = FULLUPDATE;
preselect = sess->z_indexes+1; // skip first 'return to root'
if (*preselect > 0)
me.now = *preselect-1;
}
} else {
returnvalue = FULLUPDATE;
}
me.next = NULL;
/* Ptt 強力跳出recursive */
if (sess->bReturnToRoot) {
free(me.header);
return returnvalue;
}
}
me.page = A_INVALID_PAGE;
}
break;
case 'F':
case 'U':
if (me.now < me.num) {
fileheader_t *fhdr = &me.header[me.now - me.page];
if (!isvisible_man(&me))
break;
snprintf(fname, sizeof(fname),
"%s/%s", path, fhdr->filename);
if (HasBasicUserPerm(PERM_LOGINOK) && dashf(fname)) {
a_forward(path, fhdr, ch /* == 'U' */ );
/* By CharlieL */
} else
vmsg("無法轉寄此項目");
me.page = A_INVALID_PAGE;
}
break;
}
if (me.level >= MANAGER) {
switch (ch) {
case 'n':
a_newitem(&me, ADDITEM);
me.page = A_INVALID_PAGE;
break;
case 'g':
a_newitem(&me, ADDGROUP);
me.page = A_INVALID_PAGE;
break;
case 'p':
a_pasteitem(&me, 1);
me.page = A_INVALID_PAGE;
break;
case 'f':
a_editsign(&me);
me.page = A_INVALID_PAGE;
break;
case Ctrl('P'):
a_pastetagpost(&me, -1);
returnvalue = DIRCHANGED;
me.page = A_INVALID_PAGE;
break;
case Ctrl('A'):
a_pastetagpost(&me, 1);
returnvalue = DIRCHANGED;
me.page = A_INVALID_PAGE;
break;
case 'a':
a_appenditem(&me, 1);
me.page = A_INVALID_PAGE;
break;
}
if (me.num)
switch (ch) {
case 'm':
a_moveitem(&me);
me.page = A_INVALID_PAGE;
break;
case 'D':
/* Ptt me.page = -1; */
a_delrange(&me, sess->backup_dir);
me.page = A_INVALID_PAGE;
break;
case 'd':
a_delete(&me, sess->backup_dir);
me.page = A_INVALID_PAGE;
break;
case 'H':
a_hideitem(&me);
me.page = A_INVALID_PAGE;
break;
case 'T':
a_newtitle(&me);
me.page = A_INVALID_PAGE;
break;
#ifdef CHESSCOUNTRY
case 'L':
a_setchesslist(&me);
break;
#endif
}
}
if (me.level >= SYSOP) {
switch (ch) {
case 'N':
a_showname(&me);
me.page = A_INVALID_PAGE;
break;
}
}
}
free(me.header);
return returnvalue;
}
int main(int argc, char *argv[])
{
int bmid, i, j=0;
FILE *inf, *firef;
time4_t now=time(NULL);
attach_SHM();
resolve_boards();
if(passwd_init())
exit(1);
memcpy(allbrd,bcache,numboards*sizeof(boardheader_t));
/* write out the target file */
inf = fopen(OUTFILE, "w+");
if (inf == NULL) {
printf("open file error : %s\n", OUTFILE);
exit(1);
}
firef = fopen(FIREFILE, "w+");
if (firef == NULL) {
printf("open file error : %s\n", FIREFILE);
exit(1);
}
fprintf(inf, "警告: 板主若超過(不包含) %d天未上站,將予於免職\n",
LAZY_BM_LIMIT_DAYS);
fprintf(inf,
"看板名稱 "
" 板主 幾天沒來啦\n"
"---------------------------------------------------"
"--------------------------\n");
fprintf(firef, "免職板主\n");
fprintf(firef,
"看板名稱 "
" 板主 幾天沒來啦\n"
"---------------------------------------------------"
"--------------------------\n");
j = 0;
for (i = 0; i < numboards; i++) {
char *p, bmbuf[IDLEN * 3 + 3];
int index = 0, flag = 0, k, n;
userec_t xuser;
p = allbrd[i].BM;
if (*p == '[') p++;
if (allbrd[i].brdname[0] == '\0' ||
!isalpha(allbrd[i].brdname[0])
) continue;
p = strtok(p,"/ ]");
for(index=0; p && index<5; index++) {
int diff;
// XXX what if bmid is invalid?
if(!p[0] || (bmid = passwd_load_user(p, &xuser)) < 1) {
index--;
p=strtok(NULL,"/ ]");
continue;
}
strlcpy(bms[index].bmname, p, sizeof(bms[index].bmname));
bms[index].flag = 0;
diff = now - xuser.lastlogin;
if (diff < 0)
diff = 0;
if (diff >= 45 * 86400
&& !(xuser.userlevel & PERM_SYSOPHIDE)
&& !(xuser.userlevel & PERM_SYSOP)) {
strlcpy(lostbms[j].bmname, p, sizeof(bms[index].bmname));
lostbms[j].title = allbrd[i].brdname;
lostbms[j].ctitle = allbrd[i].title;
lostbms[j].lostdays = diff / 86400;
//超過 LAZY_BM_LIMIT_DAYS 天 免職
if (lostbms[j].lostdays > LAZY_BM_LIMIT_DAYS) {
xuser.userlevel &= ~PERM_BM;
bms[index].flag = 1;
flag = 1;
// NOTE: 好像不改也無所謂，目前拔 BM 是自動的。
passwd_update(bmid, &xuser);
}
j++;
}
p = strtok(NULL,"/ ]");
}
if (flag == 1) {
boardheader_t *bp = getbcache(i+1);
// 確認我們沒搞錯 cache. 如果 cache 炸了就別用了
if (strcmp(bp->brdname, allbrd[i].brdname) != 0) {
printf("ERROR: unmatched cache!!! (%s - %s)\n",
bp->brdname, allbrd[i].brdname);
bp = NULL;
exit(1);
// sync to latest
memcpy(&allbrd[i], bp, sizeof(boardheader_t));
}
bmbuf[0] = '\0';
for (k = 0, n = 0; k < index; k++) {
if (!bms[k].flag) {
if (n++ != 0) strcat(bmbuf, "/");
strcat(bmbuf, bms[k].bmname);
}
}
strcpy(allbrd[i].BM, bmbuf);
printf("board %s: %s -> %s\n",
allbrd[i].brdname, bp->BM, allbrd[i].BM);
strcpy(bp->BM, allbrd[i].BM);
if (substitute_record(BBSHOME"/"FN_BOARD, &allbrd[i],
sizeof(boardheader_t), i+1) == -1) {
printf("Update Board Failed: %s\n", allbrd[i].brdname);
}
reset_board(i+1);
}
}
qsort(lostbms, j, sizeof(lostbm), bmlostdays_cmp);
//write to the etc/toplazyBM
for (i = 0; i < j; i++) {
if (lostbms[i].lostdays > LAZY_BM_LIMIT_DAYS) {
fprintf(firef, "%-*.*s%-*.*s%-*.*s%3d天沒上站\n",
IDLEN, IDLEN, lostbms[i].title, BTLEN-10,
BTLEN-10, lostbms[i].ctitle, IDLEN,IDLEN,
lostbms[i].bmname,lostbms[i].lostdays);
} else {
fprintf(inf, "%-*.*s%-*.*s%-*.*s%3d天沒上站\n",
IDLEN, IDLEN, lostbms[i].title, BTLEN-10,
BTLEN-10, lostbms[i].ctitle, IDLEN,IDLEN,
lostbms[i].bmname,lostbms[i].lostdays);
}
}
fclose(inf);
fclose(firef);
//printf("Total %d boards.\n", count);
//mail to the users
for (i=0; i<j; i++) {
fileheader_t mymail;
char genbuf[200];
int lostdays;
lostdays = lostbms[i].lostdays;
if (lostdays != LAZY_BM_LIMIT_DAYS/2 &&
lostdays != LAZY_BM_LIMIT_DAYS*2/3 &&
lostdays != LAZY_BM_LIMIT_DAYS*5/6 &&
lostdays <= LAZY_BM_LIMIT_DAYS)
continue;
sprintf(genbuf, BBSHOME "/home/%c/%s",
lostbms[i].bmname[0], lostbms[i].bmname);
stampfile(genbuf, &mymail);
strcpy(mymail.owner, "[" BBSMNAME "警察局]");
if (lostdays <= LAZY_BM_LIMIT_DAYS)
sprintf(mymail.title,
ANSI_COLOR(32) "版主通知" ANSI_RESET " %s版版主%s",
lostbms[i].title, lostbms[i].bmname);
else
sprintf(mymail.title,
ANSI_COLOR(32) "版主自動免職通知" ANSI_RESET " %s 版主 %s",
lostbms[i].title, lostbms[i].bmname);
unlink(genbuf);
if (lostdays <= LAZY_BM_LIMIT_DAYS)
Link(OUTFILE, genbuf);
else
Link(FIREFILE, genbuf);
sprintf(genbuf, BBSHOME "/home/%c/%s/.DIR",
lostbms[i].bmname[0], lostbms[i].bmname);
append_record(genbuf, &mymail, sizeof(mymail));
}
return 0;
}
