/***************
*
* g:\exe\txf\src\txldir3.c
*/
#include "txl.h"

void rtnmes(char *fname, FILE *fp)
{
	FILE *fr;
	char *ext;

	strcpy(line1, inputfile);
	ext = line1 + strlen(line1) - 3;
	strcpy(ext, fname);
	if ((fr = fopen(line1, "rt")) == NULL) {
		fputs("Error:Can't open ??\n", fp);
		return;
	}
	fgets(line2, 80, fr); /* ダミー  FORUM:FTOWNS1	*/
	fgets(line2, 80, fr);
	if ((ext = jstrstr(line2, "会議室：")) != NULL) {
		fputs(ext + 8, fp);
	}
	else if (*line2 == '-') {
		*(strchr(line2, NUL) - 3) = NUL;
		if ((ext = strchr(line2, ':')) != NULL) {
			fputs(ext + 1, fp);
		}
		else {
			fputc('\n', fp);
		}
	}
	else { /* リトライ(^^;)	*/
		fgets(line2, 80, fr);
		if ((ext = jstrstr(line2, "会議室：")) != NULL) {
			if(*(strchr(line2, NUL) - 2) == '-') {
				*(strchr(line2, NUL) - 3) = '\n';
				*(strchr(line2, NUL) - 2) = NUL;
			}
			fputs(ext + 8, fp);
		}
		else if (*line2 == '-') {
			*(strchr(line2, NUL) - 3) = '\n';
			*(strchr(line2, NUL) - 2) = NUL;
			if ((ext = strchr(line2, ':')) != NULL) {
				fputs(ext + 1, fp);
			}
			else {
				fputc('\n', fp);
			}
		}
	}
	fclose(fr);
/*	fputc('\n', fp);	*/
}

void catlogmes(char *fname, FILE *fp)
{
	FILE *fr;
	char *ext;

	strcpy(line1, inputfile);
	ext = line1 + strlen(line1) - 3;
	strcpy(ext, fname);
	if ((fr = fopen(line1, "rt")) == NULL) {
		fputs("Error:Can't open ??\n", fp);
		return;
	}
	fgets(line2, 80, fr); /* ダミー  FORUM:FTOWNS1 MES:1	*/
	fgets(line2, 80, fr); /* ダミー  ＜FMTOWNS フォーラム1 ＞    FTOWNS1	*/
	fgets(line2, 80, fr);
	fclose(fr);
	if (matchstr(logstr_mes2, line2)) {
		ext = strchr(line2, NUL);
		if (matchstr(" %%/%%/%% -", ext - 12)) {
			*(ext - 12) = '\n';
			*(ext - 11) = NUL;
		}
		fputs(strchr(line2, ':') + 1, fp);
/*		fputc('\n', fp);	*/
	}
	else if (matchstr(logstr_mes1, line2)) {
		ext = strchr(line2, NUL);
		*(ext - 1) = NUL;
		fputs(line2 + 28, fp);
		fputc('\n', fp);
	}
	else {
		int mes;	/* 行儀悪〜い */
		sscanf(fname, "MES%2d", &mes);
		fprintf(fp, "会議室:%d\n", mes);
	}
}

void idlog(char *fname, FILE *fp)
{
	FILE *fr;
	char *ext;

	strcpy(line1, inputfile);
	ext = line1 + strlen(line1) - 3;
	strcpy(ext, fname);
	if ((fr = fopen(line1, "rt")) == NULL) {
		fputs("Error:Can't open ??\n", fp);
		return;
	}
	fgets(line2, 80, fr); /* HP:PFG02442 / PATIO:PFG02442	*/
	fgets(line2, 80, fr); /* ダミー  */
	fgets(line2, 80, fr);
	fclose(fr);
	if (matchstr("- MES(%%):", line2)) {
		ext = strchr(line2, NUL);
		if (matchstr(" %%/%%/%% -", ext - 12)) {
			*(ext - 12) = '\n';
			*(ext - 11) = NUL;
		}
		fputs(strchr(line2, ':') + 1, fp);
	}
	else {
		fputs(line2, fp);
/*		fputc('\n', fp);	*/
	}
}

void catloglib(char *fname, FILE *fp)
{
	int i;
	FILE *fr;
	char *ext;

	strcpy(line1, inputfile);
	ext = line1 + strlen(line1) - 3;
	strcpy(ext, fname);
	if ((fr = fopen(line1, "rt")) == NULL) {
		fputs("Error:Can't open ??\n", fp);
		return;
	}
	fgets(line2, 80, fr);	/* FORUM:FRAV LIB:12	*/
	fgets(line2, 80, fr);	/* ＜リアルタイムAV通信フォーラム＞    FRAV */
	fgets(line2, 80, fr);	/* 1:お知らせ            *:掲示板      ...  */
	fgets(line2, 80, fr);	/* 4:データライブラリ    5:会員情報    ...  */
	fgets(line2, 80, fr);	/* 7:SYSOP 宛メール      8:オプション  E:終了 */
	fgets(line2, 80, fr);	/* ＞LIB 12	*/
	fgets(line2, 80, fr);
		/* − LIB 12 【通信ツール】各種通信ツール 総数 :73  登録数 :73  − */

	fclose(fr);
	if (matchstr("− LIB", line2)) {
		ext = jstrstr(line2, " 総数 :");
		*ext = '\n';
		*(ext + 1) = NUL;
		ext = line2 + 7;
		for (i = 0; i < 3; i++) {
			if (*ext == ' ') {
				break;
			}
			ext++;
		}
		if (*ext == ' ') {
			fputs(ext + 1, fp);
		}
		else {
			fputc('\n', fp);	/* こんなはずはない */
		}
	}
	else {
		int lib;	/* 行儀悪〜い */
		sscanf(fname, "LIB%2d", &lib);
		fprintf(fp, "ライブラリ:%d\n", lib);
	}
}

void catlogmail(char *fname, FILE *fp)
{
	FILE *fr;
	char *ext;

	strcpy(line1, inputfile);
	ext = line1 + strlen(line1) - 3;
	strcpy(ext, fname);
	if ((fr = fopen(line1, "rt")) == NULL) {
		fputs("Error:Can't open ??\n", fp);
		return;
	}
	fgets(line2, 80, fr); /* ダミー  MAIL:PFG02442	*/
	fgets(line2, 80, fr);
	fclose(fr);
	if (matchstr(logstr_mail, line2) || matchstr(logstr_mail2, line2)) {
		strncpy(log_rhandle, line2 + 4, 16);
		del_tailspace(log_rhandle, 15);
		fprintf(fp, "%sさんからのメール\n", log_rhandle);
	}
	else {
		fputs("メール\n", fp);
	}
}

void liblist(char *fname, FILE *fp)
{
	FILE *fr;
	char *ext;
/*
FORUM:FTOWNS2 LIB:9 -------------------------------------- List by FAPX
＜FMTOWNS フォーラム 2 (応用編) ＞    FTOWNS2
- FTOWNS2  LIB( 9):FYUI専用ﾗｲﾌﾞﾗﾘ(用途は謎･･･)  94/04/19 -
*/
	strcpy(line1, inputfile);
	ext = line1 + strlen(line1) - 3;
	strcpy(ext, fname);
	if ((fr = fopen(line1, "rt")) == NULL) {
		fputs("Error:Can't open ??\n", fp);
		return;
	}
	fgets(line2, 80, fr); /* ダミー  FORUM:FTOWNS2	*/
	fgets(line2, 80, fr); /* ダミー  ＜FMTOWNS フォーラム 2 (応用編) ＞	*/
	fgets(line2, 80, fr);
	fclose(fr);
	if (*line2 == '-') {
		*(line2 + strlen(line2) - 11) = NUL;
		del_tailspace(line2, strlen(line2) - 1);
		if ((ext = strchr(line2, ':')) != NULL) {
			fprintf(fp, "%s\n", ext + 1);
			return;
		}
	}
	fputs("ライブラリリスト\n", fp);
}