
#●
#---------------------------------------------------------------------------------------
# 名称     | Main
# Version  | 1.00
# 処理名   | メイン処理
# 動作内容 | 全体の流れを制御する
# 引数     | なし
# 戻り値   | なし
#
sub Main {

	if ($jcode'version < 2) { &Error('エラー','jcode.plは2.0以降のバージョンを設置してください.'); }
	&GetQuery();
	&GetData();
	&AdminSet();
	&ReadCookie("$ENV{'SCRIPT_NAME'}\_$cmd{'log'}");
	(@messages) = &ReadFile($message_file);
	&NoListSet($delete_file);
	if (@DELETE) { &Delete_Message; }
	if ($in{'action'} eq 'Write_Message') { &Write_Message; }
	&View_Message;

}#End_of_Main

