#!/usr/bin/perl

# ↑１行目には、サーバに設置されているPerlのパスを記述してください。


# 不明な場合には、サーバ管理者へ問い合わせてください。

# （当スクリプトはPerl5用に製作されています。）





##

## このファイルについて

##    「GETメソッドでアクセスする為の実行ファイル」

##

## (C) AppsPage / 飛田 益夫丸

##





package index_cgi; BEGIN {

	#ini.cgiを要求

	require( "./ini.cgi" );

	import ini;

};

#use strict;



index_cgi::main();





## メイン

sub main {

	

	#アラーム

	require( LIB_DIR."classes/DataAlarm.pl" );

	my $alrm = new DataAlarm::( DF_LIMIT );

	

	#各クラス要求

	require( "MTRequest.pl" );

	require( "MTResponse.pl" );

	require( "MTFileLock.pl" );

	require( LIB_DIR."classes/DataFile.pl" );

	require( LIB_DIR."classes/Controller.pl" );

	

	

	#コントローラへ渡すオブジェクト

	my $req = new MTRequest::( "", undef );

	my $res = new MTResponse::();

	my $lock = new MTFileLock::(

		LOCK_METHOD, LOCK_DIR, "flock.cgi", "flock",

		LOCK_SH, LOCK_EX, LOCK_UN

	);

	my $data = new DataFile::(

		DATA_DIR, DATA_DIR, "check.cgi", SU_MODE, $alrm

	);

	

	#未定義のパラメータを設定

	if( !$req->existsParam("mode")  ) { $req->setParam( "mode", "step1" ); }

	

	#コントローラ

	my $ctl = new Controller::( $req, $res, $lock, $data, $alrm );

	

	#このファイルのヘッダを設定

	#HTMLコンテンツ用レスポンスヘッダ

	if( $req->getParam("mode") ne "upfilereader" ) {

		#コンテンツ用レスポンスヘッダ

		$ctl->setContentTypeHeaders();

	}

	

	#処理開始

	$ctl->start( "index" );

	$ctl->stop();

}









0;