#!/usr/bin/perl -wT
#
#     ESJ 参加・講演申し込み処理プログラム
#
#     2010-09-11  Takenaka, A.
# rev 2012-09-22  Takenaka, A.
#  rev   2013-09-26 Takenaka

use strict;
use warnings;

use utf8;

use CGI;
use Encode;
use HTML::Template;
use CGI::Carp('fatalsToBrowser');

#=comment
use lib qw(/var/www/vhosts/esj.ne.jp/httpdocs/pm);
use ESJ::Util;
use ESJ::Info;
#=cut

my $lang = $ENV{'QUERY_STRING'};

my $charset = "UTF-8";

my $Data = new CGI; #   CGI オブジェクトを取得。global 変数。
$Data->charset($charset);
print $Data->header(-type=>"text/html");

my $meeting_full_name = &ESJ::Info::get_meeting_full_name();

my $meeting          = &ESJ::Info::get_meeting_abbrev();
my $n_meeting        = &ESJ::Info::get_n_meeting();
my $meeting_yyyy     = &ESJ::Info::get_meeting_yyyy();


my $time_to_start    = &ESJ::Info::get_presen_reg_start();
my $presen_reg_limit = &ESJ::Info::get_presen_reg_limit();
my $reg_limit        = &ESJ::Info::get_reg_limit();

my $membership_apply_limit = &ESJ::Info::get_membership_apply_limit();
my $first_member_fee_limit = &ESJ::Info::get_first_member_fee_limit();

#=comment
$time_to_start = "2013-09-01 09:00"; # テスト用
#=cut

=comment
# 作業用に、受け付け開始日による制御を無効化
unless (&ESJ::Util::is_to_start($time_to_start)) {
    &ESJ::Util::show_not_yet_message();
    exit();
}
=cut

my $tmpl_file = 'reg_entrance_tmpl-j.html';
open (my $handle, "<:utf8", $tmpl_file ) || die "Failed to open $tmpl_file";
my $tmpl = HTML::Template->new( filehandle => $handle );
close $handle;

$tmpl->param(meeting_full_name  => $meeting_full_name);
$tmpl->param(meeting_yyyy       => $meeting_yyyy);

$tmpl->param(n_meeting => $n_meeting);
# $tmpl->param(reg_limit => $reg_limit);
$tmpl->param(presen_reg_limit => $presen_reg_limit);
$tmpl->param(membership_apply_limit => $membership_apply_limit);
$tmpl->param(first_member_fee_limit => $first_member_fee_limit);


# 締切状況に応じた表示の変更指示

unless (&ESJ::Util::is_within_time_limit($presen_reg_limit)) {
    $tmpl->param(REG_OVER => 1);
}

print $tmpl->output;