#!/usr/bin/perl -wT
#
#     ESJ プレゼンファイル登録プログラム
#
#        2007 Takenaka, A.
#   Rev  2011 Takenaka, A.

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           = &ESJ::Info::get_meeting_abbrev();
my $meeting_full_name = ($lang =~ /E-page/) ? &ESJ::Info::get_meeting_full_name_e()
                                            : &ESJ::Info::get_meeting_full_name();

my $time_limit        = &ESJ::Info::get_presen_file_limit();
my $time_to_start     = &ESJ::Info::get_presen_file_start();
my $n_meeting         = &ESJ::Info::get_n_meeting();

#=comment
unless (&ESJ::Util::is_to_start($time_to_start)) {
    if ($lang =~ /E-page/) {
        &ESJ::Util::show_not_yet_message_e();
    }
    else {
        &ESJ::Util::show_not_yet_message();
    }
    exit();
}
#=cut

unless(&is_within_time_limit($time_limit )) {
	if ($lang =~ /^E/) {   #  英語ページ
        &ESJ::Util::show_expiry_message_e();
	}
	else {                               #  日本語ページ
		&ESJ::Util::show_expiry_message();
	}
	exit();
}

my $tmpl_file = 'presen_file_entrance_tmpl.html';

open (my $handle, "<:utf8", $tmpl_file ) || die;
my $tmpl = HTML::Template->new( filehandle => $handle );
close $handle;

if ($lang =~ /E-page/) {
    $tmpl->param(ENGLISH  => 1);
}

$tmpl->param(meeting_full_name => $meeting_full_name);
$tmpl->param(n_meeting         => $n_meeting);
$tmpl->param(time_limit        => $time_limit);
print $tmpl->output;