#!/usr/bin/perl
### 設定ファイル、ライブラリファイル読み込み
require '../../.private/adm_etc/config.pl5';
require $Conf::lib_path.'cgi-lib.pl5';
require $Conf::lib_path.'jcode.pl5';
require $Conf::lib_path.'lib.pl5';
require $Conf::lib_path.'lib_pocketcard.pl5';

my $print_data = '';
my @data2;
my %replace;
my $print_html = '';
my $print_file = '';

# 現在の日付時刻取得
my %date = &Lib::get_date();
my $now_date = sprintf("%4d%02d%02d%02d%02d", $date{"year"}, $date{"mon"}, $date{"day"}, $date{"hour"}, $date{"min"});

&ReadParse;
# HTMLエスケープ
foreach $key (keys %in){
	$in{$key} = &Lib::htmlspecialchars_escape($in{$key});
}

# テンプレートファイル
my $template = 'template/skeleton.html';

# 記事IDチェック
unless ($in{'view'} =~ /^[0-9]+$/){
	$replace{'TITLE'} = "err_[6] : エラーが発生しました";
	$print_html = &Lib::SetHtmlTemplate($template, \%replace);
	&jcode::convert(\$print_html, "sjis");
	
	print "Content-type: text/html\n\n";
	print $print_html;
	exit;
}

# データファイル読み込み
if (-e $Conf::data_ir_newsrelease){
	open(DATA, $Conf::data_ir_newsrelease);
		while($line = <DATA>){
			chomp($line);
			my @split_data = split(/$Conf::split/, $line);
			next if ($split_data[8] eq '2'); # 表示/非表示チェック
			next if ($split_data[1] ne '' && $split_data[1] >= $now_date); # 掲載開始日チェック
			next if ($split_data[2] ne '' && $split_data[2] <= $now_date); # 掲載終了日チェック
			
			push(@data2, $line) if ($split_data[0] eq $in{'view'});
		}
	close(DATA);
}

# 該当記事がない場合、エラー
if ($data2[0] eq ''){
	$replace{'TITLE'} = "err_[7] : エラーが発生しました";
	$print_html = &Lib::SetHtmlTemplate($template, \%replace);
	&jcode::convert(\$print_html, "sjis");
	
	print "Content-type: text/html\n\n";
	print $print_html;
	exit;
}

my @split_data = split(/$Conf::split/, $data2[0]);

# 該当ファイルがない場合、エラー
unless (-e $Conf::file_path.$split_data[7]){
	$replace{'TITLE'} = "err_[8] : エラーが発生しました";
	$print_html = &Lib::SetHtmlTemplate($template, \%replace);
	&jcode::convert(\$print_html, "sjis");
	
	print "Content-type: text/html\n\n";
	print $print_html;
	exit;
}

# PDFファイル読み込み
open(DATA, $Conf::file_path.$split_data[7]);
	while($line = <DATA>){
		$print_file .= $line;
	}
close(DATA);

# ファイル名コンバート
&jcode::convert(\$print_html, "sjis");

print "Content-type: application/pdf\n";
print "Content-Disposition: inline; filename=".$split_data[6]."\n\n";
print $print_file;

1;