#!/usr/local/bin/perl

#日本語コード変換ライブラリ
#ダウンロード先↓
#ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/
require './jcode.pl';

#フォームデコード用ライブラリ
#ダウンロード先↓
#http://www.bio.cam.ac.uk/cgi-lib/
require './cgi-lib.pl';

#あらかじめ用意してあるデータから必要なデータを絞り込み取り出します。
#検索系の機能が欠かせません。
#個kでは、Perlの関数やその他もろもろを検索できるようにしました。
$title = 'Perl-etc DB';

#書き込みデータの位置
$data_file = './data/d-basic.csv';

#カテゴリーファイルの位置
$category_list = './data/d-category.txt';

#当スクリプト
$script_file = './d-basic.cgi';

#新着表示件数
$newlist = 10;

#データオープン
$file_no = 0;#データファイルの有無

if (!open(DATA,$data_file)) { $file_no = 1; }
	@lines = <DATA>;
close(DATA);

#cgi-lib.plの関数。これを呼び出すとフォームの内容が%inに格納される
&ReadParse;

if ($in{'mode'} eq "search" && ($in{'searchtext'} || $in{'category'})){
	#検索結果表示
	&searchlist;
}elsif($in{'mode'} eq "data"){
	#内容詳細表示
	&dataview;
}else{
	#初期ページ表示
	&printdata;
}

###########################################################
#ページ表示
sub printdata {
			
#カテゴリーファイルオープン
$c_file_no = 0;#カテゴリーファイルの有無
if (!open(C_DATA,$category_list)) { $c_file_no = 1; }
	@category = <C_DATA>;
close(C_DATA);

&head;

print "<h2>新着（$newlist件）</h2>";

#表示データの保存用
%datelist;

if($file_no == 1){
	print "データファイルはありません";
}else{
	foreach $line (@lines) {
		#DATA形式　ID,項目,カテゴリ,解説,使用例,追加/修正年月日,リンク,関連項目,公開・非公開
		($id,$subject,$category,$explanation,$case,$date,$refer_link,$related,$open_yn) = split( /,/, $line);
		#「追加/修正年月日+ID」をキーにして連想配列に必要データだけ入れなおす
		$datelist{"$date$id"} = "$id,$subject,$category,$date\n";
	}

	#表示データの項目数のカウントとキーで並べ替え
	$count = keys %datelist;
	@keyreturn = keys %datelist;
	@keysorted = sort { $b cmp $a} @keyreturn; 
	
	$keycount = 0;
	if(%datelist){
		#テーブルに整形して出力
		print "<table border=\"1\">";
		print "<tr><th>ID</th><th>項目</th><th>カテゴリ</th><th>年月日</th><th>-</th></tr>";
		foreach $linekey (@keysorted){
			$line = $datelist{$linekey};
			chomp $line;
			
			#表示した件数が、指定した新着表示件数($newlist)を超えたらおわり
			$keycount++;			
			if($keycount > $newlist){last;}
			
			#表示データが空ならスキップ
			if(!$linekey){next;}
			
			#DATA形式　ID,項目,カテゴリ,追加/修正年月日
			($id,$subject,$category,$date) = split( /,/, $line);
			print "<tr><td>$id</td><td>$subject</td><td>$category</td><td>$date</td>\n";
			print "<td><form method=\"POST\" action=\"$script_file\" name=\"Form\">\n";
			print "<input type=\"hidden\" name=\"mode\" value=\"data\">\n";
			print "<input type=\"hidden\" name=\"id\" value=\"$id\">\n";
			print "<input type=\"submit\" name=\"regi\" value=\"表\示\"></form></td></tr>\n";
		}
		print "<tr><td colspan=\"5\" align=\"right\">全項目数: $count</td></tr>\n";
		print "</table>";
	}
}

#検索フォームの表示
print "<hr>\n";
print "<h2>検索フォーム</h2>\n";

print "<form name=\"form\" method=\"post\" action=\"$script_file\">\n";
print "検索語：<input type=\"text\" name=\"searchtext\"><br>\n";

#カテゴリファイルが無ければカテゴリ選択のプルダウンも無い
if(!$c_file_no){
print "カテゴリ：<select name=\"category\">\n";
		print "<option value=\"\">選択</option>";
	foreach $category_text (@category){
		print "<option value=\"$category_text\">$category_text</option>";
	}  	
print "</select><br>\n";
}

print "<input type=\"submit\" name=\"Submit\" value=\"検索\">\n";
print "<input type=\"hidden\" name=\"mode\" value=\"search\">\n";
print "</form>\n";
print "<br>\n";
print "<h3>他検索項目：候補</h3>\n";
print "<ol>\n";
print "<li>頭文字</li>\n";
print "<li>追加・修正年月日(プルダウン　年/月/日)</li>\n";
print "</ol>\n";

&foot;
}

###########################################################
#検索結果表示
sub searchlist {

#フォームから検索文字を所得
$s_text = $in{'searchtext'};
$s_category = $in{'category'};

#入力データはタグ対策
$s_text =~ s/</&lt;/g;
$s_text =~ s/>/&gt;/g;
#EUCに変換
&jcode'convert(*s_text,'euc');

&head;

#入力データ(@lines)→カテゴリ絞込み結果(@categorylist)→単語検索結果＝最終検索結果（%listup;）とデータが渡る
#保存用配列・連想配列
@categorylist;

%listup;
@idlist;

print "<h2>検索結果表\示</h2>\n";

#####カテゴリの入力(選択)があったら####################
if($s_category){

	#####絞込み####################
	foreach $textline (@lines) {
	chomp $s_category;
	#DATA形式　ID,項目,カテゴリ,解説,使用例,追加/修正年月日,リンク,関連項目,公開・非公開
	($id,$subject,$category,$explanation,$case,$date,$refer_link,$related,$open_yn) = split( /,/, $textline);#分解
		#合致したもののみ保存
		chomp $category;
		if($category eq $s_category){
			push @categorylist , $textline;
			#print "合致した<br>\n";
		}else{
			#print "合致しない<br>\n";
		}
	}
	

}else{
	#無かったら絞込みを行わずスルーする
	@categorylist = @lines;
}

#####絞込み語の入力があったら####################
if($s_text){

	#####絞込み####################
	foreach $categoryline (@categorylist) {
		chomp $categoryline;		
		#DATA形式　ID,項目,カテゴリ,解説,使用例,追加/修正年月日,リンク,関連項目,公開・非公開
		($id,$subject,$category,$explanation,$case,$date,$refer_link,$related,$open_yn) = split( /,/, $categoryline);#分解

		&jcode'convert(*categoryline,'euc');
		#正規表現で検索するときはeucに変換
		#Shift JISの特定の文字は検索などでは文字コードの問題からエラーを起こすので
		#文字コードを最初からEUCに統一するなどの対策をとればgrepなどの関数が便利
		
		#評価して必要項目のみを渡す
		if($categoryline =~ /$s_text/){
			#タグ対策はデータを保存する際(保存用スクリプト･テキストエディタなど)に考慮すること
			$listup{$id} = "$id,$subject,$category,$date\n";
			push @idlist,"$id\n";
		}
	}

}else{
	#入力が無かったら絞込みを行わず、必要項目のみを渡す
	foreach $categoryline (@categorylist) {
		chomp $categoryline;
		($id,$subject,$category,$explanation,$case,$date,$refer_link,$related,$open_yn) = split( /,/, $categoryline);#分解

		$listup{$id} = "$id,$subject,$category,$date\n";
		push @idlist,"$id\n";
	}
}
############################################################


if(@idlist){
	#テーブルに整形して出力
	print "<table border=\"1\">\n";
	print "<tr><th>ID</th><th>項目</th><th>カテゴリ</th><th>年月日</th><th>-</th></tr>\n";
	foreach $listid (@idlist) {
		chomp $listid;
		$listtxt = $listup{$listid};
		($id,$subject,$category,$date) = split( /,/, $listtxt);

		print "<tr><td>$id</td><td>$subject</td><td>$category</td><td>$date</td>\n";
		print "<td><form method=\"POST\" action=\"$script_file\" name=\"Form\">\n";
		print "<input type=\"hidden\" name=\"mode\" value=\"data\">\n";
		print "<input type=\"hidden\" name=\"id\" value=\"$id\">\n";
		print "<input type=\"submit\" name=\"regi\" value=\"表\示\"></form></td></tr>\n";
		
	}
	print "</table>";
}else{
	print "該当する項目はありません<br>\n";
}
	
&foot;
}

###########################################################
#内容詳細表示
sub dataview {

&head;

	print "<h2>内容詳細表\示</h2>\n";

if($file_no == 1){
	print "データファイルはありません\n";
}else{	
	#テーブルに整形して出力
	#・ID,項目,カテゴリ,追加/修正年月日
	#・解説
	#・使用例
	#・リンク,関連項目
	print "<table border=\"1\">\n";
	
	foreach $line (@lines) {
		#DATA形式　ID,項目,カテゴリ,解説,使用例,追加/修正年月日,リンク,関連項目,公開・非公開
		($id,$subject,$category,$explanation,$case,$date,$refer_link,$related,$open_yn) = split( /,/, $line);
		if($id eq $in{'id'}){
			print "<tr><th>ID</th><th>項目</th><th>カテゴリ</th><th>年月日</th></tr>\n";
			print "<tr><td>$id</td><td>$subject</td><td>$category</td><td>$date</td></tr>\n";
			
			print "<tr><th colspan=\"4\">解説</th></tr>\n";
			print "<tr><td colspan=\"4\">$explanation</td></tr>\n";
			print "<tr><th colspan=\"4\">使用例</th></tr>\n";
			print "<tr><td colspan=\"4\">$case</td></tr>\n";
			
			print "<tr><th colspan=\"2\">リンク</th><th colspan=\"2\">関連項目</th></tr>\n";
			print "<tr><td colspan=\"2\">$refer_link</td><td colspan=\"2\">$related</td></tr>\n";
		}

	}
	print "</table>";
}

&foot;
}

###########################################################
#エラー表示
sub error {

	#ローカル変数の設定
	#@_は引数の配列
	local (@msg) = @_;
	local ($i);

	print "Content-type: text/html\n\n";

print <<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html><head>
<title>$_[0]</title>
<meta http-equiv="Content-Type" Content="text/html; charset=Shift_JIS">
</head>
	
<body>	
<h1>$_[0]</h1>
EOF
	print "<ul>\n";
	foreach $i (1 .. $#msg) { print "<li>$msg[$i]\n"; }
	print "</ul>\n";

	print "</body></html>\n";
	exit;
}

###########################################################
#ヘッダ表示
sub head {
	print "Content-type: text/html\n\n";

print <<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html><head>
<title>$title</title>
<style type="text/css">
<!--
form {
	margin: 0px;
	padding: 0px;
}
-->
</style>
<meta http-equiv="Content-Type" Content="text/html; charset=Shift_JIS">
</head>

<body>
<h1>$title</h1>
<hr>
EOF

}
###########################################################
#フッタ表示
sub foot {
	print "<hr>";
	print "<a href=\"$script_file\">戻る</a>";
	print "</body></html>\n";
	exit;
}