/* $Id$ */
#include "bbs.h"
/* ------------------------------------- */
/* �S�O�W�� */
/* ------------------------------------- */
/* Ptt ��L�S�O�W�檺�ɦW */
char special_list[] = "list.0";
char special_des[] = "ldes.0";
/* �S�O�W�檺�W�� */
static const unsigned int friend_max[8] = {
MAX_FRIEND, /* FRIEND_OVERRIDE */
MAX_REJECT, /* FRIEND_REJECT */
MAX_LOGIN_INFO, /* FRIEND_ALOHA */
MAX_POST_INFO, /* FRIEND_POST */
MAX_NAMELIST, /* FRIEND_SPECIAL */
MAX_FRIEND, /* FRIEND_CANVOTE */
MAX_FRIEND, /* BOARD_WATER */
MAX_FRIEND, /* BOARD_VISABLE */
};
/* ���M�n���a�H�W�泣�O * 2 ���O�@���̦hload��shm�u�128 */
/* Ptt �U�دS�O�W�檺�ɭz */
static char * const friend_desc[8] = {
"�ͽ˴y�z�G",
"�c�δc���G",
"",
"",
"�y�z�@�U�G",
"�벼�̴y�z�G",
"�c�δc���G",
"�ݪO�n�ʹy�z"
};
/* Ptt �U�دS�O�W�檺����ԭz */
static char * const friend_list[8] = {
"�n�ͦW��",
"�a�H�W��",
"�W�u�q��",
"�s�峹�q��",
"�䥦�S�O�W��",
"�p�H�벼�W��",
"�ݪO�T�n�W��",
"�ݪO�n�ͦW��"
};
void
setfriendfile(char *fpath, int type)
{
if (type <= 4) /* user list Ptt */
setuserfile(fpath, friend_file[type]);
else /* board list */
setbfile(fpath, currboard, friend_file[type]);
}
inline static int
friend_count(const char *fname)
{
return file_count_line(fname);
}
void
friend_add(const char *uident, int type, const char* des)
{
char fpath[80];
setfriendfile(fpath, type);
if (friend_count(fpath) > friend_max[type])
return;
if ((uident[0] > ' ') && !belong(fpath, uident)) {
char buf[40] = "", buf2[256];
char t_uident[IDLEN + 1];
/* Thor: avoid uident run away when get data */
strlcpy(t_uident, uident, sizeof(t_uident));
if (type != FRIEND_ALOHA && type != FRIEND_POST){
if(!des)
getdata(2, 0, friend_desc[type], buf, sizeof(buf), DOECHO);
else
getdata_str(2, 0, friend_desc[type], buf, sizeof(buf), DOECHO, des);
}
sprintf(buf2, "%-13s%s\n", t_uident, buf);
file_append_line(fpath, buf2);
}
}
void
friend_special(void)
{
char genbuf[70], i, fname[70];
FILE *fp;
friend_file[FRIEND_SPECIAL] = special_list;
for (i = 0; i <= 9; i++) {
snprintf(genbuf, sizeof(genbuf), " (" ANSI_COLOR(36) "%d" ANSI_RESET ") .. ", i);
special_des[5] = i + '0';
setuserfile(fname, special_des);
if( (fp = fopen(fname, "r")) != NULL ){
fgets(genbuf + 15, 40, fp);
genbuf[47] = 0;
fclose(fp);
}
move(i + 12, 0);
clrtoeol();
outs(genbuf);
}
getdata(22, 0, "�п�ܲĴX���S�O�W�� (0~9)[0]?", genbuf, 3, LCECHO);
if (genbuf[0] >= '0' && genbuf[0] <= '9') {
special_list[5] = genbuf[0];
special_des[5] = genbuf[0];
} else {
special_list[5] = '0';
special_des[5] = '0';
}
}
static void
friend_append(int type, int count)
{
char fpath[80], i, j, buf[80], sfile[80];
FILE *fp, *fp1;
setfriendfile(fpath, type);
do {
move(2, 0);
clrtobot();
outs("�n�ޤJ���@�ӦW��?\n");
for (j = i = 0; i <= 4; i++)
if (i != type) {
++j;
prints(" (%d) %-s\n", j, friend_list[(int)i]);
}
if (HasUserPerm(PERM_SYSOP) || currmode & MODE_BOARD)
for (; i < 8; ++i)
if (i != type) {
++j;
prints(" (%d) %s �O�� %s\n", j, currboard,
friend_list[(int)i]);
}
outs(" (S) ��ܨ�L�ݪO���S�O�W��");
getdata(11, 0, "�� �� ����[Enter] ���:", buf, 3, LCECHO);
if (!buf[0])
return;
if (buf[0] == 's')
Select();
j = buf[0] - '1';
if (j >= type)
j++;
if (!(HasUserPerm(PERM_SYSOP) || currmode & MODE_BOARD) && j >= 5)
return;
} while (buf[0] < '1' || buf[0] > '9');
if (j == FRIEND_SPECIAL)
friend_special();
setfriendfile(sfile, j);
if ((fp = fopen(sfile, "r")) != NULL) {
while (fgets(buf, 80, fp) && (unsigned)count <= friend_max[type]) {
char the_id[IDLEN + 1];
sscanf(buf, "%" toSTR(IDLEN) "s", the_id);
if (!file_exist_record(fpath, the_id)) {
if ((fp1 = fopen(fpath, "a"))) {
flock(fileno(fp1), LOCK_EX);
fputs(buf, fp1);
flock(fileno(fp1), LOCK_UN);
fclose(fp1);
}
}
}
fclose(fp);
}
}
void
friend_delete(const char *uident, int type)
{
char fn[80];
setfriendfile(fn, type);
file_delete_line(fn, uident, 0);
}
static void
delete_user_friend(const char *uident, const char *thefriend, int type)
{
char fn[80];
#if 0
if (type == FRIEND_ALOHA) {
#endif
sethomefile(fn, uident, "aloha");
file_delete_line(fn, thefriend, 0);
#if 0
}
else {
}
#endif
}
void
friend_delete_all(const char *uident, int type)
{
char buf[80], line[80];
FILE *fp;
sethomefile(buf, uident, friend_file[type]);
if ((fp = fopen(buf, "r")) == NULL)
return;
while (fgets(line, sizeof(line), fp)) {
sscanf(line, "%s", buf);
delete_user_friend(buf, uident, type);
}
fclose(fp);
}
static void
friend_editdesc(const char *uident, int type)
{
FILE *fp=NULL, *nfp=NULL;
char fnnew[200], genbuf[STRLEN], fn[200];
setfriendfile(fn, type);
snprintf(fnnew, sizeof(fnnew), "%s-", fn);
if ((fp = fopen(fn, "r")) && (nfp = fopen(fnnew, "w"))) {
int length = strlen(uident);
while (fgets(genbuf, STRLEN, fp)) {
if ((genbuf[0] > ' ') && strncmp(genbuf, uident, length))
fputs(genbuf, nfp);
else if (!strncmp(genbuf, uident, length)) {
char buf[50] = "";
getdata(2, 0, "�ק�y�z�G", buf, 40, DOECHO);
fprintf(nfp, "%-13s%s\n", uident, buf);
}
}
Rename(fnnew, fn);
}
if(fp)
fclose(fp);
if(nfp)
fclose(nfp);
}
inline void friend_load_real(int tosort, int maxf,
short *destn, int *destar, const char *fn)
{
char genbuf[200];
FILE *fp;
short nFriends = 0;
int uid, *tarray;
char *p;
setuserfile(genbuf, fn);
if( (fp = fopen(genbuf, "r")) == NULL ){
destar[0] = 0;
if( destn )
*destn = 0;
}
else{
tarray = (int *)malloc(sizeof(int) * maxf);
--maxf; /* �]���̫�@�ӭn�� 0, �ҥH�����@�Ӧ^�� */
while( fgets(genbuf, STRLEN, fp) && nFriends < maxf )
if( (p = strtok(genbuf, str_space)) &&
(uid = searchuser(p, NULL)) )
tarray[nFriends++] = uid;
fclose(fp);
if( tosort )
qsort(tarray, nFriends, sizeof(int), qsort_intcompar);
if( destn )
*destn = nFriends;
tarray[nFriends] = 0;
memcpy(destar, tarray, sizeof(int) * (nFriends + 1));
free(tarray);
}
}
/* type == 0 : load all */
void friend_load(int type)
{
if (!type || type & FRIEND_OVERRIDE)
friend_load_real(1, MAX_FRIEND, &currutmp->nFriends,
currutmp->myfriend, fn_overrides);
if (!type || type & FRIEND_REJECT)
friend_load_real(0, MAX_REJECT, NULL, currutmp->reject, fn_reject);
if (currutmp->friendtotal)
logout_friend_online(currutmp);
login_friend_online();
}
static void
friend_water(const char *message, int type)
{ /* �s����y added by Ptt */
char fpath[80], line[80], userid[IDLEN + 1];
FILE *fp;
setfriendfile(fpath, type);
if ((fp = fopen(fpath, "r"))) {
while (fgets(line, 80, fp)) {
userinfo_t *uentp;
int tuid;
sscanf(line, "%" toSTR(IDLEN) "s", userid);
if ((tuid = searchuser(userid, NULL)) && tuid != usernum &&
(uentp = (userinfo_t *) search_ulist(tuid)) &&
isvisible_uid(tuid))
my_write(uentp->pid, message, uentp->userid, WATERBALL_PREEDIT, NULL);
}
fclose(fp);
}
}
void
friend_edit(int type)
{
char fpath[80], line[80], uident[IDLEN + 1];
int count, column, dirty;
FILE *fp;
char genbuf[200];
if (type == FRIEND_SPECIAL)
friend_special();
setfriendfile(fpath, type);
if (type == FRIEND_ALOHA || type == FRIEND_POST) {
if (dashf(fpath)) {
sprintf(genbuf,"%s.old",fpath);
Copy(fpath, genbuf);
}
}
dirty = 0;
while (1) {
stand_title(friend_list[type]);
/* TODO move (0, 40) just won't really work as it hints.
* The ANSI secapes will change x coordinate. */
move(0, 40);
prints("(�W��W��: %d �H)", friend_max[type]);
count = 0;
CreateNameList();
if ((fp = fopen(fpath, "r"))) {
move(3, 0);
column = 0;
while (fgets(genbuf, STRLEN, fp)) {
if (genbuf[0] <= ' ')
continue;
strtok(genbuf, str_space);
AddNameList(genbuf);
prints("%-13s", genbuf);
count++;
if (++column > 5) {
column = 0;
outc('\n');
}
}
fclose(fp);
}
getdata(1, 0, (count ?
"(A)�W�[(D)�R��(E)�ק�(P)�ޤJ(L)�ԲӦC�X"
"(K)�R����ӦW��(W)����y(Q)����?[Q] " :
"(A)�W�[ (P)�ޤJ��L�W�� (Q)����?[Q] "),
uident, 3, LCECHO);
if (uident[0] == 'a') {
move(1, 0);
usercomplete(msg_uid, uident);
if (uident[0] && searchuser(uident, uident) && !InNameList(uident)) {
friend_add(uident, type, NULL);
dirty = 1;
}
} else if (uident[0] == 'p') {
friend_append(type, count);
dirty = 1;
} else if (uident[0] == 'e' && count) {
move(1, 0);
namecomplete(msg_uid, uident);
if (uident[0] && InNameList(uident)) {
friend_editdesc(uident, type);
}
} else if (uident[0] == 'd' && count) {
move(1, 0);
namecomplete(msg_uid, uident);
if (uident[0] && InNameList(uident)) {
friend_delete(uident, type);
dirty = 1;
}
} else if (uident[0] == 'l' && count)
more(fpath, YEA);
else if (uident[0] == 'k' && count) {
getdata(2, 0, "�R������W��,�T�w�� (a/N)?", uident, 3,
LCECHO);
if (uident[0] == 'a')
unlink(fpath);
dirty = 1;
} else if (uident[0] == 'w' && count) {
char wall[60];
if (!getdata(0, 0, "�s����y:", wall, sizeof(wall), DOECHO))
continue;
if (getdata(0, 0, "�T�w��X�s����y? [Y]", line, 4, LCECHO) &&
*line == 'n')
continue;
friend_water(wall, type);
} else
break;
}
if (dirty) {
move(2, 0);
outs("��s��Ƥ�..�еy��.....");
refresh();
if (type == FRIEND_ALOHA || type == FRIEND_POST) {
snprintf(genbuf, sizeof(genbuf), "%s.old", fpath);
if ((fp = fopen(genbuf, "r"))) {
while (fgets(line, 80, fp)) {
sscanf(line, "%" toSTR(IDLEN) "s", uident);
sethomefile(genbuf, uident,
type == FRIEND_ALOHA ? "aloha" : "postnotify");
del_distinct(genbuf, cuser.userid, 0);
}
fclose(fp);
}
strlcpy(genbuf, fpath, sizeof(genbuf));
if ((fp = fopen(genbuf, "r"))) {
while (fgets(line, 80, fp)) {
sscanf(line, "%" toSTR(IDLEN) "s", uident);
sethomefile(genbuf, uident,
type == FRIEND_ALOHA ? "aloha" : "postnotify");
add_distinct(genbuf, cuser.userid);
}
fclose(fp);
}
} else if (type == FRIEND_SPECIAL) {
genbuf[0] = 0;
setuserfile(line, special_des);
if ((fp = fopen(line, "r"))) {
fgets(genbuf, 30, fp);
fclose(fp);
}
getdata_buf(2, 0, " �Ь����S�O�W����@��²�u�W��:", genbuf, 30,
DOECHO);
if ((fp = fopen(line, "w"))) {
fputs(genbuf, fp);
fclose(fp);
}
} else if (type == BOARD_WATER) {
boardheader_t *bp = NULL;
currbid = getbnum(currboard);
assert(0<=currbid-1 && currbid-1<MAX_BOARD);
bp = getbcache(currbid);
bp->perm_reload = now;
assert(0<=currbid-1 && currbid-1<MAX_BOARD);
substitute_record(fn_board, bp, sizeof(boardheader_t), currbid);
// log_usies("SetBoard", bp->brdname);
}
friend_load(0);
}
}
int
t_override(void)
{
friend_edit(FRIEND_OVERRIDE);
return 0;
}
int
t_reject(void)
{
friend_edit(FRIEND_REJECT);
return 0;
}