
#●
#---------------------------------------------------------------------------------------
# 名称     | GetQuery
# Version  | 1.00
# 処理名   | クエリーデータ入力処理
# 動作内容 | クエリーデータの取得とログファイルの確定
# 引数     | なし
# 戻り値   | なし(%cmd)($message_file..メッセージファイル名)($delete_file..削除管理ファイル名)
#
sub GetQuery {

	$cmd = $ENV{'QUERY_STRING'}; # 入力

	@pairs = split(/&/,$cmd);
	foreach $pair (@pairs) {

		($key,$val) = split(/=/,$pair);
		$val =~ tr/+/ /;
		$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; # URLデコード

		$cmd{$key} = $val;
	}

	if ($cmd{'img'} eq 'copyright') { &Copyright; } # アイコン画像生成へ
	elsif ($cmd{'log'} eq '') { &Error("Not Found","ログ名が指定されていません.","Usage http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}<strong>?log=ログ名</strong>"); }

	$message_file = "$log_dir$cmd{'log'}\.message\.$ext"; # メッセージファイル名の取得
	$delete_file = "$log_dir$cmd{'log'}\.delete\.$ext"; # 削除管理ファイル名の取得

	if (!-e $message_file) { &Error("Not Found","メッセージファイルが見つかりません."); }
	if (!-e $delete_file) { &Error("Not Found","削除管理ファイルが見つかりません."); }

}#End_of_GetQuery

