#!/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 $url = 'http://www.pocketcard.co.jp/';

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

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

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

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

print "Location: ".$url."news/detail.php?id=".$in{'view'}."\n\n";

exit;
# データファイル読み込み
if (-e $Conf::data_sv_important){
	open(DATA, $Conf::data_sv_important);
		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 $print_html;
	exit;
}

my @split_data = split(/$Conf::split/, $data2[0]);
$replace{'DATE'} = sprintf("%4d年%02d月%02d日", substr($split_data[3], 0, 4), substr($split_data[3], 4, 2), substr($split_data[3], 6, 2));
$replace{'TITLE'} = $split_data[4];
$replace{'CONTENTS'} = $split_data[5];

#$replace{"CONTENTS"} = &Lib::url_link_replace($replace{'CONTENTS'});

# レフカウント機能追加
$replace{'CONTENTS'} .= "\n".'<img src="/ref.pl5?type=1&id='.$in{'view'}.'" width="1" height="1">'."\n";

foreach $key (keys %replace){
	&jcode::convert(\$replace{$key}, "sjis");
}
$print_html = &Lib::SetHtmlTemplate($template, \%replace);
#&jcode::convert(\$print_html, "sjis");

print $print_html;

1;