#include "wsubformHTML.h"	//サブフォーム専用ヘッダファイルをインクルードする。
#include "fcgi_stdio.h"	//FastCGI用ヘッダファイルをインクルードする。

extern char gridtitles[MAX_POS][MAX_LEN];	//wsubformHTMLが利用するgridのタイトル。

extern TextBox	 *begin;	//textboxで使用する連鎖ポインタの開始位置
extern TextBox	 *tp;	//textboxで使用する連鎖ポインタ

typedef struct stat Dir;	//ファイル操作用
static Dir dirptr;
static Dir  *fptr = &dirptr;

char tmp[MAX_STR];
char COMMANDNAME[256];	//実行するCGI自身の名前
static int sqlcode = 0;	//PostgreSQLの返すコード

int DBcount[MAX_FORM];	//wsubformHTMLで利用するDBの現在の最大行数
extern char KEY[256][MAX_STR];	//INSERTとUPDATEが使用する更新項目

int DBConnect(void)
{
	// DB接続用変数宣言です。DB名、ユーザ名、パスワードを設定してください。
	EXEC SQL BEGIN DECLARE SECTION;
		char dbname[12];
		char user[12];
		char passwd[12];
	EXEC SQL END DECLARE SECTION;

	strcpy(dbname,"apsch");
	strcpy(user,"cms");
	strcpy(passwd,"cms");

#ifdef DEBUG
	// ECPGデバッグ文出力
	ECPGdebug (0, stderr);
#endif

	// 接続
	memset (sqlca.sqlstate, '0', 5);
	EXEC SQL CONNECT TO :dbname AS dbConnection user :user USING :passwd;
	if (memcmp (sqlca.sqlstate, "00000", 5) != 0)
	{
		sprintf(tmp,"%s->CONNECT エラー。終了します。:%d - %s",COMMANDNAME,sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
	//	logmsg(tmp);
		exit (EXIT_FAILURE);
	}
}

int Fetch_takuhai_gyosya_Fetch(int no, int line)
{
	static char DBbuff[MAX_STR];
	int i = 0;
	char *qs;
	int qcount;

	DBConnect();

	memset (sqlca.sqlstate, '0', 5);

	EXEC SQL BEGIN DECLARE SECTION;
		int rec_count;
		int rec_max;
		char	 key[256][MAX_STR];
		int	 ikey[256];
		int		ID;		//NUMERIC
		char	takuhai_gyosya[36 + 1];	//TEXT
	EXEC SQL END DECLARE SECTION;

	sqlcode = 0;
	DBcount[no] = 0;

	rec_count = 0;

	if((qs = getenv("QUERY_STRING")) != (char *)NULL)
	{
		qcount = query_getHTML(qs,'&');
		for(i=0;i < qcount;i++)
		{
			sprintf(key[i],"%s",qt.get[i]);
		}
	}
	else
	{
		sprintf(key[0],"NONE");
		printf("%s<br>\n",key[0]);
	}

//	以下の部分はリレーションテーブルを利用する場合にコメントを外して使用可能にして利用してください。
//	sprintf(KEY[0],"%s",key[0]);

//	テーブルを連結して検索する対象は外部変数の場合splitDbbuffからホスト変数にコピーして利用出来ます。
//	sprintf(key[0],"%s",ft[1].splitDBbuff[line][13]);
//	sprintf(key[1],"%s",ft[1].splitDBbuff[line][10]);
//	ikey[0] = atoi(key[1]);

	// 検索するレコードの行数を取得
	EXEC SQL 
	SELECT 
	COUNT(*)
	INTO :rec_count
	FROM	takuhai_gyosya
	WHERE ID = :key[0];


	// SELECTエラー 
	if(memcmp (sqlca.sqlstate, "00000", 5) != 0)
	{
		sprintf(tmp,"%s->SELECT COUNTエラー:%d - %s",COMMANDNAME,sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
	//	logmsg(tmp);
		return(-1) ;
	}

	if(rec_count == 0)
	{
		printf("Content-type: text/html\n\n");
		printf("<html lang=\"ja\">\n");
		printf("<head>\n");
		printf("<meta http-equiv=\"content-type\" content=\"text/html;charset=utf-8\">\n"); 
		printf("<title>DB-ERROR</title>\n");
		printf("</head>\n");
		printf("<body>\n");
		printf("<br>\n");
		printf("<table border=0>\n");
		printf("<tr bgcolor=#ffffff>\n");
		printf("みつかりませんでした。<br>\n");
		printf("<form name=\"error\" method=\"post\" action=\"/cgi-bin/yubin/yubin.fcgi\">\n");
		printf("<input accesskey=\"A\" tabindex=\"0\" type=\"submit\" value=\"戻る\">\n");
		printf("</form>\n");
		printf("</tr>\n");
		printf("</body>\n");
		printf("</html>\n");
	}

	DBcount[no] = rec_count;

	// 以下の項目はユニークな項目を利用してインサート時の項目番号等を増加するために利用します
	// 利用する場合はコメントを外して下さい。
	// あるDB項目の最大数を取得
//	if(rec_count == 0)
//	{
//		sprintf(ID,"%s",key[0]);
//		rec_max = 0;
//		DBcount[no] = 1;
//	}
//	else
//	{
//		EXEC SQL 
//		SELECT 
//		MAX(No)
//		INTO :rec_max
//		FROM	takuhai_gyosya;

//	// SELECTエラー 
//		if(memcmp (sqlca.sqlstate, "00000", 5) != 0)
//		{
//			sprintf(tmp,"%s->SELECT MAX()エラー:%d - %s",COMMANDNAME,sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
//		//	logmsg(tmp);
//			return(-1) ;
//		}
//	}

	EXEC SQL DECLARE takuhai_gyosya_Fetch_CURSOR CURSOR FOR 
	SELECT 
		ID,
		coalesce(takuhai_gyosya,' ','0')
	FROM	takuhai_gyosya
	WHERE takuhai_gyosya = :key[0]
	ORDER BY takuhai_gyosya;

	// カーソルオープン
	EXEC SQL OPEN takuhai_gyosya_Fetch_CURSOR;

	// CURSOR OPENエラー 
	if (memcmp (sqlca.sqlstate, "00000", 5) != 0)
	{
		sprintf(tmp,"%s->CURSOR OPENエラー:%d - %s",COMMANDNAME,sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
	//	logmsg(tmp);
		return(-1);
	}

	for(i=0;i<DBcount[no];i++)
	{
		EXEC SQL FETCH takuhai_gyosya_Fetch_CURSOR INTO
			:ID,
			:takuhai_gyosya;

	// テーブル項目をsplitbDBbuff[][]にセットする
		sf_to_text(ID,DBbuff);	//NUMERIC型(int)を文字に変換する。
		sf_assgetDB(no,i,0,DBbuff,2 + 1);
		sf_assgetDB(no,i,1,takuhai_gyosya,36 + 1);

	}
	// カーソルクローズ 
	EXEC SQL CLOSE takuhai_gyosya_Fetch_CURSOR;

	DBcount[no] = rec_count;

	// 結果チェック
	if (sqlca.sqlcode == 0)
	{
		sprintf(tmp,"%s->FETCH結果チェック:%d - %s",COMMANDNAME,sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
	//	logmsg(tmp);
	}
	// 切断
	sqlca.sqlcode = 0;
	EXEC SQL DISCONNECT dbConnection;
	return(0);
}

// DBから入出力(画面)ウインドウに書き込みます。
void takuhai_gyosya_Fetch_text_writeHTML(int no, int post, int line,int maxcol, char **db_titles)
{
	int i;
	int j;
	char s[MAX_TMP];

	printf("Content-type: text/html\n\n");
	printf("<html lang=\"ja\">\n");
	printf("<head>\n");
	printf("<meta http-equiv=\"content-type\" content=\"text/html;charset=utf-8\">\n"); 
	printf("<title>form text_writeHTML page</title>\n");
	printf("</head>\n");
	printf("<body>\n");
	printf("<br>\n");
	printf("<td><a href=\"http://sample.net/index.html\" target=\"_parent\">[TOPへ]</a></td>\n");
	printf("<td><a href=\"#\" onClick=\"history.back(); return false;\">[前に戻る]</a></td>\n");
	//送信はPOSTを使用します。
//テーブル名_Menu.pgc のコードを利用する場合、デバッグ時の送信試験はGETを使用すると便利です。
	printf("<form name=\"fetch\" name=\"form%02d\" method=\"post\" action=\"/cgi-bin/takuhai_gyosya_Update.fcgi\">\n",line);
	printf("<td><input accesskey=\"A\" tabindex=\"1\" type=\"submit\" value=\"実行\"></td>\n");

	printf("<table border=0>\n");
	sf_tbegin();
	for(i=0;tp->next !=(TextBox *)NULL;i++)
	{
		printf("<tr>");
		if(ft[no].splitDBbuff[line][i] != (char *)NULL)
		{
			printf("<td>");
			printf("%s:",*(db_titles+i));
			printf("</td>");
			printf("<td>");
			switch(tp->ftype)
			{
			case TEXT:
				if(tp->action == 0)
				{
					printf("<input accesskey=\"B\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
				}
				else
				{
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" readonly <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
				}
				break;
			case DATE:
				if(tp->action == 0)
				{
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
				}
				else
				{
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" readonly <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
				}
				break;
			case NUMERIC:
				if(tp->action == 0)
				{
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
				}
				else
				{
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" readonly <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
				}
				break;
			case BOOL:
				if(tp->action == 0)
				{
				//	printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"1\"> <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
					if(ft[no].splitDBbuff[line][i][0] == 'f')
						printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"checkbox\" name=\"field%02d\" size=\"%d\" value=\"t\"><br>\n",i,i,ft[no].pos[i].len);
					else
						printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"checkbox\" name=\"field%02d\" size=\"%d\" value=\"%s\" checked><br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
				}
				else
				{
				//	printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"1\" readonly> <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
				//この部分はチェックボックスに使用出来ますが更新や追加には使用出来ません。表示のみに利用可能です。
					if(ft[no].splitDBbuff[line][i][0] == 'f')
						printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"checkbox\" name=\"field%02d\" size=\"%d\" value=\"%s\" readonly><br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
					else
						printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"checkbox\" name=\"field%02d\" size=\"%d\" value=\"%s\" checked readonly><br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
				}
				break;
			case CURRENCY:
				if(tp->action == 0)
				{
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"15\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
				}
				else
				{
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"15\" readonly <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
				}
				break;
			case DOUBLE:
				if(tp->action == 0)
				{
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
				}
				else
				{
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" readonly <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
				}
				break;
			default:
				printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
				break;
			}
			sprintf(s,"%s",ft[no].splitDBbuff[line][i]);
			sf_tput(no,i,s);
			sf_tnext();
			printf("</td>");
		}
		else
		{
			sf_tnext();
		}
		printf("</tr>");
	}
	printf("<tr>");
	if(ft[no].splitDBbuff[line][i] != (char *)NULL)
	{
		printf("<td>");
		printf("%s:",*(db_titles+i));
		printf("</td>");
		printf("<td>");
		switch(tp->ftype)
		{
		case TEXT:
			if(tp->action == 0)
			{
				printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
			}
			else
			{
				printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" readonly <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
			}
			break;
		case DATE:
			if(tp->action == 0)
			{
				printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
			}
			else
			{
				printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" readonly <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
			}
			break;
		case NUMERIC:
			if(tp->action == 0)
			{
				printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
			}
			else
			{
				printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" readonly <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
			}
			break;
		case BOOL:
			if(tp->action == 0)
			{
			//	printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"1\"> <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
				if(ft[no].splitDBbuff[line][i][0] == 'f')
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"checkbox\" name=\"field%02d\" size=\"%d\" value=\"t\"><br>\n",i,i,ft[no].pos[i].len);
				else
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"checkbox\" name=\"field%02d\" size=\"%d\" value=\"%s\" checked><br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
			}
			else
			{
			//	printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"1\" readonly> <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
			//この部分はチェックボックスに使用出来ますが更新や追加には使用出来ません。表示のみに利用可能です。
				if(ft[no].splitDBbuff[line][i][0] == 'f')
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"checkbox\" name=\"field%02d\" size=\"%d\" value=\"%s\" readonly><br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
				else
					printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"checkbox\" name=\"field%02d\" size=\"%d\" value=\"%s\" checked readonly><br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
			}
			break;
		case CURRENCY:
			if(tp->action == 0)
			{
				printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"15\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
			}
			else
			{
				printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"15\" readonly <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
			}
			break;
		case DOUBLE:
			if(tp->action == 0)
			{
				printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
			}
			else
			{
				printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" maxlength=\"%d\" readonly <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i],ft[no].pos[i].len);
			}
			break;
		default:
			printf("<input accesskey=\"A\" tabindex=\"%d\" type=\"text\" name=\"field%02d\" size=\"%d\" value=\"%s\" <br>\n",i,i,ft[no].pos[i].len,ft[no].splitDBbuff[line][i]);
			break;
		}
		sprintf(s,"%s",ft[no].splitDBbuff[line][i]);
		sf_tput(no,i,s);
		printf("</td>");
	}
	printf("</tr>\n");
	printf("</table>\n");
	printf("</form>\n");
	printf("</body>\n");
	printf("</html>\n");
}
// FETCHした後にHTMLのテーブルにDBの行列を書き込みます。
int takuhai_gyosya_Fetch_grid_dispHTML(int no, int startline, int maxcol, int grid_ey, int grid_sy,int line)
{
	int i, j;
	char s[MAX_TMP];
	char hs[MAX_TMP];

	if((Fetch_takuhai_gyosya_Fetch(no,line)) == 0)
	{
		for(i=startline;i<DBcount[no];i++)
		{
			for(j=0;j<maxcol;j++)
			{
				sf_gputDBHTML(no,i,j,startline,s);
			}
		}

		return(0);
	}
	else
	{
		return(-1);
	}
}


int subformHTML(void)
{
	int i;
	char s[MAX_STR];

	int startline;

	int line;
	setlocale(LC_ALL,"");

//----------------------------------------------------------------------------------
//下ののハイフンのラインまでの以下の関数はDBと画面の設計を実際のフォームに適用します。
//これらの関数が無い場合は設計情報はDB設計以外は反映されません。

	static int xcol = 173;
	static int rows = 49;

//for label
	static int label_length[] = {0};
	static int label_no[] = {0};
	static int label_align[] = {0};
	static char *label_text[1][128] = {""};
	static int label_x[] = {0};
	static int label_y[] = {0};
//for textbox
	static int textbox_length[] = {2,35,0};
	static int textbox_no[] = {0,1,0};
	static int textbox_align[] = {1,2,0};
	static int textbox_action[] = {0,0,0};
	static int textbox_skipstep[] = {1,1,0};
	static int textbox_field[] = {1,1,0};
	static int textbox_x[] = {0,0,0};
	static int textbox_y[] = {3,4,0};


//for grid
	static int cell_length[] = {2,36,0};
	static int cell_align[] = {1,2,0};
	static int cell_action[] = {0,0,0};
	static int grid_field[] = {2,1,0};
	static int grid_skipstep[] = {1,1,0};
	char *grid_titles[3][128] = {"Grid_1","Grid_2",""};
	static char *db_titles[3][128] = {"ID","takuhai_gyosya",0};
	static int grid_sx = 0;
	static int grid_ex = 38;
	static int grid_sy = 1;
	static int grid_ey = 1;

	static int maxtext;
	static int no = 0;

	char **gt;
	char **lt;

	gt = (char **)&grid_titles;

	xcol = MakeWsubFormHTML(no,xcol,rows,0,2,grid_sx,grid_sy,grid_ex,grid_ey,cell_length,cell_align,cell_action,grid_field,grid_skipstep,gt,2);

	lt = (char **)&label_text;

//	以下の関数は<SELECT>でコンボボックスを作成する場合、一つのCGIで重複して利用出来ませんのでどちらかを削除してください。
	maxtext = MakeTextBoxHTML(no,0,2,xcol,rows,label_no,lt,label_x,label_y,label_length,textbox_no,textbox_x,textbox_y,textbox_length,textbox_align,textbox_action,textbox_field,textbox_skipstep, 2);

//----------------------------------------------------------------------------------

	for(i=0;i<MAX_POS;i++)
	{
		memset(gridtitles[i],'\0',MAX_LEN);
	}

	sf_startcell(0);

	startline = 0;	//画面初期行

	//Fetchした結果をsplitDBbuffに格納して表示に備える
	if(takuhai_gyosya_Fetch_grid_dispHTML(no,startline,maxtext,grid_sy,grid_ey,line) == -1)
	{
		printf("grid_dispHTML():error\n");
	}

	//DBへの入力用フォームの作成
	for(i=startline;i<DBcount[no];i++)
	{
		takuhai_gyosya_Fetch_text_writeHTML(no,0,i,maxtext,*db_titles);
	}

}

int main(int argc, char *argv[])
{
	sprintf(COMMANDNAME,"%s",argv[0]);
	while (FCGI_Accept() >= 0)
	{
		subformHTML();
	}
}

