#!/usr/bin/perl

#\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
#\\  Creation company : DIC Co.,Ltd.
#\\  Copyright (C) DIC All Rights Reserved. このスクリプトの再配布などを禁止します.
#\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

require "./diclib/jcode.pl";
require "./diclib/stdio.pl";
require "./diclib/sub.pl";
require "./setting/setup.pl";
&setup();


##=====================================
## データを受け取る
##=====================================
%param = ();
@keys = stdio::getFormData(\%param, "1", "SJIS", ";", "$img_dir/");
@keys = grep(!$seen{$_}++, @keys);



#□□□□□ モード なし ここから □□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
if(!$param{'mode'}){

##=====================================
## ソート
##=====================================
@lines = &fileopen($datafile);
$title_row = shift @lines;

@tmp1 = @tmp2 = ();
foreach(@lines){
	@sort = split(/\t/);
	
	$date = $sort[1];
	$date =~ s/\D//g;
	push(@tmp1, $date);
	push(@tmp2, $sort[0]);
}

@sorted = @lines[sort {$tmp1[$b] <=> $tmp1[$a] or $tmp2[$b] <=> $tmp2[$a]} 0 .. $#tmp1];


##=====================================
## データ表示
##=====================================
foreach(@sorted){
	chomp;
	my @data = split(/\t/);
	
	# 画像
	foreach(1 .. 3){
		if(-e "$img_dir/$data[0]_$_.jpg"){
			$img[$_] = qq|<a href="index.cgi?mode=img&img=$data[0]_$_.jpg" target="_blank"><img src="$img_dir_url/$data[0]_$_.jpg" border="0" /></a>|;
		}
		else{
			$img[$_] = qq|&nbsp;|;
		}
	}
	
	# 書き出し
	$subst{'list'} .= qq|
<div class="kiji_box clearfix">
<h2>$data[2]</h2>
<p>$data[1]</p>
<p>$data[3]</p>
$img[1]
$img[2]
$img[3]
</div>
|;
}


##=====================================
## HTML生成
##=====================================
$htmldata = &dicTag(&fileopen("./tpl.html"));


##=====================================
## ＨＴＭＬ出力
##=====================================
print <<"EOF";
Content-type: text/html

$htmldata
EOF
exit;
}	# モード なし ここまで



#□□□□□ モード img ここから □□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
elsif($param{'mode'} eq 'img'){

##=====================================
## 入力チェック
##=====================================
if($param{'img'} eq ''){ &error('エラー', 'パラメータが不正です。'); }


##=====================================
## 画像
##=====================================
if(-e "$img_dir/$param{'img'}"){
	my ($img_t, $img_w, $img_h) = stdio::getImageSize("$img_dir/$param{'img'}");
	if(700 < $img_w){ $w = qq|width="700"|; }
	else{ $w = ''; }
	
	$subst{'img'} = qq|<img src="$img_dir_url/$param{'img'}" border="0" $w />|;
}
else{
	&error('エラー', 'ご指定のファイルが見つかりません。');
}


##=====================================
## HTML生成
##=====================================
$htmldata = &dicTag(&fileopen("./tpl_img.html"));


##=====================================
## ＨＴＭＬ出力
##=====================================
print <<"EOF";
Content-type: text/html

$htmldata
EOF
exit;
}	# モード img ここまで