/*
chat.c	鱈千屋 ver 0.1b
Copyright (c) 1999- TaraChan
*/

/*#define DEBUG*/

#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#include<ctype.h>
#include<time.h>
#include "cgi.h"
#include "jc.h"
#include "stringxx.h"
#include "logfile.h"

#ifdef DEBUG
#define DEBUG_PRINT_D(index,val) printf("(%s):(%d)<br>\n",(index),(val))
#define DEBUG_PRINT_S(index,val) printf("(%s):(%s)<br>\n",(index),(val))
#else
#define DEBUG_PRINT_D(index,val) 
#define DEBUG_PRINT_S(index,val) 
#endif

#define HAIRETSU_SIZE(a) sizeof(a)/sizeof(a[0])

/*mbr_chk()用スイッチ*/
#define OUT_CHK 0 /*退室処理*/
#define IN_CHK 1 /*入室時処理*/

#define HASH_SIZE 32	/*コンフィグの変数の個数*/
#define BUFFER_SIZE 1024	/*文字バッファの大きさ（文字数）*/
#define LINE_SIZE 1024	/*１行の最大文字数*/
#define FILE_NAME_SIZE 64	/*ファイル名の最大文字数*/
#define DATE_SIZE 128	/*日付の最大文字数*/
#define ITOS_SIZE 16	/*数字の最高桁数(文字変換時)*/
#define RND_SU 10000	/*乱数の個数*/
#define PAR_SIZE 64	/*back_parstのサイズ*/
#define CHAT_MIN_LINE 10	/*logの最小行数*/
#define CHAT_MAX_LINE 50	/*logの最大行数*/
#define MIN_RETIME 10	/*最小リロード時間*/
#define MAX_RETIME 180	/*最大リロード時間*/
#define MAX_MEMBER 30	/*最大人数*/
#define ROOM_SIZE 62	/*部屋数*/
#define FALL_TIME 90	/*いないと判断するまでの時間*/
#define P_CHAR '|'	/*文字列の区切り文字として使用。*/

/*フォームから受け取る整数変数*/
#define F_RETIME "t"
#define F_ROOM "r"
#define F_LOGSU "l"

/*ユーザ変数展開用*/
#define SYS_HANDLE "<system>"	/*システムメッセージ用*/

#define U_ROOM "[room]"
#define U_HANDLE "[handle]"
#define U_ROOMNAME "[room_name]"	/*この三つ、重複*/

#define U_COMENT "[coment]"
#define U_DATE "[date]"

#define U_SEC "[sec]"
#define U_MIN "[min]"
#define U_HOUR "[hour]"
#define U_MDAY "[mday]"
#define U_MON "[mon]"
#define U_YEAR "[year]"
#define U_WDAY "[wday]"

/*モード*/
#define SET_FRAME 's'
#define OPERATE 'o'
#define LOGS 'l'
#define CHAT_EXIT 'e'

typedef struct{
	char **val;
	char *name;
}hensu_table;

/*置換用テーブル*/
typedef struct{
	char *name;	/*置換する文字列*/
	char *(*rep)(void *);	/*置換される文字を返す関数*/
	void *val;	/*処理関数に渡す変数*/
}rep_table;

/*==============================関数プロトタイプ============================*/
void page_index (void);
void page_setframe (void);
void page_operate (void);
void page_logs (void);
void page_exits (void);
void mbr_chk(int sw);	/*out or in*/
void u_open_print(char *in);
void print_log(void);
void print_member(void);
void config_init(void);
void form_init(void);
void room_init(void);
void noroom_init(void);
void set_hensu(char **hensu,char *key,hash hashs[],int hashs_index);
void set_ihensu(int *hensu,char *key,int min,int max,hash hashs[],int hash_index);
char *back_encode(char *in);
char *back_sysmsg(char *template,char *handle);
char *back_filename(char *file,int room);
char *back_date(time_t in_time);
char *back_parst(char *in,int n);
char *back_str(int i);
void end(char *msg);

/*==============================グローバル変数==============================*/
char con_file[]="chat.ini";
char room_file[]="room.ini";
char chat_logfile[]="chat\0.log";	/*\0に部屋名が入る*/
char mbr_logfile[]="member\0.log";	/*\0に部屋名が入る*/

int s_flag=0;	/*会話ログのが更新されたか(保存するか)*/

char *chat_log[CHAT_MAX_LINE+1];	/*会話のログ*/
char *mbr_log[MAX_MEMBER+1];	/*メンバーログ*/

/*フォームからのデータ*/
char *handle,*coment,*pwd,*mode;
int log_index,room,re_time;

hensu_table formhensu_table[]=
{
	{&handle,"h"},
	{&coment,"c"},
	{&pwd,"p"},
	{&mode,"m"},
};

/*コンフィグファイルからのデータ*/
char *header,*lines,*sys_lines,*footer,*form,*title,*reload,*loghead;
char *index_head,*index_line1,*index_line2,*index_foot,*frame_set;
char *mbr_lines,*no_member,*date_lines,*weeks,*in_msg,*out_msg,*dead_msg;
char *logout,*btn_logout,*ope_index;

hensu_table cfghensu_table[]=
{
	{&title,"title"},
	{&header,"header"},
	{&form,"form"},
	{&lines,"lines"},
	{&sys_lines,"sys_lines"},
	{&in_msg,"in_msg"},
	{&out_msg,"out_msg"},
	{&dead_msg,"dead_msg"},
	{&mbr_lines,"member_lines"},
	{&footer,"footer"},
	{&reload,"reload"},
	{&loghead,"loghead"},
	{&index_head,"index_head"},
	{&index_line1,"index_line1"},
	{&index_line2,"index_line2"},
	{&index_foot,"index_foot"},
	{&loghead,"loghead"},
	{&frame_set,"frame_set"},
	{&no_member,"no_member"},
	{&date_lines,"date_lines"},
	{&weeks,"weeks"},
	{&logout,"logout"},
	{&ope_index,"ope_index"},
	{&btn_logout,"btn_logout"},
};

time_t now;	/*実行時の時間*/

/*部屋のデータ*/
char *room_name;

/*置換処理用インタフェース関数*/
char *rep_for_char(void *in){return *((char **)in);}
char *rep_for_int(void *in){return back_str(*((int *)in));}
char *rep_for_encode(void *in){return back_encode(*((char **)in));}
char *rep_for_rnd(void *in){return back_str(rand()%RND_SU);}

rep_table rep_tables[]=
{
	{"[handle]",rep_for_char,&handle},
	{"[room_name]",rep_for_char,&room_name},
	{"[mode]",rep_for_char,&mode},
	{"[pwd]",rep_for_char,&pwd},
	{"[title]",rep_for_char,&title},
	{"[retime]",back_str,&re_time},
	{"[room]",rep_for_int,&room},
	{"[logsu]",rep_for_int,&log_index},
	{"[e_handle]",rep_for_encode,&handle},
	{"[rnd]",rep_for_rnd,&handle},
};

/*==========================================================================*/
/*メイン関数*/

int main(void){
	time(&now);
	srand(now);

	printf("Content-type: text/html\n\n");
	chat_log[0]=NULL;
	config_init();
	form_init();

	DEBUG_PRINT_D("hashs",hash_index);

	switch (mode[0]){
		case SET_FRAME : room_init();
		                 page_setframe();
		                 break;
		case OPERATE   : room_init();
		                 page_operate();
		                 break;
		case LOGS      : room_init();
		                 page_logs();
		                 break;
		case CHAT_EXIT : room_init();
		                 page_exits();
		                 break;
		default        : noroom_init();
		                 page_index();
	}
	if (s_flag) save_log(back_filename(chat_logfile,room),chat_log,CHAT_MAX_LINE);
	return(0);
}

/*==========================================================================*/
/*表紙ページの処理*/

void page_index (void){
	char *roomlog[ROOM_SIZE+1];
	char *l_room_name;
	char buf[BUFFER_SIZE],*temp;
	int i;
	u_open_print(header);
	u_open_print(index_head);

	for (i=0;i<=ROOM_SIZE;i++) roomlog[i]=NULL;	/*初期化*/
	load_log(room_file,roomlog,ROOM_SIZE);

	for(i=0;i<ROOM_SIZE;i++){	/*部屋のログをすべて読む*/
		if(roomlog[i]==NULL)break;
		if(roomlog[i][0]=='\n')continue;	/*空行は未使用*/
		strncpy(buf,index_line1,BUFFER_SIZE);
		temp=get_logn(roomlog,ROOM_SIZE,i,1,&l_room_name);	/*部屋のログの展開*/
		replace_word(buf,U_ROOMNAME,l_room_name,BUFFER_SIZE);
		replace_word(buf,U_ROOM,back_str(i),BUFFER_SIZE);
		free(temp);
		u_open_print(buf);
		mbr_log[0]=NULL;

		/*各部屋のメンバーを調べる*/
		load_log(back_filename(mbr_logfile,i),mbr_log,MAX_MEMBER);
		print_member();

		/*次の部屋のメンバーのため開放*/
		free_log(mbr_log,MAX_MEMBER);
		u_open_print(index_line2);
	}

	/*部屋のログを開放*/
	free_log(roomlog,ROOM_SIZE);
	u_open_print(index_foot);
	u_open_print(footer);
}

/*==========================================================================*/
/*フレームセットページの処理*/

void page_setframe (void){
	if (handle[0]=='\0') end("HANDLE ERROR");
	u_open_print(frame_set);
}
/*==========================================================================*/
/*オペレートページの処理*/

void page_operate (void){
	u_open_print(header);
	if (handle[0]=='\0') end("HANDLE ERROR");
	u_open_print(ope_index);
	u_open_print(form);
	u_open_print(btn_logout);
	u_open_print(footer);
}

/*==========================================================================*/
/*logsページの処理*/

void page_logs (void){

	u_open_print(header);
	if (handle[0]=='\0') end("HANDLE ERROR");

	mbr_chk(IN_CHK);

	if (coment[0]!='\0'){
		add_log(chat_log,CHAT_MAX_LINE,back_str(now),handle,coment,LOGEOF);
		s_flag=1;
	}
	load_log(back_filename(chat_logfile,room),chat_log,CHAT_MAX_LINE);
	u_open_print(reload);
	u_open_print(loghead);
	print_member();
	print_log();
	u_open_print(footer);
}
/*==========================================================================*/
/*ログアウトページの処理*/

void page_exits (void){
	mbr_chk(OUT_CHK);
	load_log(back_filename(chat_logfile,room),chat_log,CHAT_MAX_LINE);
	u_open_print(header);
	u_open_print(logout);
	u_open_print(footer);
}

/*==========================================================================*/
/*ログインメンバー処理*/

void mbr_chk(int sw){
	char *y_handle,*s_time,*y_ip,*temp,*temp_s_time;
	char msg_buf[LINE_SIZE];
	int i,j,my_flag=0;
	mbr_log[0]=NULL;
	load_log(back_filename(mbr_logfile,room),mbr_log,MAX_MEMBER);
	for (i=0,j=0;i<MAX_MEMBER;i++){
		if (mbr_log[i]==NULL) break;
		temp=get_logn(mbr_log,MAX_MEMBER,i,3,&y_handle,&s_time,&y_ip);
		if (strcmp(handle,y_handle)==0) {	/*自分の場合*/
			my_flag=1;
			if (sw==IN_CHK){	/*自分を更新*/
				change_logn(mbr_log,MAX_MEMBER,i,y_handle,back_str(now),y_ip,LOGEOF);
				mbr_log[j++]=mbr_log[i];
			}else{	/*自分を削除*/
				sprintf(msg_buf,back_sysmsg(out_msg,handle));
				add_log(chat_log,CHAT_MAX_LINE,back_str(now),SYS_HANDLE,msg_buf,LOGEOF);
				s_flag=1;
				free(mbr_log[i]);
			}
			free(temp);
			continue;
		}
		if (now-atol(s_time)<FALL_TIME){	/*時間内*/
			mbr_log[j++]=mbr_log[i];
			free(temp);
			continue;
		}
		sprintf(msg_buf,back_sysmsg(dead_msg,y_handle));
		add_log(chat_log,CHAT_MAX_LINE,back_str(now),SYS_HANDLE,msg_buf,LOGEOF);
		s_flag=1;
		free(mbr_log[i]);	/*時間オーバー*/
		free(temp);
	}
	mbr_log[j]=NULL;
	if (!my_flag) {	/*自分を追加*/
		add_log(mbr_log,MAX_MEMBER,handle,back_str(now),"",LOGEOF);
		sprintf(msg_buf,back_sysmsg(in_msg,handle));
		add_log(chat_log,CHAT_MAX_LINE,back_str(now),SYS_HANDLE,msg_buf,LOGEOF);
		s_flag=1;
	}
	save_log(back_filename(mbr_logfile,room),mbr_log,MAX_MEMBER);
}

/*==========================================================================*/
/*U_...(ユーザ変数)を展開し、表示*/

void u_open_print(char *in){
	char buf[LINE_SIZE];
	int i;
	strncpy(buf,in,LINE_SIZE);
	buf[LINE_SIZE-1]='\0';
	for(i=0;i<HAIRETSU_SIZE(rep_tables);i++){
		replace_word(buf,rep_tables[i].name,(*rep_tables[i].rep)(rep_tables[i].val),LINE_SIZE);
	}
	printf("%s\n",buf);
}

/*==========================================================================*/
/*メンバーの表示*/

void print_member(void){
	char *temp,buf[BUFFER_SIZE];
	char *y_handle,*s_time,*y_ip;
	int i,count;
	for(i=0,count=0;i<MAX_MEMBER;i++){
		if(mbr_log[i]==NULL)break;
		temp=get_logn(mbr_log,MAX_MEMBER,i,3,&y_handle,&s_time,&y_ip);
		if (now-atol(s_time)<FALL_TIME){	/*時間内*/
			count++;
			strncpy(buf,mbr_lines,BUFFER_SIZE);
			buf[BUFFER_SIZE-1]='\0';
			replace_word(buf,U_HANDLE,y_handle,BUFFER_SIZE);
			printf("%s",buf);
		}
		free(temp);
	}
	if (!count) printf("%s",no_member);
}

/*==========================================================================*/
/*会話の表示*/

void print_log(void){
	char buf[BUFFER_SIZE],*temp;
	char *loghandle,*logcoment,*logtime;
	int i,index;
	for(i=0;i<log_index;i++){
		if(chat_log[i]==NULL)break;
		temp=get_logn(chat_log,CHAT_MAX_LINE,i,3,&logtime,&loghandle,&logcoment);
		if (strcmp(loghandle,SYS_HANDLE)==0)	strncpy(buf,sys_lines,BUFFER_SIZE);			
		                                   else strncpy(buf,lines,BUFFER_SIZE);
		replace_word(buf,U_HANDLE,loghandle,BUFFER_SIZE);
		replace_word(buf,U_COMENT,logcoment,BUFFER_SIZE);
		replace_word(buf,U_DATE,back_date(atol(logtime)),BUFFER_SIZE);
		buf[BUFFER_SIZE-1]='\0';
		printf("%s\n",buf);
		free(temp);
	}
}

/*==========================================================================*/
/*コンフィグファイル関係の変数初期化*/

void config_init(void){
	hash hashs[HASH_SIZE];	/*連想配列*/
	int hash_index;	/*連想配列の要素数*/
	int i;
	/*コンフィグファイルから値を読み込む*/
	read_conf(con_file,hashs,&hash_index);

	for(i=0;i<HAIRETSU_SIZE(cfghensu_table);i++){
		set_hensu(cfghensu_table[i].val,cfghensu_table[i].name,hashs,hash_index);
	}

	for (i=0;i<hash_index;i++){
		free(hashs[i].name);
		free(hashs[i].value);
	}

}

/*==========================================================================*/
/*フォームからの変数初期化*/

void form_init(void){
	char *str_buf,buf[BUFFER_SIZE];
	hash hashs[HASH_SIZE],hashs_buf[HASH_SIZE];	/*連想配列*/
	int hash_index;	/*連想配列の要素数*/
	int i;

	/*フォームデータのデコード*/
	if((str_buf=get_form_strings())==NULL) end("Input Error");
	if(value_count(str_buf)>HASH_SIZE) end("不正なフォーム値です。");

	cut_string(str_buf,strlen(str_buf),hashs_buf,&hash_index);
	for (i=0;i<hash_index;i++){
		strncpy(buf,hashs_buf[i].value,BUFFER_SIZE);
		buf[BUFFER_SIZE-1]='\0';	/*文字が長すぎるときは切る*/
		decode_string(buf,strlen(buf));
		jconv(EUC,buf,buf);	/*コードの統一*/
		replace_word(buf,"<","&lt;",BUFFER_SIZE);
		replace_word(buf,">","&gt;",BUFFER_SIZE);
		replace_word(buf,"\n","<br>",BUFFER_SIZE);
		ALLOC_STR(hashs[i].value,strlen(buf)+1
		          ,end("MemoryError in init()"));
		strcpy(hashs[i].value,buf);
		ALLOC_STR(hashs[i].name,strlen(hashs_buf[i].name)+1
		          ,end("MemoryError in init()"));
		strcpy(hashs[i].name,hashs_buf[i].name);
	}
	free (str_buf);

	for(i=0;i<HAIRETSU_SIZE(formhensu_table);i++){
		set_hensu(formhensu_table[i].val,formhensu_table[i].name,hashs,hash_index);
	}
	set_ihensu(&room,F_ROOM,0,ROOM_SIZE-1,hashs,hash_index);
	set_ihensu(&log_index,F_LOGSU,CHAT_MIN_LINE,CHAT_MAX_LINE,hashs,hash_index);
	set_ihensu(&re_time,F_RETIME,MIN_RETIME,MAX_RETIME,hashs,hash_index);

	for (i=0;i<hash_index;i++){
		free(hashs[i].name);
		free(hashs[i].value);
	}

}

/*==========================================================================*/
/*部屋関係の変数初期化*/

void room_init(void){
	char *roomlog[ROOM_SIZE+1];
	char *temp,*buf;
	int i;

	for (i=0;i<=ROOM_SIZE;i++) roomlog[i]=NULL;	/*初期化*/
	load_log(room_file,roomlog,ROOM_SIZE);
	if (roomlog[room]==NULL || roomlog[room][0]=='\n')end("部屋がありません。");
	temp=get_logn(roomlog,ROOM_SIZE,room,1,&buf);	/*部屋のログの展開*/
	ALLOC_STR(room_name,strlen(buf)+1,end("eroor"));
	strcpy(room_name,buf);
	free(temp);
	free_log(roomlog,ROOM_SIZE);

}

/*==========================================================================*/
/*部屋が無いときの変数初期化(タイトルページ)*/

void noroom_init(void){
	ALLOC_STR(room_name,1,end("memory error"));
	room_name[0]='\0';
}

/*==========================================================================*/
/*ハッシュから変数(文字列)を取り出して領域確保&セット(文字列)*/

void set_hensu(char **hensu,char *key,hash hashs[],int hash_index){
	char *temp;
	if ((temp=get_value(key,hashs,hash_index))==NULL){
		ALLOC_STR(*hensu,1,end("MemoryError in set_hensu()"));
		*hensu[0]='\0';
		return;
	}
	ALLOC_STR(*hensu,strlen(temp)+1,end("MemoryError in set_hensu()"));
	strcpy(*hensu,temp);
}

/*==========================================================================*/
/*ハッシュから変数を取り出して領域確保&セット(整数)*/

void set_ihensu(int *hensu,char *key,int min,int max,hash hashs[],int hash_index){
	char *temp;
	if ((temp=get_value(key,hashs,hash_index))==NULL)*hensu=0;
	else *hensu=atol(temp);
	if(*hensu>max)*hensu=max;
	if(*hensu<min)*hensu=min;
}

/*==========================================================================*/
/*エンコードされた静的データを返す*/

char *back_encode(char *in){
	static char encode[BUFFER_SIZE];
	encode_string(in,encode,BUFFER_SIZE);
	return (encode);
}

/*==========================================================================*/
/*システムメッセージの静的データを返す*/

char *back_sysmsg(char *template,char *handle){
	static char sysmsg[BUFFER_SIZE];
	strncpy(sysmsg,template,BUFFER_SIZE);
	sysmsg[BUFFER_SIZE-1]='\0';
	replace_word(sysmsg,U_HANDLE,handle,BUFFER_SIZE);
	return (sysmsg);
}

/*==========================================================================*/
/*各roomのファイル名を静的文字列で返す*/

char *back_filename(char *file,int room){
	static char buffer[FILE_NAME_SIZE];
	int i,count;
	char c_room;
	
	if (0<=room && room<=9) c_room='0'+room;
	if (10<=room && room<=35) c_room='A'+room-10;
	if (36<=room && room<=61) c_room='a'+room-36;

	for (i=0,count=0;i<FILE_NAME_SIZE-1;i++){
		if((buffer[i]=file[i])=='\0')
			if(++count>=2)break;
	}
	
	buffer[strlen(buffer)]=c_room;
	buffer[FILE_NAME_SIZE-1]='0';
	return buffer;
}

/*==========================================================================*/
/*in_timeを、書式date_lines,weeksによって静的文字列にする*/

char *back_date(time_t in_time){
	static char ret_tm[DATE_SIZE];
	char buf[DATE_SIZE];
	struct tm *ptr;
	
	ptr=localtime(&in_time);
	strncpy(ret_tm,date_lines,DATE_SIZE);
	ret_tm[DATE_SIZE-1]='\0';
	sprintf(buf,"%2d",ptr->tm_sec);
	replace_word(ret_tm,U_SEC,buf,DATE_SIZE);
	sprintf(buf,"%2d",ptr->tm_min);
	replace_word(ret_tm,U_MIN,buf,DATE_SIZE);
	sprintf(buf,"%2d",ptr->tm_hour);
	replace_word(ret_tm,U_HOUR,buf,DATE_SIZE);
	sprintf(buf,"%d",ptr->tm_mday);
	replace_word(ret_tm,U_MDAY,buf,DATE_SIZE);
	sprintf(buf,"%d",ptr->tm_mon+1);
	replace_word(ret_tm,U_MON,buf,DATE_SIZE);
	sprintf(buf,"%d",ptr->tm_year);
	replace_word(ret_tm,U_YEAR,buf,DATE_SIZE);
	sprintf(buf,"%s",back_parst(weeks,ptr->tm_wday));
	replace_word(ret_tm,U_WDAY,buf,DATE_SIZE);
	return (ret_tm);
}

/*==========================================================================*/
/*P_CHARで区切られた文字列を配列とみなし、静的文字列を返す*/

char *back_parst(char *in,int n){
	static char buf[PAR_SIZE];
	int count=0,i=0;
	while(in!='\0'){
		if (*in==P_CHAR)count++;
		if (count>=n){
			if(*in==P_CHAR)in++;
			while(*in!='\0' && *in!=P_CHAR){
				buf[i++]=*in++;
				if (i>=PAR_SIZE-1) break;
			}
			break;
		}
		in++;
	}
	buf[i]='\0';
	return (buf);
}

/*==========================================================================*/
/*数値を変換し静的文字列を返す*/

char *back_str(int i){
	static char str[ITOS_SIZE];
	sprintf (str,"%d",i);
	return str;
}

/*==========================================================================*/
/*エラー終了*/

void end(char *msg){
	printf("%s\n",msg);
	exit(1);
}

/*==========================================================================*/
/*
[ver 0.1b]
1999.08.23	・多チャンネル対応。
          	・conv_str()の使用を中止。
1999.08.24	・roomファイルによる、部屋の管理。
          	・日付の表示。
          	・URLに乱数を追加(URL自動集計回避機能)。
1999.08.26	・システムメッセージ追加。
          	・退室機能搭載。
1999.08.27	・初期設定ルーチンの整理。
          	・その他、コード修正。
*/